Kullanıcıdan herhangi bir bilgi almak istiyorsanız GİRİŞ KUTUSU işlevini kullanabilirsiniz.
Bu işlev, kullanıcının herhangi bir şeyi doldurmasına izin veren ve içeriği bir dize olarak döndüren bir iletişim kutusu görüntüler.
Bazen herhangi bir bilgiyi kabul etmek yerine kullanıcının neyi doldurması gerektiğine karar vermek istersiniz. İşte o zaman INPUTBOX yöntemini kullanırsınız:
Sub DecideUserInput() Dim bText As String, bNumber As Integer ' işte GİRİŞ KUTUSU işlevi: bText = InputBox("Bir metne ekle", "Bu, herhangi bir girişi kabul eder") ' işte GİRİŞ KUTUSU yöntemi: bNumber = Uygulama. InputBox("Bir sayı girin", "Bu yalnızca sayıları kabul eder", 1) MsgBox "Şunları eklediniz :" & Chr(13) & _ bText & Chr(13) & bNumber, , "GİRİŞ kutularından sonuç" End Sub
INPUTBOX yönteminin, kullanıcının INPUTBOX iletişim kutusuna ne eklemesine izin verildiğine karar veren Type adlı üçüncü bir argümanı vardır.
Tür aşağıdakilerden biri olabilir:
Tip :
Kabul edilen girdi: 0 Bir formül 1 Bir sayı 2 Metin 4 Bir mantıksal değer (Doğru veya Yanlış) 8 Bir hücre başvurusu, ör. a Aralık nesnesi 16 Bir hata değeri, örn. #N/A 64 Bir dizi değer
Makroyu çalıştırdığımızda aşağıdaki giriş kutularını göreceğiz:
Bu şekilde sonucu mesaj kutusundan alabiliriz.