Vba'da giriş kutusu nasıl kullanılır?

Adından da anlaşılacağı gibi Giriş Kutusu, kullanıcıya bir giriş kutusu görüntüleyen ve yanıt toplayan bir işlevdir.

Adınızı soran bir giriş kutusunun ve onu girmek için bir giriş kutusunun bulunduğu aşağıdaki örneğe bakın. Mesaj çubuğuna benzeyen başlık çubuğuna baktığınızda “Ad girin” yazan bir başlık ve mesajda “Adınız nedir?” yazan bir başlık görüyoruz. “.

İşte VBA giriş kutusunun sözdizimi:

Giriş Kutusu(İstem[Başlık][Varsayılan][Sol][Üst][YardımDosyası, YardımBağlamKimliği][Tür])

1. İstem : İstemde, giriş kutusunda görüntülenmesini istediğiniz mesajı belirtebilirsiniz. Burada maksimum 1024 karakter kullanabilirsiniz.
2. [Title] : Giriş alanının başlık çubuğunda görüntülenen bir dize. Başlığı görmezden gelirseniz uygulama adı başlık çubuğuna yerleştirilecektir.
3. [Varsayılan] : Bu, varsayılan giriş çubuğunda kullanıcıya gösterilmesini istediğiniz varsayılan metindir.
4. [XPos] : Ekranın sol tarafından yatay olarak istem mesafesini temsil eden (X ekseni konumu) bir sayıdır ve boş bırakılırsa giriş alanı yatay olarak ortalanır.
5. [YPos] : Ekranın sol tarafından yatay olarak istem mesafesini (Y ekseni konumu) temsil eden bir sayıdır ve boş bırakılırsa giriş alanı yatay olarak ortalanır.
6. [Yardım dosyası] : Kullanıcı için bir yardım dosyası belirtmek için. Kullanıcı bu yardım dosyasına yardım butonunu kullanarak erişebilir.
7. [bağlam] : Atanan yardım bağlamı numarasını tanımlayan sayısal bir ifade ve bağlam sağlanmışsa bir yardım dosyasının da sağlanması gerekir.

Köşeli parantez içindeki tüm bağımsız değişkenler isteğe bağlıdır, eğer bunlardan herhangi birini göz ardı ederseniz yine de giriş kutusu işlevini kullanabilirsiniz ancak çoğu durumda ilk üç bağımsız değişkenden fazlasını kullanmanıza gerek kalmaz.

VBA kodunda giriş kutusu nasıl kullanılır?

1. “InputBox” yazın ve bir boşluk girin; ayarlamanız gereken argümanlar için bir araç elde edeceksiniz.
2. Kullanıcıya göstermek istediğiniz “İstem” mesajını belirtin.
3. Giriş kutusu için bir başlık belirleyin, aksi takdirde varsayılan başlık gösterilecektir.
4. Varsayılan giriş çubuğunda olmasını istediğiniz metni belirtin.

Bu kodu çalıştırdığınızda size şöyle bir giriş kutusu gösterilecektir:

Excel’de VBA giriş kutusunu kullanma örneği

Gerçek dünyada bir giriş kutusunu nasıl kullanabileceğinizi merak ediyor olabilirsiniz. Aşağıdaki örnekte basit ama güçlü bir örnek paylaştım.

 Sub vba_input_box() 'variable to store the count of rows. Dim iRow As Long 'get the count cells that are filled iRow = WorksheetFunction.CountA(Range("A:A")) 'get to the next blank cell in column A Cells(iRow + 1, 1).Select 'enter the value from the input box into the active cell ActiveCell = InputBox("What is your name?", "Enter Name") End Sub

Yukarıdaki kod, A sütununa ismi ardı ardına girer. Sütundaki dolu hücreleri sayar ve bir sonraki boş hücreye geçer. Daha sonra giriş kutusundan değeri alıp buraya girin.