(macros) MsgBox mensaje en pantalla

Páginas:

       1   2   3   4   5   6   7

Esta función incorporada de V.B., muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un tipo Integer correspondiente al botón elegido por el usuario.

Sub ejemplo()
  MsgBox("Hola, este es el mensaje...")
End Sub

El siguinete ejemplo preguntará al usuario Si o No...

Sub responder()  Dim Mensaje, Estilo, Título, Respuesta
  Mensaje = "Responder Si o N"
  Estilo = vbInformation + vbYesNo + vbDefaultButton2
  Título ="Si o no..."
  Respuesta = MsgBox(Mensaje, Estilo, Título)
  If Respuesta = vbYes Then
    MsgBox ("¡Has pulsado Si!")
  Else
    MsgBox ("¡Has pulsado No!")
  End If
End Sub

El siguiente ejemplo preguntará al usuario si desea obtener la suma de los valores del rango A2:A8. Si contesta Si, suma el rango y lo muestra con MsgBox. Si contesta No, pregunta si quiere calcular la media aritmética del rango A2:A8...

Sub responder()
  Dim Mensaje, Estilo, Título, Respuesta, lasuma, lamedia
  Mensaje = "¿quieres saber la suma?"
  Estilo = vbInformation + vbYesNo + vbDefaultButton2
  Título = "suma o media..."
  Respuesta = MsgBox(Mensaje, Estilo, Título)
  If Respuesta = vbYes Then
    lasuma = 0
    lasuma = WorksheetFunction.Sum(Range("A2:A8"))
    MsgBox ("la suma da como resultado: ") & lasuma
  Else
    Mensaje = "¿quieres saber el promedio?"
    Respuesta = MsgBox(Mensaje, Estilo, Título)
    If Respuesta = vbYes Then
        lamedia = 0
        lamedia = WorksheetFunction.Average(Range("A2:A8"))
        MsgBox ("el promedio da como resultado: ") & lamedia
    Else
        MsgBox ("¡parece que no quieres nada...!")
    End If
  End If
End Sub