Si desea obtener información del usuario, puede utilizar la función INPUTBOX.

Esta función muestra un cuadro de diálogo que permite al usuario completar cualquier cosa y devuelve el contenido como una cadena.

A veces, desea decidir qué se supone que debe completar el usuario, en lugar de aceptar cualquier información. Ahí es cuando usas el método 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

El método INPUTBOX tiene un tercer argumento, Type, que decide qué puede insertar el usuario en el cuadro de diálogo INPUTBOX.

El tipo puede ser uno de los siguientes:

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

Cuando ejecutemos la macro, veremos los siguientes cuadros de entrada:

img1

img2

De esta forma podemos obtener el resultado a través del cuadro de mensaje.