Ako želite dobiti bilo kakve informacije od korisnika, možete koristiti funkciju INPUTBOX.
Ova funkcija prikazuje dijaloški okvir koji omogućuje korisniku da ispuni sve i vrati sadržaj kao niz.
Ponekad želite odlučiti što bi korisnik trebao ispuniti, umjesto prihvaćanja bilo kakvih podataka. Tada koristite INPUTBOX-metodu:
Sub DecideUserInput () Dim bText As String, bNumber As Integer 'ovdje je INPUTBOX-funkcija: bText = InputBox ("Umetni u tekst", "Ovo prihvaća bilo koji ulaz")' ovdje je INPUTBOX-metoda: bNumber = Primjena. InputBox ("Umetni broj", "Ovo prihvaća samo brojeve", 1) MsgBox "Umetnuli ste:" & Chr (13) & _ bText & Chr (13) & bNumber,, "Rezultat iz INPUT-okvira" End Sub
INPUTBOX-metoda ima treći argument, Type, koji odlučuje što je korisniku dopušteno umetnuti u INPUTBOX-dijalog.
Vrsta može biti jedna od sljedećih:
Vrsta:
Prihvaćeni unos: 0 A formula 1 Broj 2 Tekst 4 Logička vrijednost (Točno ili Netačno) 8 Referenca ćelije, npr. a Range-object 16 Vrijednost pogreške, npr. #N/A 64 Niz vrijednosti
Kada pokrenemo makro, vidjet ćemo sljedeće okvire za unos:
Na ovaj način možemo doći do rezultata kroz okvir s porukom.