Se vuoi ottenere informazioni dall’utente puoi usare la funzione INPUTBOX.

Questa funzione visualizza una finestra di dialogo che consente all’utente di riempire qualsiasi cosa e restituisce il contenuto come una stringa.

A volte si desidera 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

' here is the INPUTBOX-function :

bText = InputBox("Insert in a text", "This accepts any input")

' here is the INPUTBOX-method :

bNumber = Application.InputBox("Insert a number", "This accepts numbers only", 1)

MsgBox "You have inserted :" & Chr(13) & _

bText & Chr(13) & bNumber, , "Result from INPUT-boxes"

End Sub

Il metodo INPUTBOX ha un terzo argomento, Type, che decide cosa l’utente può inserire nella finestra di dialogo INPUTBOX.

Il tipo può essere uno dei seguenti:

Tipo:

Accepted input:

0   A formula

1   A number

2   Text

4   A logical value (True or False)

8   A cell reference, e.g. a Range-object

16  An error value, e.g. #N/A

64  An array of values

Quando eseguiamo la macro, vedremo le seguenti caselle di input:

img1

img2

In questo modo possiamo ottenere il risultato tramite message box.