Mientras trabajaba en IBM, formé parte de un club ToastMasters International. Es un lugar donde puede mejorar sus habilidades de comunicación y liderazgo.
Una sección interesante de las reuniones semanales fue la charla improvisada. En esta parte de la reunión, a una persona se le dio un tema y tuvo que hablar sobre él durante 2 minutos. Había una persona designada que solía cronometrar el discurso y muestra una tarjeta verde al minuto 1, una tarjeta amarilla a la 1:30 minutos y una tarjeta roja a los 2 minutos.
Por lo general, se usa un teléfono inteligente o un reloj para medir el tiempo del discurso, y el tiempo que se tarda se registra manualmente en un papel.
A menudo sucede que la persona se olvida de mostrar las tarjetas de colores o, a veces, se olvida de registrar el tiempo de los oradores (me pasaba todo el tiempo). Con estas cosas en mente, he creado un cronómetro en Excel que ayudaría a cronometrar y registrar los discursos.
Primero, aprendamos a crear un cronómetro básico en Excel.
Cómo crear un cronómetro en Excel (básico)
Por un cronómetro simple / básico en Excel, me refiero a algo que comenzaría cuando presionamos el botón de inicio y se detendría cuando presionamos el botón de detener.
Algo como se muestra a continuación:
Descargue este cronómetro básico en Excel
Para crear este cronómetro en Excel, necesita conocer el Solicitud.A tiempo método en VBA.
Método Application.OnTime en VBA
El método Application.OnTime se puede utilizar cuando desee ejecutar un código específico en el futuro. Por ejemplo, puede usarlo para mostrar un cuadro de mensaje para recordarle que debe levantarse y estirar las piernas después de 1 hora o tomar medicamentos después de 3 horas.
Sintaxis del método Application.OnTime:
Application.OnTime (Hora mas temprana, Procedimiento, LatestTime, Calendario)
- EarliestTime: la hora a la que desea ejecutar el procedimiento.
- Procedimiento: el nombre del procedimiento que se debe ejecutar.
- LatestTime (Opcional): en caso de que se esté ejecutando otro código y el código especificado no se pueda ejecutar a la hora especificada, puede especificar el LatestTime que debe esperar. Por ejemplo, podría ser EarliestTime + 45 (lo que significa que esperará 45 segundos para que se complete el otro procedimiento). Si incluso después de 45 segundos el procedimiento no puede ejecutarse, se abandona. Si no especifica esto, Excel esperará hasta que se pueda ejecutar el código y luego lo ejecutará.
- Programación (opcional): si se establece en Verdadero, programa un nuevo procedimiento de tiempo. Si es False, cancela el procedimiento establecido previamente. De forma predeterminada, esto es Verdadero.
Un ejemplo de método Application.OnTime
Subprueba () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" End Sub Sub ShowMessage () MsgBox ("HOLA") End Sub
La primera parte de la macro utiliza el método Application.OnTime y ejecuta el procedimiento ShowMessage (entre comillas dobles) después de cinco segundos. El procedimiento ShowMessage simplemente muestra el cuadro de mensaje con el mensaje HOLA.
Puede utilizar este formato para ejecutar cualquier procedimiento después de un tiempo especificado a partir de la hora actual.
Ahora, usando este concepto, veamos el código para crear un cronómetro simple en Excel.
Atenuar NextTick como fecha, t como fecha Sub StartStopWatch () t = Hora de llamada StartTimer End Sub Sub StartTimer () NextTick = Hora + TimeValue ("00:00:01") Rango ("A1"). Valor = Formato (NextTick - t - TimeValue ("00:00:01"), "hh: mm: ss") Application.OnTime NextTick, "StartTimer" End Sub Sub StopTimer () En caso de error Reanudar la siguiente aplicación.OnTime EarliestTime: = NextTick, Procedimiento: = "StartTimer", Schedule: = False End Sub
Este código tiene 3 partes:
- La primera parte inicializa la hora actual a la variable t. Luego llama a otro procedimiento StartTimer.
- El procedimiento StartTimer utiliza una variable NextTick que se incrementa en 1 con cada segundo que pasa. En la hoja de trabajo, la celda A1 tiene el temporizador en ejecución, ya que hemos especificado NextTick - t -TimeValue ("00:00:01"), "hh: mm: ss") para que sea el valor en esa celda. Luego ejecuta el código StartTimer nuevamente después de cada segundo.
- StopTimer cancela el procedimiento Application.Ontime haciendo que el valor de programación sea False. Esto detiene el temporizador.
Esto es lo que obtendrá con el código anterior (he asignado las macros a los botones de inicio / parada):
Este es un cronómetro básico en Excel.
Yo lo llamo básico ya que no puedes parar en el medio y reiniciar donde lo dejaste. Siempre se reiniciará desde 1 cuando presione el botón de inicio.
Ahora que ha aprendido los conceptos básicos del método Application.OnTime, puede modificarlo fácilmente para crear el tipo de cronómetro que desee en Excel.
Cronómetro en Excel (para ToastMasters)
Utilicé el concepto discutido anteriormente y creé un cronómetro en Excel que se puede usar en la reunión de Toastmasters (que mencioné al comienzo de este tutorial).
Estas son las cosas que se pueden hacer con este cronómetro:
- Puede detener el temporizador y luego reiniciarlo desde la misma hora (registrada hasta entonces).
- Puede restablecer el temporizador. Esto establece el valor del temporizador en 0. Tan pronto como lo hace, registra automáticamente el tiempo total transcurrido.
- Cambia el color del cuadro del temporizador, dependiendo del valor del cronómetro (esto podría ser un buen recordatorio para mostrar las tarjetas verde / amarilla / roja).
Así es como se ve:
En esta demostración anterior, configuré el cambio de color cada cinco segundos. Puede especificar fácilmente cuándo desea que cambie el color (la tarjeta verde a 1 minuto, la tarjeta amarilla a los 1,5 minutos y una tarjeta roja a los 2 minutos) cambiando los valores en la hoja de Cálculo.
Tan pronto como presione el botón de reinicio, el color del temporizador volverá a ser blanco, el valor del temporizador se volverá 0 y registrará el tiempo en la columna G.
Nota: Dado que estos archivos contienen macro, deberá habilitar las macros antes de usarlas. Cuando abra el libro de trabajo, verá un botón amarillo: Habilitar contenido. Haga clic en él para habilitar macros.
Si creas algo genial con un temporizador, compártelo conmigo.
