VBA InputBox


inputbx

InputBox kullanıcıdan bilgi almak için kullanılır, bu bilginin tipini string, integer, boolen vb. şekillerde belirleyerek veri girişini kontrol edebileceğimiz gibi variant tipinde tanımlayarak her hangi bir kısıtlama getirmeden kullanıcıya da bırakabiliriz.

inputbox

prompt :Kullanıcıdan istediğimiz bilgi.

[, title] : Inputbox kutusunun başlığı.

[, default] : Inputbox ilk açıldığında kullanıcının bilgi gireceği kısma girilen default veri.

inputbox

örnek 1: Basit bir InputBox örneği:


Sub inptbx()

Dim bilgi As String

bilgi = inputbox("Lutfen adinizi giriniz", "Kayit Kutusu", "Ad Soyad")

MsgBox "Hosgeldin " & bilgi

End Sub

inputbox

örnek 2: Kullanıcının InputBox’a girdiği sayı tek sayı mı çift sayı mı MsgBox ile gösterelim.


Sub inptbx()

Dim i As Integer

Dim y As Integer

i = InputBox("bir sayi giriniz", "Tek mi Cift mi?")

y = i Mod 2

Select Case y

Case 0

MsgBox "Cift sayi girdiniz"

Case 1

MsgBox "Tek sayi girdiniz"

End Select

End Sub

inputbox inputbox2 inputbox3 inputbox4 inputbox5

ÖNEMLI: Peki ya kullanıcı bizim belirlediğimiz tip dışında bir tipte değişken girer ise ne olur? Bu durumda kod Type Mistmacth hatası alacak ve çalışmayı durduracaktır. Bu sebeple InputBox gibi dışarıdan değişken aldığımız durumlarda kodun içerisinde hata kontrolü yapmalıyız. Bunun en kolay yöntemlerinden bir tanesi On Error statement yazmaktır.


Sub inptbx()

Dim yas As Integer

On Error GoTo 10 'kod hata alirsa 10'a git

yas = InputBox("Lutfen yasinizi giriniz")

Range("A1").Value = yas

Exit Sub

10

MsgBox "Lutfen gecerli bir deger giriniz"

End Sub

inputbox inputbox2 inputbox3

Reklamlar

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Connecting to %s