Se vuoi ottenere qualsiasi informazione dall'utente puoi usare la funzione INPUTBOX.
Questa funzione visualizza una finestra di dialogo che consente all'utente di compilare qualsiasi cosa e restituisce il contenuto come stringa.
A volte vuoi decidere cosa deve compilare l'utente, invece di accettare qualsiasi informazione. Questo è quando usi il metodo INPUTBOX:
Sub DecideUserInput() Dim bText As String, bNumber As Integer 'ecco la funzione INPUTBOX: bText = InputBox("Insert in a text", "Questo accetta qualsiasi input") 'ecco il metodo INPUTBOX: bNumber = Application. InputBox("Inserisci un numero", "Questo accetta solo numeri", 1) MsgBox "Hai inserito :" & Chr(13) & _ bText & Chr(13) & bNumber, , "Risultato dalle caselle di INPUT" End Sub
Il metodo INPUTBOX ha un terzo argomento, Type, che decide cosa l'utente può inserire nella finestra INPUTBOX.
Il tipo può essere uno dei seguenti:
Tipo :
Input accettato: 0 Una formula 1 Un numero 2 Testo 4 Un valore logico (Vero o Falso) 8 Un riferimento di cella, ad es. a Oggetto intervallo 16 Un valore di errore, ad es. #N/A 64 Un array di valori
Quando eseguiamo la macro, vedremo le seguenti caselle di input:
In questo modo possiamo ottenere il risultato tramite message box.