Tutorial sobre cuadros de mensaje de VBA en Excel

Mostrar el cuadro de mensaje correcto a los usuarios es crítico cuando necesitas ejecutar código en base a sus respuestas. VBA tiene una selección de cuadros de mensaje con opciones de botones para satisfacer las necesidades de tu aplicación. Si necesitas mostrar un mensaje al usuario y no es necesario tomar acciones en base a la respuesta, usa un cuadro de mensaje con un botón "OK". Usa cuadros de mensaje con botones de opciones como "Sí" o "No" cuando necesites ejecutar una sección diferente de código para cada botón.

NA/AbleStock.com/Getty Images

Otras personas están leyendo

Paso 1

Haz clic en la pestaña "Desarrollador" y luego haz clic en "Visual Basic" para ejecutar la ventana del editor de VB. Haz clic en el menú "Insertar" y "Módulo" para insertar un nuevo módulo de código.

Paso 2

Crea un nuevo procedimiento sub y una variable de tipo Integer añadiendo el siguiente código: Private Sub MessageBoxes() Dim returnVal As Integer

Paso 3

Muestra un cuadro de mensaje con un botón "OK": MsgBox "Message with OK button", vbOKOnly, "OK"

Paso 4

Añade el siguiente código para mostrar un cuadro de mensaje con un botón "OK" y uno para "Cancelar": returnVal = MsgBox("Message with OK and Cancel buttons", vbOKCancel, "OK & Cancel")

Paso 5

Escribe el siguiente código para determinar en qué botón se hizo clic y mostrar el resultado a través de la ventana inmediata: If (returnVal = 1) Then Debug.Print "OK button was clicked" Else Debug.Print "Cancel button was clicked" End If

Paso 6

Añade el código para mostrar un cuadro de mensaje con los botones "Abortar", "Reintentar" e "Ignorar": returnVal = MsgBox("Message with Abort, Retry, and Ignore buttons", vbAbortRetryIgnore, "AbortRetryIgnore")

Paso 7

Determina qué botón fue presionado y muestra los resultados a través de la ventana inmediata agregando el siguiente código: If (returnVal = 3) Then Debug.Print "Abort button was clicked" ElseIf (returnVal = 4) Then Debug.Print "Retry button was clicked" Else Debug.Print "Ignore button was clicked" End If

Paso 8

Añade un botón "Sí" y uno "No" en el cuadro de mensaje: returnVal = MsgBox("Message with Yes and No buttons", vbYesNo, "Yes & No")

Paso 9

Determina en qué botón hizo clic el usuario agregando el siguiente código: If (returnVal = 6) Then Debug.Print "Yes button was clicked" Else Debug.Print "No button was clicked" End If

Paso 10

Termina el procedimiento agregando "End Sub" como última línea del código. Presiona "Ctrl" y "G" para mostrar la ventana inmediata y presiona "F5" para ejecutar el procedimiento.

Referencias

Comentarios

Más reciente