InputBox es una función básica de VBA para interactuar con los usuarios del programa. Le permite mostrar un cuadro de diálogo que solicita al usuario que ingrese información como texto, números o fechas. Esta información luego se puede utilizar en su código para realizar diversas tareas.
Sintaxis:
InputBox(prompt, [title], [default], [x], [y], [type])
Parámetros:
- prompt: Texto que se muestra en el cuadro de diálogo para indicar al usuario qué tipo de información debe ingresar.
- [title]: Título del cuadro de diálogo.
- [default]: Valor predeterminado que se muestra en el cuadro de diálogo.
- [x]: Posición horizontal del cuadro de diálogo en la pantalla.
- [y]: Posición vertical del cuadro de diálogo en la pantalla.
- [type]: Tipo de dato que se espera que ingrese el usuario:
- 0: Texto (predeterminado)
- 1: Número
- 2: Fecha
- 3: Booleano (Sí/No)
- 4: Lista desplegable con opciones predefinidas
Ejemplo 1. Solicitar un nombre de usuario:
nombreUsuario = InputBox("Ingrese su nombre: ")
MsgBox "Hola, " & nombreUsuario & "!"
Ejemplo 2: Solicitar una cantidad numérica:
cantidad = InputBox("Ingrese la cantidad: ", "Entrada de Cantidad", 100, 200, 100)
MsgBox "La cantidad ingresada es: " & cantidad
Ejemplo 3: Seleccionar una fecha:
fecha = InputBox("Seleccione una fecha: ", "Fecha de Nacimiento", Format(Date, "dd/mm/yyyy"), , , 2)
MsgBox "Su fecha de nacimiento es: " & fecha
Ejemplo 4: Obtener una respuesta Sí/No:
respuesta = InputBox("¿Desea continuar? (Sí/No)", "Confirmación", "Sí")
If respuesta = "Sí" Then
MsgBox "Continuando con el proceso..."
Else
MsgBox "Proceso cancelado."
End If
Ejemplo 5: Seleccionar una opción de una lista desplegable:
opcion = InputBox(«Seleccione una opción: «, «Selección de Opción», 1, , , 3)
Select Case opcion
Case 1
MsgBox "Ha seleccionado la opción 1."
Case 2
MsgBox "Ha seleccionado la opción 2."
Case 3
MsgBox "Ha seleccionado la opción 3."
End Select
