Contador de tiempo en Excel - Macro

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.

MÁS SOBRE

Gerencie.com en su correo.

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

Siéntase libre de opinar

6 Opiniones
  1. Cristobal dice:

    Amigos espero que alguien me pueda ayudar, yo necesito que al cerrar el archivo excel, siga la cuenta regresiva. Creo si, que si apago el computador, ¿se pausaría el conteo verdad?.

    Necesitaría un servidor?, como lo podría hacer?

  2. Leonardo florez dice:

    Excelentes tips gracias,,,

  3. adrian dice:

    pero no puedo poner varios conteos regresivos
    se paraliza el programa
    y toca reinciarlo
    si ahi alguna solucion porfa hacerlo saber
    necesito crear una lista de varios conteos regresivos a la vez

  4. Jorge dice:

    Muchísimas Gracias. Funciona perfectamente.-

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc. Lo que no está permitido es insultar o escribir palabras ofensivas o soeces. Si lo hace, su comentario será rechazado por el sistema o será eliminado por el administrador. Por último, trate de no escribir en mayúscula sostenida, resulta muy difícil leerle.