Messagebox y Excel VBA

Las messagebox son muy útiles (y fáciles de usar), y crea una interfaz entre el usuario y el programa. Sirven para

Mostrar información al usuario
Recibir información del usuario
Devolver información del usuario

Construcción sintáctica de la messagebox

Msgbox "Mensaje", Botones/íconos, "Título"

o en el caso de devolver información

Respuesta = Msgbox("Mensaje", Botones/íconos, "Título")

Nota las paréntesis en la segunda construcción.

Mensaje

Cualquier tipo de texto. Para crear un salto de línea empleamos el carácter vbCrLf.

Actualización terminada:" & vbCrLf & "- Importación de datos de venta.

Botones

Si quieres puedes añadir cualquier de estos cuatro botones (si no pones nada Excel te pondrá vbOkOnly por defecto).

vbOkOnly
vbOkCancel
vbYesNoCancel
vbAbortRetryIgnore

Iconos

Puedes elegir entre los siguientes.

vbCritical
vbQuestion
vbExclamation
vbInformation

Título

Cualquier texto.

Devolver información

Si quieres que el programa utilice la respuesta del usuario, estas son las cifras que te devuelve.

Ok = 1
Cancel = 2
Abort = 3
Retry = 4
Ignore = 5
Yes = 6
No = 7

Ejemplos

Te ponemos unos ejemplos módelo para que te vayas acostumbrando a las diferentes messagebox.

Sub MessageBox()
msgbox "Actualización terminada:", _
vbOKOnly, "Información"
End Sub

messagebox_1

Sub MessageBox()
msgbox "¿Quieres seguir?", vbYesNo, "Información importante"
End Sub

messagebox_2

Sub MessageBox()
Dim intRespuesta As Integer
intRespuesta = MsgBox("¿Quieres seguir?", vbQuestion + vbYesNo, _
Información importante")
If intRespuesta = 6 Then
  MsgBox"Seguimos"
Else
  MsgBox"Terminamos"
End If
End Sub

messagebox_3

Sub MessageBox()
msgbox "Actualización terminada:" &amp; _
vbCrLf & vbCrLf & _
"- Importación de datos de venta." & vbCrLf & _
"- Cálculos de impuestos." & vbCrLf & _
"- Venta por proveedor." & vbCrLf _
, vbOKOnly, "Actualización terminada."
End Sub

messagebox_4

Sub MessageBox()
msgbox "Actualización terminada:" & vbCrLf & vbCrLf & _
"- Importación de datos de venta." & vbCrLf & _
"- Cálculos de impuestos." & vbCrLf & _
"- Venta por proveedor." & vbCrLf _
, vbExclamation + vbOKOnly, _
"Actualización terminada."
End Sub

messagebox_5