¿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 el libro de Excel, a menudo puede usar scripts de VBA para resolver problemas. Y aparecerán algunos cuadros de mensaje durante la ejecución del script. En algunos casos, deseará que algunos cuadros de mensajes específicos se cierren automáticamente después de cierto tiempo, en lugar de cerrarlos manualmente. En este artículo, le mostraremos el método para crear un temporizador de cuadro de mensaje para cerrar automáticamente el cuadro de mensaje después de cierto tiempo en Excel.
Cree un temporizador de cuadro de mensaje para descartar automáticamente el cuadro de mensaje después de cierto tiempo
Aquí se proporciona una plantilla de script VBA para que pueda crear un temporizador de cuadro de mensaje.
Supongamos que está ejecutando un script VBA para mover filas según el valor de la celda. Después de terminar de mover, necesita que aparezca un cuadro de mensaje para informarle que la operación fue exitosa y este cuadro de mensaje debe cerrarse automáticamente después de 4 segundos (vea la captura de pantalla a continuación). Siga los pasos a continuación.
1. Abre el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Móduloy luego inserte el código VBA que desea usar para mover filas según el valor de la celda.
2. Copie el siguiente código VBA 1 y colóquelo antes del código que desea operar. Vea la captura de pantalla a continuación:
Código 1 de VBA:
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. Copie el código VBA 2 a continuación y colóquelo antes de la línea "End Sub" del código que desea operar.
Código 2 de VBA:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Note: Puede cambiar el contenido del cuadro de mensaje y el tiempo de visualización del cuadro de diálogo según sus 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, 4 segundos).
Artículos relacionados:
- ¿Cómo abrir un cuadro de mensaje al hacer clic en una celda determinada en Excel?
- ¿Cómo copiar texto del cuadro de mensaje en Excel?
- ¿Cómo abrir un cuadro de mensaje al activar / abrir una hoja de trabajo específica en Excel?
- ¿Cómo abrir un cuadro de mensaje para mostrar el rango de celdas o valores de celda en Excel?
- ¿Cómo abrir el cuadro de mensaje si el valor de la celda cambia dentro de un rango en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!