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

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010

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

Cronómetro contador regresivo de cuenta atrás en Excel
  • CREAR MACRO
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

    Explorador de Proyectos con módulo1 seleccionado
  4. 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

  5. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

 
  • EJECUTAR MACRO
  1. Ir a: Celda B2 / Escribir: 00:01:30. O el tiempo deseado.

  2. Ejecutar la macro "Cronometro".

  3. 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.

    Mensaje de error falta insertar tiempo
  4. Al finalizar el tiempo se mostrará mensaje de aviso.

    Mensaje de tiempo transcurrido
  5. Insertar un botón para ejecutar la macro.

  6. Aplicar formato a celdas, fuentes, etc.

Hoja Excel con el cronómetro regresivo

- Consultar:

Cronómetro con pausa

 

Cronómetro Excel

 

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.