¿Cómo insertar un temporizador de cuenta atrás en Excel?
Si necesita trabajar con ciertos datos en un plazo limitado, puede insertar un temporizador de cuenta atrás en su hoja de cálculo que, al finalizar, muestre un cuadro de diálogo emergente para recordárselo. A continuación, le explico un código VBA para implementar este temporizador en Excel.
Insertar un temporizador de cuenta atrás en Excel
Insertar un temporizador de cuenta atrás en Excel
En Excel no es posible realizar una cuenta atrás directamente, pero puede copiar el siguiente código VBA para llevar la cuenta del tiempo en retroceso.
1. Seleccione una celda y aplíquele formato de hora: haga clic con el botón derecho en la celda y elija Establecer formato de celda. En el cuadro de diálogo que aparece, haga clic en Hora, seleccione 13:30:55 en la lista Tipo y, por último, haga clic en Aceptar para cerrar el cuadro de diálogo. Vea la captura de pantalla:
 |
 |
 |
2. Escriba en la celda con formato la hora a partir de la cual desea iniciar la cuenta atrás. Vea la captura de pantalla:
3. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
4. Haga clic en Insertar > Módulo y, a continuación, copie el siguiente código VBA en la nueva ventana.
VBA: Temporizador de cuenta atrás.
Dim gCount As Date
'Updateby20140925
Sub Timer()
gCount = Now + TimeValue("00:00:01")
Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Call Timer
End Sub
Consejo: E1 en el código anterior indica la celda con el valor de tiempo que introdujo en el paso 2.
5. Haga clic en el botón Ejecutar o pulse la tecla F5 para iniciar el temporizador de cuenta atrás. ¡Ahora ya está en marcha la cuenta regresiva!
6. Y cuando finalice la cuenta atrás, aparecerá un cuadro de diálogo emergente para notificárselo.
Consejo: No puede detener la cuenta atrás mientras se está ejecutando, a menos que cierre el libro de trabajo.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos