InputBox

Söz dizimi​

sonuc = InputBox(Prompt, [Title], [Default], [XPos], [YPos], [HelpFile], [Context])

• Prompt: Kutuda görünen iletidir; zorunludur. Uzunluğu yaklaşık 1024 karaktere kadar olabilir. Satır sonu için vbCrLf kullanılır.
• Title: Kutunun başlık çubuğundaki metindir; isteğe bağlıdır. Verilmezse uygulama adı (Microsoft Excel) görünür.
• Default: Kutuda hazır yazılı gelen varsayılan metindir; isteğe bağlıdır. Verilmezse kutu boş açılır.
• XPos: Kutunun sol kenarının ekranın solundan uzaklığıdır (twip); isteğe bağlıdır. Verilmezse yatayda ortalanır.
• YPos: Kutunun üst kenarının ekranın üstünden uzaklığıdır (twip); isteğe bağlıdır. Verilmezse dikeyde ekranın yaklaşık üçte birine yerleşir.
• HelpFile: Yardım dosyasının adıdır; isteğe bağlıdır. Verilirse Context de verilmelidir.
• Context: Yardım konusunun numarasıdır; isteğe bağlıdır.

Application.InputBox yöntemi​

sonuc = Application.InputBox(Prompt, [Title], [Default], [Left], [Top], [HelpFile], [HelpContextID], [Type])

• 0: Formül olarak yorumlanan giriş.
• 1: Yalnız sayı kabul edilir.
• 2: Metin kabul edilir (varsayılan).
• 4: Mantıksal değer (True ya da False).
• 8: Hücre başvurusu; kullanıcı fareyle aralık seçebilir. Sonuç Range nesnesidir ve Set ile atanmalıdır.
• 16: Hata değeri (ör. #YOK).
• 64: Değer dizisi.

İptal ve boş giriş denetimi​

Dim yanit As Variant
yanit = Application.InputBox("Bir sayı girin:", "Sayı", Type:=1)
If VarType(yanit) = vbBoolean Then Exit Sub  ' iptal edildi

1. Kullanıcıdan ad ve departman almak​

Option Explicit

Sub YeniPersonelEkle()
    Dim ad As String
    Dim dep As String
    Dim satir As Long

    ' Personel adı istenir; boş ya da iptal ise çıkılır
    ad = InputBox("Personel adını girin:", "Yeni Personel")
    If ad = "" Then Exit Sub

    ' Departman için varsayılan bir değer önerilir
    dep = InputBox("Departmanı girin:", "Yeni Personel", "Satış")
    If dep = "" Then Exit Sub

    ' A sütunundaki son dolu hücrenin altına yazılır
    satir = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1
    ActiveSheet.Cells(satir, 1).Value = ad
    ActiveSheet.Cells(satir, 2).Value = dep
End Sub

2. Application.InputBox ile sayı almak ve zam uygulamak​

Option Explicit

Sub ZamUygula()
    Dim yanit As Variant
    Dim i As Long
    Dim son As Long

    ' Type:=1 yalnız sayı kabul eder
    yanit = Application.InputBox(Prompt:="Zam oranını yüzde olarak girin:", _
        Title:="Fiyat Zammı", Default:=10, Type:=1)

    ' İptal edilirse False döner
    If VarType(yanit) = vbBoolean Then Exit Sub

    son = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    For i = 2 To son
        ActiveSheet.Cells(i, 3).Value = ActiveSheet.Cells(i, 2).Value * (1 + yanit / 100)
    Next i
End Sub

3. Girilen metni sayıya çevirmeden önce denetlemek​

Option Explicit

Sub GirdiKontrol()
    Dim i As Long
    Dim s As String

    For i = 2 To 6
        ' Hücre içeriği metne çevrilip baştaki ve sondaki boşluklar atılır
        s = Trim(CStr(ActiveSheet.Cells(i, 1).Value))

        If Len(s) = 0 Then
            ActiveSheet.Cells(i, 2).Value = "Boş girdi"
        ElseIf Not IsNumeric(s) Then
            ActiveSheet.Cells(i, 2).Value = "Sayı değil"
        ElseIf CDbl(s) <= 0 Then
            ActiveSheet.Cells(i, 2).Value = "Pozitif değil"
        Else
            ActiveSheet.Cells(i, 2).Value = "Geçerli"
        End If
    Next i
End Sub

Kullanırken dikkat edin​

• İptal ile boş girişi karıştırmayın: VBA'nın InputBox işlevi iptalde de boş metin döndürür. Sıfır girişini ya da bilerek boş bırakılan alanı ayırt etmeniz gerekiyorsa Application.InputBox yöntemini kullanın; bu yöntem iptalde False döndürür.
• Dönen değer metindir: VBA InputBox işlevi sayı girilse bile String döndürür. Hesapta kullanmadan önce IsNumeric ile denetleyin, ardından CDbl ya da CLng ile çevirin. Aksi halde tür uyuşmazlığı hatası alabilirsiniz. Yüzde ya da ondalık girişlerde bölgesel ayarlara (virgül ve nokta) dikkat edin.
• Aralık seçiminde Set kullanın: Application.InputBox ile Type:=8 kullandığınızda sonuç bir Range nesnesidir; Set deyimiyle atanmalıdır. Kullanıcı iptal ederse çalışma zamanı hatası oluşur, bu yüzden On Error Resume Next ile hata yakalayıp sonucu Nothing ile karşılaştırın.
• Etkileşimli kod otomasyona uygun değildir: InputBox makroyu kullanıcı yanıtını verene kadar durdurur. Zamanlanmış ya da arka planda çalışan makrolarda kullanmayın; değerleri hücrelerden ya da UserForm üzerinden alın. Çok sayıda değer gerekiyorsa art arda kutular açmak yerine UserForm daha kullanışlıdır.
• Uzun ileti ve konum: Prompt metni yaklaşık 1024 karakterle sınırlıdır. XPos, YPos, Left ve Top değerleri ekran koordinatıdır ve çoklu monitör kullanımında beklenmedik yerde açılabilir. Çoğu durumda varsayılan konumu kullanmak yeterlidir.
• İlgili konular:
  • MsgBox: Kullanıcıya ileti gösterir ve Evet/Hayır gibi düğmelerle yanıt alır.
  • UserForm: Birden çok değerin tek pencerede alınmasını sağlar.
  • Application.InputBox: Türü denetlenen ve aralık seçtirebilen giriş kutusu.
  • IsNumeric: Metnin sayıya çevrilebilir olup olmadığını denetler.
  • CDbl ve CLng: Metni sayıya dönüştüren VBA işlevleri.
  • VarType: Değişkenin türünü döndürür; iptal denetiminde kullanılır.
  • Veri > Veri Araçları > Veri Doğrulama (Data > Data Tools > Data Validation): Hücreye girişi makrosuz sınırlandırır.
  • EĞERSAYI: Girilen değerin listede olup olmadığını denetlemek için kullanılabilir.