InputBox (Veri Giriş Kutusu) Kullanımı

Bir önceki derste MsgBox ile kullanıcıya bilgi vermeyi öğrendik. Peki ya kullanıcının klavyeden makroya dışarıdan veri girmesini istiyorsak? Örneğin bir rapor çalıştırıldığında kullanıcıya *"Hangi departmanın raporunu istiyorsunuz?"* diye sormak istiyorsak devreye InputBox girer.

InputBox Nasıl Yazılır?

InputBox, kullanıcının klavyeden yazdığı metni veya sayıyı anında bir değişkene (kutuya) kaydeder. Ardından bu veriyi dilediğimiz Excel hücresine yazdırabiliriz.

Kod Örneği


                                Dim personelAdi As String

                                

                                ' Kullanıcıya pencere aç ve yazdığı cevabı değişkene ata

                                personelAdi = InputBox("Lütfen personel adını giriniz:", "Personel Kayıt")

                                

                                ' Gelen veriyi Excel hücresine yaz

                                Range("A1").Value = personelAdi

Canlı Simülatör: Dinamik Veri Girişi

Aşağıdaki makro çalıştırıldığında ekrana bir InputBox penceresi gelecektir. Kutucuğa bir isim yazıp "Tamam" butonuna bastığınızda, girdiğiniz verinin Excel hücresine nasıl aktarıldığını canlı izleyin.

Visual Basic Editörü

Module1 (Code)

Sub PersonelEkle()
    Dim adi As String

    ' Kullanıcıdan veri al
    adi = InputBox("Lütfen personel adını giriniz:", "Yeni Kayıt")

    ' Excel'e yazdır
    Range("A1").Value = adi
End Sub

Canlı Excel Sayfası

A (Personel Adı)

Önceki VBA Dersleri Worksheets ve Workbook Nesneleri