{"id":1328,"date":"2020-10-15T11:29:11","date_gmt":"2020-10-15T11:29:11","guid":{"rendered":"https:\/\/smartcodebuilders.com\/wp\/?p=1328"},"modified":"2020-10-27T04:29:39","modified_gmt":"2020-10-27T04:29:39","slug":"uso-de-la-funcion-msgbox-en-vba","status":"publish","type":"post","link":"https:\/\/smartcodebuilders.com\/wp\/uso-de-la-funcion-msgbox-en-vba\/","title":{"rendered":"Uso de la funci\u00f3n Msgbox en VBA"},"content":{"rendered":"\r\n

La comunicaci\u00f3n con tu computador es de gran importancia para facilitar tu experiencia de uso de alg\u00fan programa o aplicaci\u00f3n. Al igual que los de los Userforms<\/a>, los cuadros de di\u00e1logo son una de las opciones m\u00e1s usadas en la interacci\u00f3n con el usuario , ya que por medio de estos el programa hacer saber, por ejemplo, si existe la necesidad de introducir alg\u00fan dato, o simplemente que conozcas que los resultados de alg\u00fan procedimiento fueron satisfactorios o err\u00f3neos.<\/p>\r\n\r\n\r\n\r\n

Los cuadros de dialogo en VBA pueden ser de dos tipos: los de ingreso de datos, tambi\u00e9n conocidos como InputBox<\/em>, e informativos, conocidos como Message Box<\/em> (MsgBox<\/em>), el cual abordaremos en este tutorial.<\/em><\/p>\r\n\r\n\r\n\r\n

Sintaxis b\u00e1sica del Msgbox en VBA<\/h2>\r\n\r\n\r\n\r\n

La instrucci\u00f3n en VBA para mostrar un MsgBox<\/em> b\u00e1sico sigue esta estructura:<\/p>\r\n\r\n\r\n\r\n

MsgBox<\/span> Mensaje<\/em><\/p>\r\n\r\n\r\n\r\n

Por ejemplo:<\/p>\r\n\r\n\r\n\r\n

Sub MsgboxBasico()\r\n  MsgBox \"Analysis completed\"\r\nEnd Sub<\/span><\/pre>\r\n\r\n\r\n\r\n
\"\"<\/figure>\r\n\r\n\r\n\r\n
El mensaje que aparece en el cuadro de dialogo puede tener una longitud m\u00e1xima de 256 caracteres. Si tu mensaje excede esa longitud, ser\u00e1 autom\u00e1ticamente truncado por VBA a los 256 caracteres.<\/p>\r\n\r\n\r\n\r\n
En algunas ocasiones ser\u00e1 conveniente almacenar el mensaje que quieres mostrar en una variable<\/a>, como te mostramos en el siguiente ejemplo:<\/p>\r\n\r\n\r\n\r\n
Sub MsgboxBasico() <\/span>\r\n  Dim Message As String\r\n  Message = \"Analysis completed\"\r\n  MsgBox Message\r\nEnd Sub<\/span><\/pre>\r\n\r\n\r\n\r\n
\"\"<\/figure>\r\n\r\n\r\n\r\n
Argumentos opcionales de los Msgbox<\/h2>\r\n\r\n\r\n\r\n
Los MsgBox<\/em> tienen algunas utilidades que permiten potenciar su funcionamiento y mejorar la experiencia del usuario del programa. Para ello debemos utilizar algunos argumentos opcionales en la estructura del MsgBox<\/em>, los cuales describimos a continuaci\u00f3n:<\/p>\r\n\r\n\r\n\r\n
MsgBox<\/span> Arg1, Arg2, Arg3<\/p>\r\n\r\n\r\n\r\n
\"\"<\/figure>\r\n\r\n\r\n\r\n
Donde:<\/p>\r\n\r\n\r\n\r\n
Arg1: representa el mensaje que va a ser mostrado en el cuadro de di\u00e1logo. Es el \u00fanico argumento obligatorio.<\/p>\r\n\r\n\r\n\r\n
Arg2: es un argumento opcional. Es el m\u00e1s rico de informaci\u00f3n ya que controla tanto la cantidad y tipo de botones como los iconos ilustrativos que aparecer\u00edan en el cuadro de dialogo. A continuaci\u00f3n te mostramos alguno de los comandos m\u00e1s utilizados para este argumento:<\/p>\r\n\r\n\r\n\r\n
\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n
Constante<\/strong><\/td>\r\nValor<\/strong><\/td>\r\nDescripci\u00f3n<\/strong><\/td>\r\n<\/tr>\r\n<\/thead>\r\n
vbOKOnly<\/td>\r\n0<\/td>\r\nS\u00f3lo muestra el bot\u00f3n \u201cOK\u201d<\/td>\r\n<\/tr>\r\n
vbOKCancel<\/td>\r\n1<\/td>\r\nS\u00f3lo muestra el bot\u00f3n \u201cCancelar\u201d<\/td>\r\n<\/tr>\r\n
vbAbortRetryIgnore<\/td>\r\n2<\/td>\r\nMuestra los botones de Abortar e ignorar<\/td>\r\n<\/tr>\r\n
vbYesNoCancel<\/td>\r\n3<\/td>\r\nMuestra los botones \u201cSi\u201d,\u00a0 \u201cNo\u201d y \u201cCancelar\u201d<\/td>\r\n<\/tr>\r\n
vbYesNo<\/td>\r\n4<\/td>\r\nMuestra los botones \u201cSi\u201d y \u201cNo\u201d<\/td>\r\n<\/tr>\r\n
vbRetryCancel<\/td>\r\n5<\/td>\r\nMuestra los botones \u201cReintentar\u201d y \u201cCancelar\u201d<\/td>\r\n<\/tr>\r\n
vbCritical<\/td>\r\n16<\/td>\r\nIcono de error o falla cr\u00edtica<\/td>\r\n<\/tr>\r\n
vbQuestion<\/td>\r\n32<\/td>\r\nIcono de interrogaci\u00f3n<\/td>\r\n<\/tr>\r\n
vbExclamation<\/td>\r\n48<\/td>\r\nIcono de exclamaci\u00f3n<\/td>\r\n<\/tr>\r\n
vbInformation<\/td>\r\n64<\/td>\r\nIcono de informaci\u00f3n<\/td>\r\n<\/tr>\r\n
vbMsgBoxRight<\/td>\r\n524288<\/td>\r\nAlineaci\u00f3n del texto a la derecha<\/td>\r\n<\/tr>\r\n<\/tbody>\r\n<\/table>\r\n
* El texto de los botones aparecer\u00e1 en el idioma del sistema operativo del computador<\/figcaption>\r\n<\/figure>\r\n\r\n\r\n\r\n
\"\"<\/figure>\r\n\r\n\r\n\r\n
Un aspecto particular de este argumento es que puedes hacer una combinaci\u00f3n de botones e iconos. Para ello debes \u00a0colocar el signo \u201c+\u201d entre los valores o constantes del \u201cArg2\u201d.<\/p>\r\n\r\n\r\n\r\n
Por ejemplo, si quisi\u00e9ramos que nuestro MsgBox<\/em> tuviese los botones \u201cSi\u00bb y \u00abNo\u201d y a la vez mostrara el icono de interrogaci\u00f3n, podr\u00edamos hacerlo de las siguientes maneras ya que son equivalentes si empleamos los valores o las constantes:<\/p>\r\n\r\n\r\n\r\n
MsgBox<\/span> \u00abMessage\u00bb, 4 + 32<\/span>, \u00abHeader\u00bb ‘—> Usando valores<\/p>\r\n\r\n\r\n\r\n
MsgBox<\/span> \u00abMessage\u00bb, vbYesNo + vbQuestion<\/span>, \u00abHeader\u00bb ‘—> Usando constantes<\/p>\r\n\r\n\r\n\r\n
\"\"<\/figure>\r\n\r\n\r\n\r\n
Arg3: es un argumento opcional que corresponde al encabezado del cuadro de dialogo. Podr\u00eda manejarse igual que el cuerpo del mensaje a trav\u00e9s de una variable que cambiar\u00eda seg\u00fan el resultado de procedimientos de tu macro. Si deseas incluir un encabezado sin alterar los valores por defecto de \u201cArg2\u201d deber\u00e1s dejar un espacio separado por comas en la linea de instrucci\u00f3n del c\u00f3digo, de la siguiente forma:<\/p>\r\n\r\n\r\n\r\n
MsgBox \u00abMessage\u00bb, , \u00abHeader\u00bb<\/p>\r\n\r\n\r\n\r\n
\"\"<\/figure>\r\n\r\n\r\n\r\n
Valores de respuesta de los botones en los Msgbox<\/h2>\r\n\r\n\r\n\r\n
Cuando empleamos botones diferentes al \u201cAceptar\u201d, tendr\u00edamos la opci\u00f3n de almacenar la respuesta del usuario en una variable y con ello poder tomar alg\u00fan tipo de decisi\u00f3n. Normalmente estas opciones est\u00e1n asociada a condicionales<\/a>.<\/p>\r\n\r\n\r\n\r\n
\"\"<\/figure>\r\n\r\n\r\n\r\n
Para que puedas hacer alguna operaci\u00f3n con la respuesta del Msgbox, debes modificar ligeramente la estructura b\u00e1sica, como te mostramos a continuaci\u00f3n:<\/p>\r\n\r\n\r\n\r\n
VariableRespuesta<\/span><\/em> = MsgBox<\/span> (Arg1, Arg2, Arg3)<\/p>\r\n\r\n\r\n\r\n
La variable de respuesta tomara valores en funci\u00f3n a la elecci\u00f3n del usuario. En el siguiente cuadro observar\u00e1s ejemplos para cada caso.<\/p>\r\n\r\n\r\n\r\n
\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n
Descripci\u00f3n del Bot\u00f3n<\/strong><\/td>\r\nRespuesta (Constante)<\/strong><\/td>\r\nRespuesta (Valor)<\/strong><\/td>\r\nEjemplo<\/strong><\/td>\r\n<\/tr>\r\n<\/thead>\r\n
\u00a0\u201cOK\u201d<\/td>\r\nvbOK<\/td>\r\n1<\/td>\r\nanswer = MsgBox(Message, vbOKOnly, Header) If answer = vbOK Then \u00a0\u00a0\u00a0 Contin\u00faa el c\u00f3digo\u2026<\/em><\/td>\r\n<\/tr>\r\n
\u00a0\u201cCancelar\u201d<\/td>\r\nvbCancel<\/td>\r\n2<\/td>\r\nanswer = MsgBox(Message, vbOKCancel, Header) If answer = 2 Then \u00a0\u00a0\u00a0 Contin\u00faa el c\u00f3digo\u2026<\/em><\/td>\r\n<\/tr>\r\n
Abortar<\/td>\r\nvbAbort<\/td>\r\n3<\/td>\r\nanswer = MsgBox(Message, vbAbortRetryIgnore, Header) If answer = vbAbort Then \u00a0\u00a0\u00a0 Contin\u00faa el c\u00f3digo\u2026<\/em><\/td>\r\n<\/tr>\r\n
Reintentar<\/td>\r\nvbRetry<\/td>\r\n4<\/td>\r\nanswer = MsgBox(Message, vbAbortRetryIgnore, Header) If answer = vbRetry Then \u00a0\u00a0\u00a0 Contin\u00faa el c\u00f3digo\u2026<\/em><\/td>\r\n<\/tr>\r\n
Ignorar<\/td>\r\nvbIgnore<\/td>\r\n5<\/td>\r\nanswer = MsgBox(Message, vbAbortRetryIgnore, Header) If answer = 5 Then \u00a0\u00a0\u00a0 Contin\u00faa el c\u00f3digo\u2026<\/em><\/td>\r\n<\/tr>\r\n
Si<\/td>\r\nvbYes<\/td>\r\n6<\/td>\r\nanswer = MsgBox(Message, vbYesNoCancel, Header) If answer = vbYes Then \u00a0\u00a0\u00a0 Contin\u00faa el c\u00f3digo\u2026<\/em><\/td>\r\n<\/tr>\r\n
No<\/td>\r\nvbNo<\/td>\r\n7<\/td>\r\nanswer = MsgBox(Message, vbYesNoCancel, Header) If answer = vbNo Then \u00a0\u00a0\u00a0 Contin\u00faa el c\u00f3digo\u2026<\/em><\/td>\r\n<\/tr>\r\n<\/tbody>\r\n<\/table>\r\n<\/figure>\r\n\r\n\r\n\r\n
Ejemplos de uso de la funci\u00f3n Msgbox de VBA<\/h2>\r\n\r\n\r\n\r\n
Como vimos anteriormente, cuando realices la programaci\u00f3n de los botones, iconos y textos de los Msgbox, puedes escoger entre el uso de valores o constantes en los argumentos de la funci\u00f3n. A continuaci\u00f3n te presentamos varios casos de ejemplo para que puedas adaptar los Msgbox a tus necesidades.<\/p>\r\n\r\n\r\n\r\n
Ejemplo de Msgbox con \u00edcono cr\u00edtico y botones de abortar, reintentar e ignorar<\/h3>\r\n\r\n\r\n\r\n
Usando valores:<\/p>\r\n\r\n\r\n\r\n
Sub MsgboxPrueba() \r\n  Message = \"Mensaje de Error\"\r\n  Header = \"Error\"\r\n  Answer=MsgBox (Message, 2 + 16, Header)<\/span>\r\n  If Answer = 3 Then\r\n   Exit Sub\r\n  End If\r\nEnd Sub<\/span><\/pre>\r\n\r\n\r\n\r\n
Usando constantes:<\/p>\r\n\r\n\r\n\r\n
Sub MsgboxPrueba() \r\n  Message = \"Mensaje de Error\"\r\n  Header = \"Error\"\r\n  Answer=MsgBox (Message, vbAbortRetryIgnore + vbCritical, Header<\/span>)\r\n  If Answer = vbAbort Then\r\n    Exit Sub\r\n  End If\r\nEnd Sub<\/span><\/pre>\r\n\r\n\r\n\r\n
\"\"<\/figure>\r\n\r\n\r\n\r\n
Ejemplo de Msgbox con \u00edcono de interrogaci\u00f3n y botones de S\u00ed y No<\/h3>\r\n\r\n\r\n\r\n
Usando valores:<\/p>\r\n\r\n\r\n\r\n
Sub MsgboxPrueba() \r\n  Message = \"Mensaje de pregunta\"\r\n  Header = \"Pregunta\"\r\n  Answer=MsgBox (Message, 4 + 32, Header)<\/span>\r\n  If Answer = 6 Then\r\n    MsgBox \"Yes\"\r\n  End If\r\nEnd Sub<\/span><\/pre>\r\n\r\n\r\n\r\n
Usando constantes:<\/p>\r\n\r\n\r\n\r\n
Sub MsgboxPrueba() \r\n  Message = \"Mensaje de pregunta\"\r\n  Header = \"Pregunta\"\r\n  Answer=MsgBox (Message, vbYesNo + vbQuestion, Header)<\/span>\r\n  If Answer = vbYes Then\r\n    MsgBox \"Yes\"\r\n  End If\r\nEnd Sub<\/span><\/pre>\r\n\r\n\r\n\r\n
\"\"<\/figure>\r\n\r\n\r\n\r\n
Ejemplo de Msgbox con \u00edcono de informaci\u00f3n y texto alineado a la derecha<\/h3>\r\n\r\n\r\n\r\n
Usando valores:<\/p>\r\n\r\n\r\n\r\n
Sub MsgboxPrueba() \r\n  Message = \"Mensaje Alineado a la derecha\"\r\n  Header = \"Informaci\u00f3n\"\r\n  MsgBox Message, 48 + 524288, Header\r\nEnd Sub<\/span><\/pre>\r\n\r\n\r\n\r\n
Usando constantes:<\/p>\r\n\r\n\r\n\r\n
Sub MsgboxPrueba() \r\n  Message = \"Mensaje Alineado a la derecha\"\r\n  Header = \"Informaci\u00f3n\"\r\n  MsgBox Message, vbExclamation + vbMsgBoxRight, Header\r\nEnd Sub<\/span><\/pre>\r\n\r\n\r\n\r\n
\"\"<\/figure>\r\n\r\n\r\n\r\n
Recuerda que puedes combinar los tres tipos de argumentos en un mismo MsgBox<\/em> seg\u00fan lo requieras!<\/p>\r\n\r\n\r\n\r\n
Con estas herramientas que has aprendido ahora mejoraras la experiencia de los usuarios de tus macros. No dejes del practicar estos trucos y veras la diferencia.<\/p>\r\n\r\n
 <\/p>\r\n\r\n