¿Cómo crear un cronómetro en una hoja de cálculo de Excel?

Si necesitas un cronómetro en tu hoja de cálculo de Excel, puede ayudarte a registrar el tiempo que tardas en completar tareas. Imagina tener botones de Inicio, Detener y Restablecer para controlar el cronómetro, como se muestra en la captura de pantalla a continuación. Al hacer clic en el botón Inicio, comienza el temporizador; el botón Detener lo pausa, y el botón Restablecer borra el tiempo. En este artículo, te mostraremos paso a paso cómo crear un cronómetro simple pero funcional en Excel utilizando código VBA.

Crea un cronómetro con tres botones usando código VBA

 Crea un cronómetro con tres botones usando código VBA

Para crear un cronómetro con tres botones: Inicio, Detener y Restablecer, sigue los siguientes pasos uno por uno.

Primero, inserta tres botones de comando.

1. Haz clic en "Desarrollador" > "Insertar" > "Botón de Comando", ver captura de pantalla:

2. Luego arrastra el ratón para dibujar un botón; después de insertar el botón, puedes cambiar el texto del botón haciendo clic en "Desarrollador" > "Propiedades". En el cuadro de diálogo "Propiedades", introduce el nuevo texto "Inicio" para este botón en el cuadro de texto junto a "Título", ver capturas de pantalla:

3. Repite los dos pasos anteriores para insertar los otros dos botones y asígnale los textos "Detener" y "Restablecer", ver captura de pantalla:

4. Después de insertar los botones, sal del modo diseño haciendo clic en "Desarrollador" > "Modo Diseño".

En segundo lugar, crea un código VBA.

5. Luego, haz clic derecho en la pestaña de la hoja de trabajo actual y selecciona "Ver Código". En la ventana emergente "Microsoft Visual Basic para Aplicaciones", copia y pega el siguiente código en el "Código de la Hoja":

Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
  StartTime = Timer
  PauseTime = 0
  LastTime = 0
Else
  StartTime = 0
  PauseTime = Timer
End If
StartIt:
  DoEvents
  If StopIt = True Then
    LastTime = TotalTime
    Exit Sub
  Else
    FinishTime = Timer
    TotalTime = FinishTime - StartTime + LastTime - PauseTime
    TTime = TotalTime * 100
    HM = TTime Mod 100
    TTime = TTime \ 100
    hh = TTime \ 3600
    TTime = TTime Mod 3600
    MM = TTime \ 60
    SS = TTime Mod 60
    Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
    If ResetIt = True Then
      Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
      LastTime = 0
      PauseTime = 0
      End
    End If
    GoTo StartIt
  End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  StopIt = True
End Sub
Private Sub CommandButton3_Click()
  Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
  LastTime = 0
  ResetIt = True
End Sub

Nota: En el código anterior, "C2" es la celda donde se insertará el tiempo del cronómetro, y "CommandButton1", "CommandButton2", "CommandButton3" son los nombres de los botones. Puedes ver el nombre exacto del botón en el "Cuadro de Nombres", ver captura de pantalla:

En tercer lugar, formatea la celda del tiempo del cronómetro.

6. Luego debes formatear la celda de tiempo como formato de "Texto", y puedes cambiar el tamaño de la celda, fuente, color de fuente, fondo, etc., según sea necesario, ver captura de pantalla:

7. Después de completar los pasos anteriores, desde ahora, cuando hagas clic en el botón "Inicio", el tiempo comenzará, y cuando hagas clic en el botón "Detener", se detendrá. El botón "Restablecer" reiniciará el tiempo, ver captura de pantalla:

Demostración: Crear un cronómetro con tres botones usando código VBA