Če želite od uporabnika dobiti kakršne koli informacije, lahko uporabite funkcijo INPUTBOX.
Ta funkcija prikaže pogovorno okno, ki uporabniku omogoča, da vnese karkoli in vsebino vrne kot niz.
Včasih se želite odločiti, kaj naj uporabnik vnese, namesto da sprejme kakršne koli podatke. Takrat uporabite metodo INPUTBOX:
Sub DecideUserInput () Dim bText As String, bNumber As Integer 'tukaj je funkcija INPUTBOX: bText = InputBox ("Vstavi v besedilo", "To sprejema kateri koli vnos") "tukaj je metoda INPUTBOX: bNumber = Application. InputBox ("Vstavi številko", "To sprejema samo številke", 1) MsgBox "Vstavili ste:" & Chr (13) & _ bText & Chr (13) & bNumber,, "Rezultat iz polj INPUT" End Sub
Metoda INPUTBOX ima tretji argument Type, ki odloča, kaj lahko uporabnik vstavi v pogovorno okno INPUTBOX.
Vrsta je lahko ena od naslednjih:
Vrsta:
Sprejeti vnos: 0 A formula 1 Število 2 Besedilo 4 Logična vrednost (True ali False) 8 Sklic na celico, npr. a Range-object 16 Vrednost napake, npr. #N/A 64 Niz vrednosti
Ko zaženemo makro, bomo videli naslednja polja za vnos:
Na ta način lahko dobimo rezultat v polju za sporočila.