Cronómetro contador regresivo de cuenta atrás en Excel

Compatibilidad:

En nuestra hoja podemos incluir un cronómetro con cuenta atrás mediante una macro.

Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada Pulsar la tecla F11. Mostrará el editor de Visual Basic.
Ir a: Barra de Menú Insertar Módulo. Mostrará la ventana del módulo donde escribimos la macro.
Escribir el código de la macro:
Dim contador As Date
Sub Cronometro()
contador = Now + TimeValue("00:00:01")
Application.OnTime contador, "cuenta"
End Sub
Sub cuenta()
Dim mi_tiempo As Range
If Range("E2").Value = 0 Or Range("E2").Value = "" Or Range("E2").Value = Empty Then
xx = MsgBox("Insertar el tiempo deseado E2 (formato: hh:mm:ss)", vbCritical + vbOKOnly, "Error")
Exit Sub
Else
Set mi_tiempo = Application.ActiveSheet.Range("E2")
mi_tiempo.Value = mi_tiempo.Value - TimeSerial(0, 0, 1)
If mi_tiempo.Value <= 0 Then
MsgBox "Tiempo Finalizado"
Exit Sub
End If
End If
Call Cronometro
End Sub
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

Ir a: Celda B2 Escribir: 00:01:30. O el tiempo deseado.
Ejecutar la macro "Cronometro".
Verificar como el cronómetro comienza la cuenta atrás en la celda B2. Si en la celda B2 no se inserta ningún valor mostrará mensaje de error.
Al finalizar el tiempo se mostrará mensaje de aviso.
Insertar un botón para ejecutar la macro.
Aplicar formato a celdas, fuentes, etc.

Nivel de dificultad:

Excel Experto VBA - Macros

- Consultar: