Cajas de Diálogos MSGBOX

Cajas de Diálogos MSGBOX

Código Macro

'Estos códigos muestran mensajes emergentes...

Sub Mensaje1()
    MsgBox "Hola..."
End Sub
 
Sub Mensaje2()
    Entrada = MsgBox("Hola...", vbOKOnly)
End Sub
 
Sub Mensaje3()
    Entrada = MsgBox("Hola...", vbOKOnly, "Saludo:")
End Sub
 
Sub Mensaje4()
    Entrada = MsgBox("¿Te gusta mi web?", vbYesNo Or vbQuestion)
    MsgBox "Usted seleccionó que " & Entrada
End Sub
 
Sub Entrada1()
    Entrada = InputBox("Su nombre, por favor ")
    MsgBox "Su nombre es " & Entrada
End Sub
 
Otros formatos mas...
 
    MsgBox "Acá va el texto.", vbCritical, "Acá va el Título"
    MsgBox "Acá va el texto.", vbExclamation, "Acá va el Título"
    MsgBox "Acá va el texto.", vbInformation, "Acá va el Título"
    MsgBox "Acá va el texto.", vbQuestion, "Acá va el Título"
 

Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea agregarlo, mantener apretado la tecla "ALT + F11", luego seleccionar la solapa "INSERTAR", y desde ahí elegir "MODULO".

Y en el módulo pegar el código completo del macro, para luego poder usarlo.

Para Usar el macro, volver a la hoja de Excel de la siguiente manera, mantener apretado la tecla "ALT + F11", o minimizando o cerrando el editor de VBA.

Y en la hoja de cálculo insertar una FORMA o IMAGEN, luego hacerle clic derecho a la misma y seleccionar, "ASIGNAR MACRO", y elegir el macro deseado que de antemano hemos copiado.

Recuerde que el libro de Excel deberá guardarlo como "LIBRO DE EXCEL HABILITADO PARA MACROS"...