Tecnología

Tutorial sobre cuadros de mensaje de VBA en Excel

Escrito por jaime avelar | Traducido por juliana star
Tutorial sobre cuadros de mensaje de VBA en Excel

Añade un cuadro de mensaje con los botones "Sí" y "No" en VBA.

NA/AbleStock.com/Getty Images

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.

Nivel de dificultad:
Moderadamente fácil

Otras personas están leyendo

Instrucciones

  1. 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.

  2. 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

  3. 3

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

  4. 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")

  5. 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

  6. 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")

  7. 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

  8. 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")

  9. 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

  10. 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.

Más galerías de fotos

comentarios

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles

Copyright © 1999-2014 Demand Media, Inc. Acerca de

El uso de este sitio constituye la aceptación de los términos y política de privacidad de eHow. Ad Choices es-US

Demand Media