Note: The other languages of the website are Google-translated. Back to English
Iniciar sesión  \/ 
x
or
x
Regístrate  \/ 
x

or

 ¿Cómo crear un cuadro de mensaje sí no antes de ejecutar una macro en Excel?

En Excel, puede activar directamente una macro presionando el F5 o haga clic en el Corral botón en el Microsoft Visual Basic para aplicaciones ventana. Pero, a veces, es posible que desee crear un cuadro de mensaje que le preguntará al usuario si desea ejecutar la macro. Si es así, continúe ejecutando el código, si no, deje de ejecutar el código. En este artículo, hablaré sobre cómo crear un cuadro de mensaje de sí no antes de ejecutar una macro en Excel.

Cree un cuadro de mensaje sí no antes de ejecutar una macro con código VBA


Cree un cuadro de mensaje sí no antes de ejecutar una macro con código VBA


El siguiente código de VBA puede ayudarlo a agregar un cuadro de mensaje sí no para confirmar si está ejecutando una macro, siga los pasos a continuación:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Haz clic en recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.

Código de VBA: cree un cuadro de mensaje sí no antes de ejecutar una macro:

Sub continue()
CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
If CarryOn = vbYes Then
'put rest of code here
End If
End Sub

<b>Nota</b>: En el código anterior, copie y pegue su propio código sin el Sub partida y End Sub pie de página entre el Si CarryOn = vbYes Entonces y end if guiones. Ver captura de pantalla:

cuadro de mensaje doc sí no macro 1

3. Entonces presione F5 clave, aparecerá un cuadro de aviso para recordarle si desea ejecutar este código, haga clic en para continuar y haga clic en No para detener, vea la captura de pantalla:

cuadro de mensaje doc sí no macro 2


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office / Excel 2007-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    FEWQ · 1 years ago
    Or you use this code on top and there is no need to put the whole code inside an if sentence

    CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
    If CarryOn = vbNo Then
    Exit Sub
    End If