Note: The other languages of the website are Google-translated. Back to English

¿Cómo crear un cronómetro en una 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, Detener y Restablecer como se muestra en la siguiente captura de pantalla? Si hace clic en el botón Inicio, comenzará la hora, si hace clic en el botón Detener, 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 cronómetro 1

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


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

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

En primer lugar, inserte tres botones de comando.

1. Hacer clic Developer > recuadro > Botón de comando, ver captura de pantalla:

doc crear cronómetro 2

2. Luego arrastre el mouse para dibujar un botón, después de insertar el botón, puede cambiar el título del botón, haga clic en Developer > Propiedades, En la Propiedades diálogo, ingrese el nuevo título "Comienzo"Para este botón en el cuadro de texto junto al Subtítulo, ver capturas de pantalla:

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

3. Repita los dos pasos anteriores para insertar otros dos botones y títelos como "Detener y Restablecer configuración”, Vea la captura de pantalla:

doc crear cronómetro 5

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

En segundo lugar, cree un código VBA.

5. Y luego, haga clic con el botón derecho en la pestaña de la hoja de trabajo actual y elija Ver código, en el aparecido Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en el 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 cronómetro 6

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

doc crear cronómetro 7

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

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

doc crear cronómetro 8

7. Después de terminar los pasos anteriores, de ahora en adelante, cuando haga clic en Comienzo , la hora comenzará ahora y haga clic en Detener botón, detendrá el tiempo, el Restablecer configuración El botón restablecerá la hora, vea la captura de pantalla:

doc crear cronómetro 9


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


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas 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 Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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

  • Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (30)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Gracias por esta publicación, fue muy útil. Sin embargo, ¿hay alguna manera de modificar el código para que el temporizador no se detenga cuando se está editando una celda? Idealmente, me gustaría presionar "Iniciar", realizar una serie de cambios en un rango de celdas en la misma pestaña y luego presionar "Detener" para el tiempo total transcurrido. ¡Cualquier consejo sobre esto sería muy apreciado!
Este comentario fue minimizado por el moderador en el sitio
¿alguna vez te diste cuenta de esto? Yo también necesito mantener el temporizador en funcionamiento mientras se realizan otros cambios en la misma hoja de cálculo. Gracias. Miguel
Este comentario fue minimizado por el moderador en el sitio
Esto fue de gran ayuda y muy fácil de seguir los pasos.
Este comentario fue minimizado por el moderador en el sitio
He intentado crear el cronómetro usando los mismos códigos en Formularios. El temporizador arranca perfectamente bien pero no se detiene. Sugiera cómo replicar lo mismo en formularios.
Este comentario fue minimizado por el moderador en el sitio
Prueba el cronómetro XNote.
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna forma de hacer que el temporizador cuente hacia arriba o hacia abajo hasta un tiempo específico? Quiero mantener los botones de inicio, parada y reinicio, pero necesito que cuente hasta un minuto y un segundo solo, una vez que presiono inicio. O cuenta atrás desde un minuto un segundo hasta cero (01:01). ¡Gracias por tu ayuda!
Este comentario fue minimizado por el moderador en el sitio
Hola Melissa,
Si necesita crear un temporizador de cuenta regresiva en la hoja de trabajo, ¡el siguiente artículo puede ayudarlo!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Este comentario fue minimizado por el moderador en el sitio
Hola,

Vi ese artículo, pero necesito que se vea exactamente como el cronómetro en esta página, pero necesito que solo cuente de un minuto a un segundo. Necesito que se muestre en forma de cronómetro, pero que funcione como una cuenta regresiva. ¿Algún otro consejo?


