¿Cómo crear un temporizador de cuadro de mensaje para cerrar automáticamente el cuadro de mensaje después de cierto tiempo en Excel?

Al usar un libro de Excel, es posible que a menudo utilices scripts VBA para resolver problemas. Durante la ejecución del script, pueden aparecer algunos cuadros de mensaje. En algunos casos, querrás que algunos cuadros de mensaje específicos se cierren automáticamente después de un cierto tiempo, en lugar de cerrarlos manualmente. En este artículo, te mostraremos un método para crear un temporizador de cuadro de mensaje que cierre automáticamente el cuadro de mensaje después de cierto tiempo en Excel.

Crear un temporizador de cuadro de mensaje para descartar automáticamente el cuadro de mensaje después de cierto tiempo

Crear un temporizador de cuadro de mensaje para descartar automáticamente el cuadro de mensaje después de cierto tiempo

Aquí tienes una plantilla de script VBA para crear un temporizador de cuadro de mensaje.

Supongamos que estás ejecutando un script VBA para mover filas basadas en el valor de una celda. Después de finalizar el movimiento, necesitas que aparezca un cuadro de mensaje para informarte que la operación fue exitosa y este cuadro de mensaje debe cerrarse automáticamente después de 4 segundos (ver captura de pantalla a continuación). Por favor, sigue los siguientes pasos.

1. Abre la ventana Microsoft Visual Basic for Applications, haz clic en Insertar > Módulo, y luego inserta el código VBA que deseas usar para mover filas basadas en el valor de una celda.

2. Copia el siguiente código VBA 1 y colócalo antes del código que deseas operar. Ver captura de pantalla a continuación:

Código VBA 1:

Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
            ByVal xHwnd As LongPtr, _
            ByVal xText As String, _
            ByVal xCaption As String, _
            ByVal xMsgBoxStyle As VbMsgBoxStyle, _
            ByVal xwlange As Long, _
            ByVal xTimeOut As Long) _
    As Long

3. Copia el siguiente código VBA 2 y colócalo antes de la línea "End Sub" del código que deseas operar.

Código VBA 2:

 Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)

Nota: Puedes cambiar el contenido del cuadro de mensaje y el tiempo de visualización del cuadro de diálogo según tus necesidades.

4. Después de ejecutar el código para realizar la operación, aparecerá un cuadro de mensaje y luego se cerrará automáticamente después de cierto tiempo (en este caso son 4 segundos).

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo hacer aparecer un cuadro de mensaje al hacer clic en una celda específica en Excel?
• ¿Cómo copiar texto de un cuadro de mensaje en Excel?
• ¿Cómo hacer aparecer un cuadro de mensaje al activar/abrir una hoja de cálculo específica en Excel?
• ¿Cómo hacer aparecer un cuadro de mensaje para mostrar un rango de celdas o valores de celda en Excel?
• ¿Cómo hacer aparecer un cuadro de mensaje si el valor de una celda cambia dentro de un rango en Excel?