Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

Si hay un cronómetro en su hoja de trabajo, sabrá el tiempo para terminar un trabajo. ¿Cómo se puede crear un cronómetro en una hoja con un botón Iniciar, Parar y Restablecer como se muestra a continuación? Si hace clic en el botón Inicio, comenzará la hora, si hace clic en el botón Detener, se detendrá el tiempo, y el botón Restablecer puede ayudarlo a restablecer la hora. En este artículo, hablaré sobre cómo crear un cronómetro simple y práctico en Excel.

doc crear el cronómetro 1

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


Agregue un número de horas / minutos / segundos a datetime:

Con Kutools for Excel's Agregar horas / minutos / segundos hasta la fecha funciones, puede agregar o restar rápidamente un número de horas, minutos o segundos a una fecha. ¡Haz clic para descargar y probar gratis Kutools for Excel ahora!

doc crear el cronómetro 10

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


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

Para crear un cronómetro con tres botones, Iniciar, Parar y Restablecer, siga los siguientes pasos uno por uno.

En primer lugar, inserte tres botones de comando.

1. Hacer clic Desarrollador > recuadro > Botón de comando, mira la captura de pantalla:

doc crear el cronómetro 2

2. Luego, arrastre el mouse para dibujar un botón, luego de insertar el botón, puede cambiar el título del botón, haga clic en Desarrollador > Propiedades, En el Propiedades diálogo, ingrese el nuevo título "Inicio"Para este botón en el cuadro de texto al lado del Subtítulo, mira capturas de pantalla:

doc crear el cronómetro 3  2 doc crear el cronómetro 4

3. Repita los dos pasos anteriores para insertar otros dos botones y tipearlos como "detener"Y"Reiniciar", Ver captura de pantalla:

doc crear el cronómetro 5

4. Después de insertar los botones, debe salir del modo de diseño haciendo clic Desarrollador > Modo de diseño.

En segundo lugar, crea un código VBA.

5. Y luego, haga clic con el botón derecho en la pestaña actual de la hoja de trabajo y elija Ver código, en el reventado Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en Módulo:

Código de VBA: Crear cronómetro:

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

doc crear el cronómetro 6

Nota: En el código anterior, C2 es la celda donde se insertará el tiempo del cronómetro y el CommandButton1, CommandButton2, CommandButton3 son los nombres de los botones, puede ver el nombre exacto del botón de la Nombre de buzón, mira la captura de pantalla:

doc crear el cronómetro 7

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

6. Luego debe formatear la celda de tiempo como Texto formato, y puede cambiar el tamaño de la celda, la fuente, el color de la fuente, el fondo, etc. según lo necesite, vea la captura de pantalla:

doc crear el cronómetro 8

7. Después de finalizar los pasos anteriores, a partir de ahora, cuando haga clic Inicio botón, la hora comenzará ahora y haga clic detener botón, se detendrá el tiempo, el Reiniciar El botón reiniciará la hora, vea la captura de pantalla:

doc crear el cronómetro 9


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


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nhoeun Nou · 5 months ago
    Thank for your tip, It was running smoothly but when I input any data in this sheet It's stopped running, We need it keep running awhile input data How we can fix this problem?
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, Nhoeun,
      May be there in not a good way for solving your problem. When you edit a cell, it will interrupt the currently executed macro.
      If you have any other good method, please comment here!
      Thank you!
  • To post as a guest, your comment is unpublished.
    Yuval · 7 months ago
    Hi, I'm using this stopper but quite often the numbers in the display cell ("C2") start fricking out and go off - they show minus signs, the digits are incorret and the count is lost. It usually happens after about an hour or more but sometimes even before an hour goes by. Is this a common bug? and if yes, is there a way to fix it? I did remove the .00 (i.e. the miliseconds) from the code by simply erasing the: & "." & Format(0, "00") line wherever it appears - does that have to do anything with this problem?
  • To post as a guest, your comment is unpublished.
    Damian · 1 years ago
    Is there any way to have the timer reset the count to zero but still keep the timer running? Ie. When I press Reset, I don't want to have to press Start again for the time to tick up.
  • To post as a guest, your comment is unpublished.
    Vivek Nath · 1 years ago
    Is it possible to automatically stop the timer when screen locks and start the timer automatically when we unlock the computer?
  • To post as a guest, your comment is unpublished.
    Tor-Bjørn Øverbø · 1 years ago
    Great, but is it possible to run 2 clocks in the same sheet? have made a second clock with new start, stop and reset buttom, but when starting the second clock the first one stops....
    • To post as a guest, your comment is unpublished.
      Vishal Sharma · 1 years ago
      same here can you able to find cure of this
      • To post as a guest, your comment is unpublished.
        skyyang · 1 years ago
        Hello, friends,
        This method is only applied to one set of buttons in a worksheet.
        If there are other good ideas, please comment here.
  • To post as a guest, your comment is unpublished.
    Melissa Stranko · 1 years ago
    Is there any way to get the timer to count up or down to a specific time? I want to keep the start, stop, and reset buttons, but I need it to count up to one minute one second only, once I press start. Or count down from one minute one second to zero (01:01). Thanks for your help!
  • To post as a guest, your comment is unpublished.
    Guest · 1 years ago
    Try XNote Stopwatch.
  • To post as a guest, your comment is unpublished.
    Prashant · 2 years ago
    Have tried to create the stop watch using the same codes in Forms. The timer starts perfectly fine but does not stop . Please suggest how to replicate the same in forms
  • To post as a guest, your comment is unpublished.
    Paulo G. · 2 years ago
    This was a great help and very easy to follow the steps.
  • To post as a guest, your comment is unpublished.
    Gnarlsagan · 2 years ago
    Thank you for this post, it was very helpful. However, is there a way to tweak the code to make it so the timer does not stop when a cell is being edited? Ideally I would like to hit "Start," make a number of changes to a range of cells on the same tab, and then hit "Stop" for the total time elapsed. Any advice on this would be greatly appreciated!