¡gracias por responder!
Este comentario fue minimizado por el moderador en el sitio
Es para un marcador que diseñamos en excel.
Este comentario fue minimizado por el moderador en el sitio
Genial, pero ¿es posible ejecutar 2 relojes en la misma hoja? He hecho un segundo reloj con un nuevo botón de inicio, parada y reinicio, pero al iniciar el segundo reloj, el primero se detiene ...
Este comentario fue minimizado por el moderador en el sitio
Lo mismo aquí, ¿puedes encontrar una cura para esto?
Este comentario fue minimizado por el moderador en el sitio
Hola amigos,
Este método solo se aplica a un conjunto de botones en una hoja de cálculo.
Si hay otras buenas ideas, por favor comente aquí.
Este comentario fue minimizado por el moderador en el sitio
¿Es posible detener automáticamente el temporizador cuando la pantalla se bloquea e iniciar el temporizador automáticamente cuando desbloqueamos la computadora?
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna forma de que el temporizador restablezca el conteo a cero pero aún así mantenga el temporizador en funcionamiento? Es decir. Cuando presiono Restablecer, no quiero tener que presionar Iniciar de nuevo para que se agote el tiempo.
Este comentario fue minimizado por el moderador en el sitio
Hola, estoy usando este tapón, pero muy a menudo los números en la celda de visualización ("C2") comienzan a salirse y se apagan: muestran signos menos, los dígitos son incorrectos y el conteo se pierde. Por lo general, ocurre después de aproximadamente una hora o más, pero a veces incluso antes de que pase una hora. ¿Es este un error común? y si es así, ¿hay alguna forma de solucionarlo? Eliminé el .00 (es decir, los milisegundos) del código simplemente borrando el: & "." & Formato (0, "00") dondequiera que aparezca, ¿tiene algo que ver con este problema?
Este comentario fue minimizado por el moderador en el sitio
Gracias por su sugerencia. Estaba funcionando sin problemas, pero cuando ingresé datos en esta hoja, dejó de funcionar. Necesitamos que siga funcionando durante un tiempo. Ingresar datos ¿Cómo podemos solucionar este problema?
Este comentario fue minimizado por el moderador en el sitio
Hola, Nhoeun,
Puede que no sea una buena manera de resolver su problema. Cuando edite una celda, interrumpirá la macro actualmente ejecutada.
Si tiene algún otro buen método, ¡coméntelo aquí!
¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
HOLA. He creado el cronómetro, pero necesito poder guardar los distintos intervalos entre el inicio y la parada para poder reflejarlos como un estudio de tiempo y movimiento. ¿Algún consejo sobre cómo hacer eso?
Este comentario fue minimizado por el moderador en el sitio
Realizó todos los pasos, pero al hacer clic en el botón de inicio aparece el mensaje de error "No se puede ejecutar la macro "'file.xlsm'!CommandButton1". Es posible que la macro no esté disponible en este libro o que todas las macros estén deshabilitadas". Todas las macros han sido habilitadas, la macro está en el Módulo1. NOTA: estoy ejecutando Office 2019 para Mac, por lo que podría ser un problema...
Este comentario fue minimizado por el moderador en el sitio
¿Qué tal agregar la función "+10s" y "velocidad 2x" en este código?
Este comentario fue minimizado por el moderador en el sitio
¿Es 'temporizador' una variable aquí? No veo su relevancia en el código.
Este comentario fue minimizado por el moderador en el sitio
¿Es posible hacer que el contador cuente solo segundos?
Entonces cuando llega a los 59 segundos, sigue con 60, 61, 62, 63....
Este comentario fue minimizado por el moderador en el sitio
Hola
Ha seguido los pasos pero no puede obtener una hora para que aparezca en la celda del temporizador. He copiado el código pero puedo comprobar1. Que los números de línea no son necesarios o lo son2. Que puse el código en el módulo 1, no en la hoja 1 o en este libro de trabajo 3. Si hay una macro en la lista de macros después de hacer todo esto, la mía no.
Muchas Gracias
Este comentario fue minimizado por el moderador en el sitio
Hola, Janice, debes poner el código en tu módulo de hoja activa como paso 5.
5. Y luego, haga clic con el botón derecho en la pestaña de la hoja de trabajo actual y elija Ver código, en la ventana emergente de Microsoft Visual Basic para aplicaciones, copie y pegue el siguiente código en el Módulo.

Y debe cambiar el nombre del botón por el suyo propio.
Nota: En el código anterior, C2 es la celda donde se insertará el tiempo del cronómetro y el Botón de comando1, Botón de comando2, Botón de comando3 son los nombres de los botones, puede ver el nombre exacto del botón en el Cuadro de nombres.

Por favor, revíselos, ¡gracias!
Este comentario fue minimizado por el moderador en el sitio
¡Esto es brillante! Gracias, Chris H.
Este comentario fue minimizado por el moderador en el sitio
¿Es posible usar un cuadro combinado o una selección desplegable para iniciar y detener el reloj?
Este comentario fue minimizado por el moderador en el sitio
Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, determine le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?MerciHenry.
Este comentario fue minimizado por el moderador en el sitio
¡Hola! Gracias por esto, ¿cómo lo hago para que ocupe el tiempo en las celdas posteriores, ej. tiempo de inicio/parada para la celda C2, luego un tiempo de inicio/parada diferente para la celda c3, c4, c5, etc. 
No hay comentarios publicados aquí todavía
Ver más
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL