Visualización del cuadro de mensaje correcto a los usuarios es fundamental cuando se necesita para ejecutar código en función de sus respuestas. VBA tiene una selección de cuadros de mensaje con las opciones del botón para satisfacer las necesidades de su aplicación . Si usted necesita para mostrar un mensaje al usuario y no es necesario tomar medidas sobre la base de la respuesta , utilice un cuadro de mensaje con un botón " OK" . Utilice los cuadros de mensaje con botones de opciones tales como " Sí" o " No" cuando se necesita para ejecutar una parte de código distinta para cada botón. Instrucciones
1

clic en la pestaña " desarrolladores" y haga clic en "Visual Basic " para abrir la ventana Editor 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 Integer , añadiendo el siguiente código: .

Private Sub cuadros de mensajes ( ) guía

returnVal Dim As Integer
3

mostrar un cuadro de mensaje con el 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 botón "Cancelar ", "OK ", y :

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 ver el resultado a través de la ventana Inmediato :

Si ( returnVal = 1 ) entonces

Debug.Print " botón OK se hizo clic en "

demás

Debug.Print " botón Cancelar se hace clic en "

End Si
6

Agregue el código para mostrar un cuadro de mensaje con los botones "Cancelar ", " Reintentar " y "Omitir : "

returnVal = MsgBox ( "Mensaje con Abortar , Reintentar , y haga caso de los botones " , vbAbortRetryIgnore , " AbortRetryIgnore ")
7

determinar qué botón se presionó y mostrar los resultados a través de la ventana Inmediato , agregue el código siguiente :

Si ( returnVal = 3 ) Luego

Debug.Print " botón Abortar se hace clic en "

ElseIf ( returnVal = 4 ) Entonces

Debug.Print " se hace clic en el botón Reintentar "

demás

Debug.Print " Ignorar botón se hizo clic en "

End If
8

Añadir un " Sí" o " No" cuadro de mensaje botón :

returnVal = MsgBox ( "Mensaje con botones Sí y No " , vbYesNo : "Sí y No")
9

Determine el botón pulsado por el usuario , añadiendo el siguiente código:

Si ( returnVal = 6 ) Luego

Debug.Print " Si se hace clic en el botón "

demás

Debug.Print " No se hizo clic en el botón "

End If
10

Fin del procedimiento mediante la adición de "End Sub " como la última línea de código. Pulse la tecla "Ctrl " y "G " para mostrar la ventana Inmediato y presione "F5 " para ejecutar el procedimiento .