Función InputBox en VBA

Usamos la función InputBox de Excel para obtener la entrada del usuario. Es importante recordar incluir validaciones de datos correctos, esto asegurará que la entrada de datos correspondan con lo que el programa necesita.

Sintaxis del Inputbox en VBA

La función Inputbox presenta un mensaje al usuario, permitiéndole ingresar un valor en una caja de texto.

Los parámetros principales de esta función son:

Inputbox (Promt, Title, Default)

• El parámetro Prompt especifica la leyenda que mostrará la caja de mensajes.
• El parámetro Title especifica el título que llevará el cuadro de diálogo.
• El parámetro Default es el texto que mostrará la caja de texto (es opcional).

El aspecto más importante de InputBox es que nos devuelve una cadena con lo que haya ingresado el usuario en la caja de texto. Luego podemos realizar una tarea específica dependiendo del valor obtenido.

Veamos por ejemplo en la siguiente macro, en al que puede observar como se solicita un dato, donde "Ingrese cantidad" es la leyenda o prompt, y "Título" es el texto que se emplea como título, luego de anotar el valor, y presionar aceptar, el valor empleado es entregado a la variable "X"

Sub Test()

x = InputBox("Ingrese cantidad", "Título")

MsgBox x

End Sub

Sintaxis completa de Inputbox

lnputBox(prompt, title, default, left, top, helpfile, context, type)

Además de los tres elementos ya descritos, el Inputbox cuenta con:

left: es la distancia desde la parte izquierda de la pantalla.

top: es la distancia desde la parte superior de la pantalla.

helpfile, context: son datos opcionales,  correspondiente al archivo de ayuda, no son de uso frecuente.

type: es opcional, sirve para identificar el tipo de dato a ser devuelto, los tipos datos pueden ser: 

0: Una fórmula.

1: Un número.

2: Una cadena (texto).

4: Un valor lógico (Verdadero o Falso).

8: Una referencia de celda, como un objeto Range

16: Un valor de error, como #N/A.

64: Una matriz de valores

Por ejemplo si requerimos una referencia a una celda podríamos usar: 

Private Sub ejemplo_inputbox()

Dim x As Range

Set x = Application.InputBox("Mensaje", "título", Type:=8)

x.Clear

x.Select

End Sub

 

Ejemplos de InputBox

Solicitar varios nombres usando Inputbox

A través del uso de la función InputBox, creamos una macro que nos permita registrar los nombres de las personas que consignaremos en la caja de información. 1º Creamos la macro:

Sub nombres()


Dim i As String


Dim a As Integer


Range("A1:A5").Select        'seleccionamos rango de trabajo


For a = 0 To Selection.Cells.Count  'realizar repeticiones para cada celda

i = (InputBox("Ingrese su nombre", "Nombre")) 'recuperamos las cadena del inputbox


ActiveCell.Offset(a, 0).Value = i  'bajamos por las celdas de la selección de 1 en 1


Next a


End Sub


2° Ejecutamos la macro y registramos los nombres de la siguiente manera:

2.1. Ejecutando la macro

(Para mayor visualización de la imagen, hacer click en la misma)

2.2. Digitar en la caja de texto los nombres a registrarse y luego aceptar

(Para mayor visualización de la imagen, hacer click en la misma)

Ejemplo elaborado por: Ricardo Najarro Chuchón

Descargar ejemplo: Función InputBox en VBA  

 

Solicitar un nombre y colocarlo en una celda

A través del uso de la función InputBox, solicitaremos datos de los usuarios para que de esta manera accedan al programa. Para ello:

1° En la hoja de cálculo, insertaremos cuadros de texto Activex.

2° Hacemos doble click en el primer cuadro de texto y vamos cambiando los nombres en los respectivos caption. Asimismo introducimos la functión INPUTBOX para lograr que aparezca una caja de información solicitándonos datos personales:

Private Sub CommandButton1_Click()


Dim mensaje As String


Dim nombre As String


mensaje = "Por favor, escriba su nombre."


nombre = InputBox(mensaje)


Range("a2").Value = nombre


End Sub
 

3° Finalmente, probamos el resultado en la hoja de Excel.

Ejemplo elaborado por: Sara Ramos

Descargar Ejemplo: Ejemplo Inputbox en VBA