VBA - InputBox

InputBox functionkullanıcılardan değerler girmelerini ister. Değerleri girdikten sonra, kullanıcı OK düğmesine tıklarsa veya klavyede ENTER tuşuna basarsa, InputBox işlevi metin kutusundaki metni döndürür. Kullanıcı İptal düğmesini tıklarsa, işlev boş bir dize ("") döndürür.

Sözdizimi

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

Parametre Açıklama

Prompt- Gerekli bir parametre. İletişim kutusunda mesaj olarak görüntülenen bir Dize. Maksimum bilgi istemi uzunluğu yaklaşık 1024 karakterdir. Mesaj bir satırdan fazlasını kapsıyorsa, bu durumda satırlar, her satır arasında bir satırbaşı karakteri (Chr (13)) veya satır besleme karakteri (Chr (10)) kullanılarak ayrılabilir.
Title- İsteğe bağlı bir parametre. İletişim kutusunun başlık çubuğunda görüntülenen bir String ifadesi. Başlık boş bırakılırsa, uygulama adı başlık çubuğuna yerleştirilir.
Default- İsteğe bağlı bir parametre. Metin kutusunda, kullanıcının görüntülenmesini istediği varsayılan bir metin.
XPos- İsteğe bağlı bir parametre. PozisyonuXeksen, yatay olarak ekranın sol tarafından istem mesafesini temsil eder. Boş bırakılırsa, giriş kutusu yatay olarak ortalanır.
YPos- İsteğe bağlı bir parametre. PozisyonuYeksen, ekranın sol tarafından dikey olarak istem mesafesini temsil eder. Boş bırakılırsa, giriş kutusu dikey olarak ortalanır.
Helpfile- İsteğe bağlı bir parametre. İletişim kutusu için bağlama duyarlı Yardım sağlamak için kullanılacak yardım dosyasını tanımlayan bir String ifadesi.
context- İsteğe bağlı bir parametre. Yardım yazarı tarafından uygun Yardım konusuna atanan Yardım içerik numarasını tanımlayan sayısal bir ifade. Bağlam sağlanmışsa, yardım dosyası da sağlanmalıdır.

Misal

Bir dikdörtgenin alanını, iki giriş kutusu (biri uzunluk, diğeri genişlik için) yardımıyla çalışma zamanında kullanıcıdan alarak hesaplayalım.

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

Çıktı

Step 1 - Aynısını yürütmek için, işlev adını kullanarak arayın ve aşağıdaki ekran görüntüsünde gösterildiği gibi Enter tuşuna basın.

Step 2- Yürütmenin ardından, İlk giriş kutusu (uzunluk) görüntülenir. Giriş kutusuna bir değer girin.

Step 3 - İlk değeri girdikten sonra, ikinci giriş kutusu (genişlik) görüntülenir.

Step 4- İkinci sayıyı girdikten sonra Tamam düğmesine tıklayın. Alan, aşağıdaki ekran görüntüsünde gösterildiği gibi görüntülenir.