Vamos a trabajar un poco con código en Excel de forma que nos pida información, y de acuerdo con esa información recibiremos una respuesta. En código VBA usaremos dos elementos:
- InputBox
- MsgBox
Cuando ejecutemos la macro que contiene inputbox, aparece un cuadro de dialogo pidiendo datos. Con msgbox ejecutándose muestra una ventana con unos datos. Vamos a crear una macro que nos pida unos datos y de acuerdo con ellos nos dará una respuesta.
Pinchamos en Programador y después en Visual Basic:
Como muestra la imagen, también podemos pulsar la combinación de teclas Alt+F11 para poder introducir el código de la macro. Introducimos un nuevo módulo con Insertar / Módulo. Ahora vamos a introducir un módulo con los elementos de los que hablamos. Escribiremos:
Sub introducir_datos()
Dim Autor As String
Dim titulo As String
Dim Mensaje As String
autor = InputBox("Introducir autor:", "Datos del libro")
titulo = InputBox("Introducir Título:", "Datos del libro")
Mensaje = "Bienvenido, el título es: " & titulo & " y el autor es: " & autor
MsgBox Mensaje
End Sub
Con dim definimos 3 variables, autor, titulo y mensaje. Con cada inputbox pedimos al usuario de Excel que introduzca datos, el primero le pide el autor del libro, y el segundo el título del libro. Los datos se almacenan en las variables autor y titulo respectivamente. Ahora solo queda visualizar los datos. Unimos en primer lugar las variables titulo y autor en la variable mensaje con el símbolo & e incluyendo texto entrecomillado. Ahora msgbox muestra la variable mensaje al completo.
Cerramos la ventana de VBA. Vamos ahora a insertar un botón que ejecute la macro. pinchamos en la cinta del programador en insertar:
y seleccionamos el botón de los controles de formulario (el primer botón). Encima de las celdas arrastramos el ratón pinchando para ubicar el botón:
Aparece automáticamente la ventana:
Donde solo tenemos que seleccionar la macro que se ejecutará al pinchar en el botón. Como solo hay una macro la seleccionamos y pinchamos en aceptar. También podemos cambiar el nombre del botón. Hacemos un clic al comienzo del texto y ponemos el nuevo nombre y hacemos clic en una celda cualquiera que da como resultado el botón:
Ya solo queda ver el resultado, hacemos un clic en el botón aparece el siguiente resultado donde introduciremos el primer dato:
al pulsar en aceptar, aparece el otro cuadro de dialogo pidiendo el título del libro, que lo escribimos:
Por último, al pulsar en aceptar aparece el cuadro de dialogo que genera msgbox mostrando el resultado que buscamos:
Hemos visto como crear una macro que nos pide datos, y después visualiza información con ayuda de dos comandos inputbox, para dar información a Excel, y con msgbox muestra información almacenada en una variable.
Además hemos asociado a la macro a un botón que permite ejecutar la macro con un simple clic.
No hay comentarios:
Publicar un comentario