Timer en Excel

[MIguel Alarco]

Saludos a todos,
Quiero mostrar en una hoja Excel un reloj (puede ser digital o tradicional) que muestre una cuenta regresiva por segundos (por decir 60 segundos en regresión), que se activa cuando se abre el archivo, se muestra en la hoja Excel el reloj y se ejecuta una sentencia cuando culmina el tiempo.

Agradeceré los aportes que me puedan brindar para desarrollar este timer.

Gracias,

[Pablus00]

Hola Miguel, en una oportunidad tuve la misma busqueda, se que esta disponible en visual, pero no pude encontrar donde bajar el componente para agregarlo a excel, ya veremos si alguien mas sabe al respecto, salu2

[abrahamvj]

Suponiendo que en B2 han colocado, por ejemplo 00:59 o el formato que deseen, y para que "retroceda" segundo a segundo:

Dim tiempo As Date

Sub crono()
tiempo = Now + TimeValue("00:00:01")
Application.OnTime tiempo, "calcular"
End Sub

Sub calcular()
Range("b2").Value = Range("b2").Value - 1.15740740740805E-05
If Range("b2").Value <= 0 Then
Range("b2") = "00:00:00"
End If
Call crono
End Sub

Abraham

[MIguel Alarco]

Hola Abraham,
Hice unas pruebas y funciona. Gracias!!!
El script lo puse en un módulo, y en el editor de VBA en ThisWorkBook puse la siguiente sentencia:

Private Sub Workbook_Open()
crono
End Sub

Lo que permite que se active el reloj al momento de abrir el archivo.

CONSULTO
¿Cómo hago para detener la cuenta regresiva, y quede congelada la hora que se detuvo?
He puesto un botón (comando) al lado del reloj, que al presionarlo detenga la cuenta. He probado algunas sentencia para este comando, pero no lo detiene.

POr otro lado, ¿Se puede incorporar la figura de un cronómetro?

Saludos y gracias,

Miguel

[abrahamvj]

PAra "detenerlo":

Application.OnTime EarliestTime:=tiempo, _
Procedure:="calcular", Schedule:=False

Figura de un cronometro? No entiendo eso .

Abraham

[MIguel Alarco]

Hola Abraham
Utilicé la sentencia, pero me salió el siguiente error:

Se ha producido el error '1004' en tiempo de ejecución:
error en el método On Time de objeto '_Application'

Por otro lado, sobre aquello de cronómetro, me refiero a que actualmente el tiempo lo muestro en una celda estilo reloj digital. Cuando menciono cronómetro, intento referirme a mostrar el tiempo no en forma de reloj digital, sino mas bien en forma de una figura de reloj tradicional o estilo cronómetro, es decir, una figura circular que muestre las agujas del segundero, minutero y horario, en movimiento.

Saludos y gracias por las coordinaciones.

Miguel

[abrahamvj]

La rutina para "detenerlo", debe estar en otra macro, y sobre todo, no olvides que los parametros que tiene estan referidos a los codigos que yo te envie, por lo tanto deberias cambiarlos con las modificaciones qeu has realizado.

Sobre lo del "cronometro", se podria "contruir" algo usando la barra de dibujos, y con VBA, se podria hacer que "avance el reloj", pero, la verdad, esta un poquitin laborioso

abraham

[percycano]

Pero como puedo usar un control TIMER en una macro de excel que actualize cada 5 min por ejemplo, los datos que va jlando de una base de datos de access,????, no se si me dejo entender, pero,necesito hacer como un refresh constantemente a unabase de datos que se esta jalanado hacia excel, esot con la finalidad de poder graficarlos de manera autmatica, para ver el cambio de dichos datos... y los datos que se van a gregando.

SAlu2

[MIguel Alarco]

Mis estimados amigos que han tenido la misma inquietud sobre el tema de Timer en Excel.

Adjunto les brindo el siguiente link, que logré hallar navegando, donde podrán bajar un ejemplo sobre Excel Timer, en que pueden iniciar un contador de tiempo, y también detenerlo.

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=34409&lngWId=1

Espero que les sea útil.

Saludos,

Miguel Alarco

[MIguel Alarco]

Con respecto a que corra una macro en función a tiempos, prueben con lo siguiente algoritmo, que deben poner en un módulo del VBA:

Sub Ncinc()
Application.OnTime Now + TimeValue("00:00:05"), "CambiaCell"
End Sub

Sub CambiaCell()
Range("D4").Value = "xx"
End Sub


Este ejemplo activa la macro transcurridos 5 segundos. Ustedes establecen el tiempo.

Saludos,

Miguel Alarco

[micovi]

Hola amigo
CRONOMETRO
Necesito crear un cronometro en EXCEL que opere continuamente desde 15, 10, 2 ó 1 minuto, y tengan unos botones para: ARRANCAR, ponerlo en CERO DETENERLO, y permita CONTINUAR con su cuenta regresiva, además emita una señal audible automáticamente a los noventa, a los treinta y cero segundos finales.
Micovi


Mi correo es EDITADO... La ayuda se da en los foros

[Pablus00]

Iniciado por micovi

Hola amigo
CRONOMETRO
Necesito crear un cronometro en EXCEL que opere continuamente desde 15, 10, 2 ó 1 minuto, y tengan unos botones para: ARRANCAR, ponerlo en CERO DETENERLO, y permita CONTINUAR con su cuenta regresiva, además emita una señal audible automáticamente a los noventa, a los treinta y cero segundos finales.
Micovi


Mi correo es EDITADO... La ayuda se da en los foros

lo unico que te falto agregar es.. quiero que me lo envies con urgencia, a mas tardar 48hs . Amigo la idea es que heches mano vos, y la comunidad te salve algunas dudas.

si pedimos por pedir

[BrujoNic]

Cerrado...

No se permite revivir temas viejos.

Lee Las Políticas de Foros del Web.