Contador de tiempo en Excel - Macro

Por

El control de tiempos en las reuniones es una parte importante para lograr el cumplimiento de los objetivos. Desde Excel podemos diseñar un contador por medio de una macro en la cual adaptaremos una celda donde indicaremos el tiempo definido para la reunión y al iniciar la intervención, se inicia un conteo regresivo para que al finalizar este conteo automático, se presente un mensaje de alerta para finalizar.

Lo primero es personalizar el formato de la celda donde vamos a insertar el tiempo de la reunión. Para ello, damos clic derecho sobre la celda A2 y abrimos la ventana de Formato de celda:

En la pestaña Número seleccionamos la categoría Personalizada y en el espacio de Tipo agregamos el siguiente texto: h:mm:ss

Damos aceptar y ahora coloquemos un tiempo de 5 segundos de prueba:

Ahora debemos crear la macro, para ello aplicamos la combinación de teclas Alt + F11 para abrir el editor de visual Basic. En el panel de explorador de proyectos ubicamos el libro de trabajo e insertamos un Módulo:

Damos doble clic en el Módulo desde el explorador de proyectos y pegamos el siguiente código:

Sub ProgramaCuentaRegresiva()

Dim CuentaRegresiva As Date

CuentaRegresiva = Now + TimeValue("00:00:01")

Application.OnTime CuentaRegresiva, "ProgramaCuenta"

End Sub

Sub ProgramaCuenta()

Dim Cuenta As Range

Set Cuenta = [A2]

Cuenta.Value = Cuenta.Value - TimeSerial(0, 0, 1)

If Cuenta <= 0 Then

MsgBox "Terminó el Conteo", vbExclamation, "Cuenta Regresiva"

Exit Sub

End If

Call ProgramaCuentaRegresiva

End Sub

Ahora volvemos a la hoja Excel, insertamos un cuadro y asignamos la macro ProgramaCuenta (Clic derecho sobre el cuadro y seleccionamos Asignar Macro):

Ya está listo, ahora solo queda dar clic y al finalizar el conteo aparece el siguiente mensaje:

Descargar archivo de trabajo.

Contenido relacionado:
Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.


Déjenos su opinión

2 Opiniones
  1. Antonio Dice:

    esta macro da error
    no se si la han corregido ya

    Responder
  2. Ricardo Bassano Dice:

    Buenas, gracias por su aporte. Una consulta: tengo una hoja de cálculo con varios contadores de tiempo en cuenta regresiva que funcionan muy bien con el solo problema de que el o los contadores que se encuentren activos se detienen al seleccionar cualquier otra celda para ingresar datos. Espero puedan ayudarme, desde ya muchas gracias

    Responder
En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo con respeto, sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.