VBA - InputBox

los InputBox functionsolicita a los usuarios que ingresen valores. Después de ingresar los valores, si el usuario hace clic en el botón Aceptar o presiona ENTER en el teclado, la función InputBox devolverá el texto en el cuadro de texto. Si el usuario hace clic en el botón Cancelar, la función devolverá una cadena vacía ("").

Sintaxis

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

Descripción de parámetros

  • Prompt- Un parámetro requerido. Una cadena que se muestra como un mensaje en el cuadro de diálogo. La longitud máxima del mensaje es de aproximadamente 1024 caracteres. Si el mensaje se extiende a más de una línea, las líneas se pueden separar utilizando un carácter de retorno de carro (Chr (13)) o un carácter de salto de línea (Chr (10)) entre cada línea.

  • Title- Un parámetro opcional. Una expresión de cadena que se muestra en la barra de título del cuadro de diálogo. Si el título se deja en blanco, el nombre de la aplicación se coloca en la barra de título.

  • Default- Un parámetro opcional. Un texto predeterminado en el cuadro de texto que al usuario le gustaría que se muestre.

  • XPos- Un parámetro opcional. La posición deXEl eje representa la distancia del mensaje desde el lado izquierdo de la pantalla horizontalmente. Si se deja en blanco, el cuadro de entrada se centra horizontalmente.

  • YPos- Un parámetro opcional. La posición deYEl eje representa la distancia de solicitud desde el lado izquierdo de la pantalla verticalmente. Si se deja en blanco, el cuadro de entrada está centrado verticalmente.

  • Helpfile- Un parámetro opcional. Una expresión de cadena que identifica el archivo de ayuda que se utilizará para proporcionar ayuda contextual para el cuadro de diálogo.

  • context- Un parámetro opcional. Una expresión numérica que identifica el número de contexto de la Ayuda asignado por el autor de la Ayuda al tema de la Ayuda correspondiente. Si se proporciona contexto, también se debe proporcionar el archivo de ayuda.

Ejemplo

Calculemos el área de un rectángulo obteniendo valores del usuario en tiempo de ejecución con la ayuda de dos cuadros de entrada (uno para el largo y otro para el ancho).

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

Salida

Step 1 - Para ejecutar lo mismo, llame usando el nombre de la función y presione Enter como se muestra en la siguiente captura de pantalla.

Step 2- Tras la ejecución, se muestra el primer cuadro de entrada (longitud). Ingrese un valor en el cuadro de entrada.

Step 3 - Después de ingresar el primer valor, se muestra el segundo cuadro de entrada (ancho).

Step 4- Al ingresar el segundo número, haga clic en el botón Aceptar. El área se muestra como se muestra en la siguiente captura de pantalla.