Kui soovite kasutajalt teavet saada, saate kasutada funktsiooni INPUTBOX.
See funktsioon kuvab dialoogiboksi, mis võimaldab kasutajal täita midagi ja tagastab sisu stringina.
Mõnikord soovite teabe vastuvõtmise asemel otsustada, mida kasutaja peaks täitma. Siis kasutate INPUTBOX-meetodit:
Sub DecideUserInput () Dim bText Stringina, bNumber As Integer 'siin on INPUTBOX-funktsioon: bText = InputBox ("Sisesta teksti", "See aktsepteerib igasugust sisendit")' siin on INPUTBOX-meetod: bNumber = Rakendus. InputBox ("Sisestage number", "See aktsepteerib ainult numbreid", 1) MsgBox "Olete sisestanud:" & Chr (13) & _ bText & Chr (13) & bNumber,, "INPUT-kastide tulemus" End Sub
INPUTBOX-meetodil on kolmas argument, tüüp, mis otsustab, mida kasutajal on lubatud INPUTBOX-dialoogi sisestada.
Tüüp võib olla üks järgmistest.
Tüüp:
Aktsepteeritud sisend: 0 A valem 1 A number 2 Tekst 4 Loogiline väärtus (õige või vale) 8 Lahtri viide, nt. a Vahemik-objekt 16 Veaväärtus, nt. #N/A 64 Väärtuste massiiv
Makro käivitamisel näeme järgmisi sisendkaste:
Sel viisil saame tulemuse sõnumikasti kaudu.