Als u informatie van de gebruiker wilt krijgen, kunt u de INPUTBOX-functie gebruiken.
Deze functie geeft een dialoogvenster weer waarmee de gebruiker alles kan invullen en de inhoud als een tekenreeks retourneert.
Soms wil je beslissen wat de gebruiker moet invullen, in plaats van informatie te accepteren. Dan gebruik je de INPUTBOX-methode:
Sub DecideUserInput() Dim bText As String, bNumber As Integer ' hier is de INPUTBOX-functie : bText = InputBox("Invoegen in een tekst", "Dit accepteert elke invoer") 'hier is de INPUTBOX-methode: bNumber = Application. InputBox("Voer een nummer in", "Dit accepteert alleen nummers", 1) MsgBox "U hebt ingevoegd :" & Chr(13) & _ bText & Chr(13) & bNumber, , "Resultaat van INPUT-boxen" End Sub
De INPUTBOX-methode heeft een derde argument, Type, dat bepaalt wat de gebruiker mag invoegen in het INPUTBOX-dialoogvenster.
Type kan een van de volgende zijn:
Typ :
Geaccepteerde invoer: 0 Een formule 1 Een getal 2 Tekst 4 Een logische waarde (waar of niet waar) 8 Een celverwijzing, b.v. a Range-object 16 Een foutwaarde, b.v. #N.v.t. 64 Een reeks waarden
Wanneer we de macro uitvoeren, krijgen we de volgende invoervakken te zien:
Op deze manier kunnen we het resultaat krijgen via het berichtvenster.