Tabla de contenido
En este artículo, te mostraré cómo puedes desarrollar y utilizar un Sí No cuadro de mensaje en VBA en Excel.
Desarrollar y Utilizar un Cuadro de Mensaje Sí No con Excel VBA (Vista Rápida)
Sub Yes_No_Message_Box() Answer = MsgBox("¿Te gusta ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub 
Descargar el cuaderno de prácticas
Descárgate este cuaderno de prácticas para ejercitarte mientras lees este artículo.
Sí No Message Box.xlsmUna Visión General del Código VBA para Desarrollar y Utilizar un Cuadro de Mensaje Sí No (Análisis Paso a Paso)
Aprendamos el uso de un cuadro de mensaje sí-no con un ejemplo sencillo. El buzón de mensajes te haré una pregunta, ¿te gusta ExcelWIKI?
Si su respuesta es afirmativa, haga clic en Sí en el buzón de mensajes Y si su respuesta es No hará clic en No .
Ahora bien, ¿qué ocurrirá después de hacer clic en sí o no en el botón buzón de mensajes En la hoja de cálculo activa, hay 2 celdas que contienen el número de personas a las que les gusta y a las que no les gusta ExcelWIKI. Si pulsa sí el número en la celda similar aumentará en uno.
Y si golpeas no el número de la casilla de aversión aumentará en uno.
Entonces, ¿cómo llevar a cabo toda esta tarea con un VBA Fácil. Hay 2 principales etapas de todo el proceso.
- Desarrollo de la Buzón de mensajes Sí-No
- Utilización de la salida del Buzón de mensajes
Le muestro el detalle de cada paso para su aprendizaje.
⧪ Paso 1: Desarrollo del cuadro de mensaje Sí-No
En primer lugar, hay que crear el mensaje sí-no caja en VBA Esto es fácil. Utilice el mismo procedimiento que el cuadro de mensaje ordinario, con la pregunta sobre el argumento, junto con un nuevo argumento vbSíNo .
Aquí la pregunta es, "¿Te gusta ExcelWIKI?"
Respuesta = MsgBox("¿Te gusta ExcelWIKI?", vbSíNo) 
⧪ Paso 2: Uso de la salida del cuadro de mensajes
A continuación, realizaremos una tarea utilizando la función buzón de mensajes Aquí, la célula C3 contiene el número de personas a las que les gusta ExcelWIKI, y la celda C4 contiene el número de personas a las que no les gusta ExcelWIKI.
Por lo tanto, si la respuesta es Sí , célula C3 aumentará en uno. Y si es No , célula C4 aumentará en uno.
Utilizaremos un If-block para ejecutar esto.
If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If 
Así que el completo VBA código será:
⧭ Código VBA:
Sub Yes_No_Message_Box() Answer = MsgBox("¿Te gusta ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub
Creación de la macro para desarrollar y utilizar un cuadro de mensaje Sí No en Excel
Hemos visto el análisis paso a paso del código para desarrollar y utilizar un cuadro de mensaje Sí-No. Ahora, veamos cómo podemos construir una Macro para ejecutar el código.
⧪ Paso 1: Abrir la ventana de VBA
Pulse ALT + F11 en el teclado para abrir el Visual Basic ventana.
⧪ Paso 2: Insertar un nuevo módulo
Ir a Insertar> Módulo en la barra de herramientas. Haga clic en Módulo Un nuevo módulo llamado Módulo 1 (o cualquier otra cosa dependiendo de tu historial) se abrirá.
⧪ Paso 3: Poner el código VBA.
Este es el paso más importante. Inserte el VBA en el módulo.
⧪ Paso 4: Ejecutar el código
Haga clic en el botón Ejecutar Sub / UserForm de la barra de herramientas superior.
El código se ejecutará. A buzón de mensajes le preguntará si le gusta ExcelWIKI o no, con un Sí y un No opción.
Si elige Sí el número de la casilla C3 aumentará en uno. Y si eliges No el número de la casilla C4 aumentará en uno.
Aquí, he seleccionado sí por lo que el número de personas a las que les gusta ExcelWIKI ha aumentado en uno.
Cosas para recordar
- A buzón de mensajes en VBA contiene un total de 4 parámetros llamados Prompt, Botón, Título y Archivo de ayuda Aquí sólo he mostrado 2 parámetros, Pregunte a y Botón Pero si quiere descubrir la Cuadro de mensaje VBA con más detalle, puede consultar este enlace.
