Viendo el cuadro de mensaje correcto a los usuarios es fundamental cuando se necesita para ejecutar código en base a sus respuestas. VBA tiene una selección de cuadros de mensaje con opciones de botón para satisfacer las necesidades de su aplicación. Si se necesita mostrar un mensaje al usuario y no es necesario tomar medidas basadas en la respuesta, utilice un cuadro de mensaje con un botón "OK". Utilizar cuadros de mensaje con opciones de botón como "Sí" o "No" cuando se necesita para ejecutar una sección diferente del código de cada botón.
Instrucciones
1 Haga clic en la pestaña "desarrolladores" y haga clic en "Visual Basic" para abrir la ventana Editor de VB. Haga clic en el menú "Insertar" y "módulo" para insertar un nuevo módulo de código.
2 Crear un nuevo procedimiento sub y una variable entera añadiendo el siguiente código:
Sub cuadros de mensaje privado ()
Dim returnVal como número entero
3 Muestra un cuadro de mensaje con un botón "OK":
MsgBox "mensaje con el botón OK", vbOKOnly, "OK"
4 Agregue el código siguiente para mostrar un cuadro de mensaje con un "OK" y un botón "Cancelar":
returnVal = MsgBox ( "Mensaje con botones Aceptar y Cancelar", vbOKCancel, "Aceptar y Cancelar")
5 Escriba el siguiente código para determinar qué botón se hizo clic y mostrar el resultado a través de la ventana Inmediato:
Si (returnVal = 1) A continuación,
Debug.Print "OK button was clicked"
Más
Debug.Print "Cancel button was clicked"
Terminara si
6 Agregue el código para mostrar un cuadro de mensaje con los botones "Cancelar", "Volver a intentar" y "Omitir:"
returnVal = MsgBox ( "Mensaje con Anular, Reintentar y Omitir los botones", vbAbortRetryIgnore, "AbortRetryIgnore")
7 Determinar qué botón se presiona y mostrar los resultados a través de la ventana Inmediato añadiendo el código siguiente:
Si (returnVal = 3) A continuación,
Debug.Print "Abort button was clicked"
ElseIf (returnVal = 4) A continuación,
Debug.Print "Retry button was clicked"
Más
Debug.Print "Ignore button was clicked"
Terminara si
8 Añadir un "Sí" y "No" botón de cuadro de mensaje:
returnVal = MsgBox ( "Mensaje con botones Sí y No", vbYesNo, "Sí y No")
9 Determinar el botón hecho clic el usuario añadiendo el código siguiente:
Si (returnVal = 6) Entonces
Debug.Print "Yes button was clicked"
Más
Debug.Print "No button was clicked"
Terminara si
10 Poner fin al procedimiento mediante la adición de "End Sub" como la última línea de código. Pulse la tecla "Ctrl" y "G" para abrir la ventana Inmediato y presione la tecla "F5" para ejecutar el procedimiento.