Tener un cronometro o reloj en excel puede ser de ayuda en casos donde se requiere llevar un control de tiempos, tal es el caso de un cyber cafe o un billar, solo por poner ejemplos, pero puede servir para muchos otros casos de Apps en Excel.
Para este caso veremos ejemplos de código vba que puede ayudarte en la creación del cronometro y también en la impresión de la hora en celdas para calcular tiempo trascurrido.
El siguiente código genera el cronometro en la celda C2 de la hoja llamada “reloj”
Sub auto_open()
Tiempo
End Sub
Sub Tiempo()
Sheets("reloj").Range("C2").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "Tiempo"
End Sub
Para que este código funcione correctamente, la celda que contiene el reloj deberá tener formato de hora hh:mm:ss
Ahora si queremos imprimir en una celda la hora de inicio de un periodo de tiempo y al final se imprima la hora en que termina, para ello usaremos lo siguiente.
Macro para iniciar tiempo.
Sub inicio1()
Sheets("reloj").Range("C4") = Time
End Sub
Para finalizar tiempo.
Sub final1()
Sheets("reloj").Range("D4") = Time
Sheets("reloj").Range("E4") = Sheets("reloj").Range("D4") - Sheets("reloj").Range("C4")
End Sub
El resultado seria algo como esto.
En la imagen se observan dos botones, “Equipo 1 es para iniciar el tiempo para el equipo 1, que puede ser el tiempo para una computadora en un cyber o una mesa en un billar, “Fin 1” es para finalizar el tiempo del equipo 1.
Ese es un ejemplo sencillo de la aplicación que se puede hacer con esos códigos vba, pero eso mismo lo puedes usar para adaptarlo a tus necesidades.
