Msgbox vba excel

A continuación se muestra el código que le dará este cuadro de mensaje:

Sub DefaultMsgBox ()
MsgBox "Este es un cuadro de muestra"
End Sub

Tenga en cuenta que la cadena de texto debe estar entre comillas dobles.

También puede usar la constante de botón vbOKOnly, pero incluso si no especifica nada, se toma por defecto.

Botones MsgBox – Aceptar y Cancelar

Si solo desea mostrar el botón Aceptar y Cancelar, debe usar la constante vbOKCancel.

Sub MsgBoxOKCancel ()
MsgBox "¿Desea continuar?", VbOKCancel
End Sub

Botones MsgBox Sí y No

Puede utilizar la constante ‘vbYesNo’ para mostrar los botones Sí y No.

Sub MsgBoxYesNo ()
MsgBox "¿Debemos detenernos?", VbYesNo
End Sub

Botones MsgBox: Sí, No y Cancelar

Puede utilizar la constante ‘vbYesNoCancel’ para mostrar los botones Sí, No y Cancelar.

Sub MsgBoxYesNoCancel ()
MsgBox "¿Debemos detenernos?", VbYesNoCancel
End Sub

Constantes de icono de Excel VBA MsgBox (ejemplos)

Además de los botones, también puede personalizar los iconos que se muestran en el cuadro de diálogo MsgBox. Por ejemplo, puede tener un ícono rojo crítico o un ícono de información azul.

A continuación se muestra una tabla que enumera el código que mostrará el icono correspondiente.

Iconos de MsgBox – Crítico

Si desea mostrar un icono crítico en su MsgBox, use la constante vbCritical. Puede usar esto junto con otras constantes de botón (colocando un signo + entre los códigos).

Si desea mostrar el icono crítico con los botones Sí y No, utilice el siguiente código:

Sub MsgBoxCriticalIcon ()
MsgBox "Este es un cuadro de muestra", vbYesNo + vbCritical
End Sub

Iconos de MsgBox – Pregunta

Si desea mostrar un icono crítico en su MsgBox, use la constante vbQuestion.

Sub MsgBoxQuestionIcon ()
MsgBox "Este es un cuadro de muestra", vbYesNo + vbQuestion
End Sub

Iconos de MsgBox – Exclamación

Si desea mostrar un icono de exclamación en su MsgBox, utilice la constante vbExclamation.

Sub MsgBoxExclamationIcon ()
MsgBox "Este es un cuadro de muestra", vbYesNo + vbExclamation
End Sub

Iconos de MsgBox vba – Información

Si desea mostrar un icono de información en su MsgBox, use la constante vbInformation.

Sub MsgBoxInformationIcon ()
MsgBox "Este es un cuadro de muestra", vbYesNo + vbInformation
End Sub

Personalizar el título y el mensaje en MsgBox

Al usar MsgBox, puede personalizar el título y los mensajes de aviso.

Hasta ahora, el ejemplo que hemos visto ha utilizado Microsoft Excel como título. En caso de que no especifique el argumento del título, MsgBox usa automáticamente el título de la aplicación (que ha sido Microsoft Excel en este caso).

Puede personalizar el título especificándolo en el código como se muestra a continuación:

Sub MsgBoxInformationIcon ()
MsgBox "¿Desea continuar?", VbYesNo + vbQuestion, "Paso 1 de 3"
End Sub

También puede agregar saltos de línea en el mensaje de solicitud.

En el siguiente código, agregué un salto de línea usando ‘vbNewLine’.

Sub MsgBoxInformationIcon ()
MsgBox "¿Desea continuar?" & vbNewLine & "Haga clic en Sí para continuar", 
vbYesNo + vbQuestion, "Paso 1 de 3"
End Sub

También puede utilizar el carácter de retorno de carro – Chr (13) – o salto de línea – Chr (10) para insertar una nueva línea en el mensaje de solicitud.

Tenga en cuenta que puede agregar una nueva línea solo al mensaje de solicitud y no al título.

Asignar valor MsgBox a una variable

Hasta ahora, hemos visto ejemplos en los que hemos creado cuadros de mensaje y personalizamos los botones, los iconos, el título y el mensaje.

Sin embargo, hacer clic en un botón no ha hecho nada.

Con la función MsgBox VBA Excel, puede decidir qué desea hacer cuando un usuario hace clic en un botón específico. Y esto es posible ya que cada botón tiene un valor asociado.

A continuación se muestra una tabla que muestra los valores exactos y la constante devuelta por la función MsgBox. 

En el siguiente código, si el usuario hace clic en Sí, se muestra el mensaje «Hizo clic en Sí», y si el usuario hace clic en No, muestra «Usted hizo clic en No».

Sub MsgBoxInformationIcon ()
Resultado = MsgBox ("¿Desea continuar?", VbYesNo + vbQuestion)
Si Result = vbYes Entonces
MsgBox "Hiciste clic en Sí"
De lo contrario: MsgBox "Hiciste clic en No"
Terminara si
End Sub

En el código anterior, he asignado el valor de la función MsgBox a la variable Result. Cuando hace clic en el botón Sí, la variable Resultado obtiene la constante vbYes (o el número 6) y cuando hace clic en No, la variable Resultado obtiene la constante vbNo (o el número 7).

Luego utilicé una construcción If Then Else para verificar si la variable Result tiene el valor vbYes. Si lo hace, muestra el mensaje «Hizo clic en Sí», de lo contrario, muestra «Hizo clic en No».

Puede usar el mismo concepto para ejecutar un código si un usuario hace clic en Sí y sale del sub cuando hace clic en No.