Foros del Web » Soporte técnico » Ofimática »

Timer en Excel

Estas en el tema de Timer en Excel en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 01/07/2007, 20:15
 
Fecha de Ingreso: junio-2007
Mensajes: 20
Antigüedad: 12 años, 2 meses
Puntos: 1
Timer en Excel

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,
  #2 (permalink)  
Antiguo 02/07/2007, 10:16
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 15 años, 9 meses
Puntos: 11
Re: Timer en Excel

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
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #3 (permalink)  
Antiguo 02/07/2007, 16:35
Avatar de abrahamvj  
Fecha de Ingreso: julio-2006
Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 13 años, 1 mes
Puntos: 18
Re: Timer en Excel

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
  #4 (permalink)  
Antiguo 02/07/2007, 19:37
 
Fecha de Ingreso: junio-2007
Mensajes: 20
Antigüedad: 12 años, 2 meses
Puntos: 1
Re: Timer en Excel

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
  #5 (permalink)  
Antiguo 03/07/2007, 14:34
Avatar de abrahamvj  
Fecha de Ingreso: julio-2006
Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 13 años, 1 mes
Puntos: 18
Re: Timer en Excel

PAra "detenerlo":

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

Figura de un cronometro? No entiendo eso .

Abraham
  #6 (permalink)  
Antiguo 04/07/2007, 18:25
 
Fecha de Ingreso: junio-2007
Mensajes: 20
Antigüedad: 12 años, 2 meses
Puntos: 1
Re: Timer en Excel

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
  #7 (permalink)  
Antiguo 05/07/2007, 13:51
Avatar de abrahamvj  
Fecha de Ingreso: julio-2006
Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 13 años, 1 mes
Puntos: 18
Re: Timer en Excel

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
  #8 (permalink)  
Antiguo 10/01/2008, 15:52
 
Fecha de Ingreso: enero-2008
Mensajes: 13
Antigüedad: 11 años, 8 meses
Puntos: 0
Información Re: Timer en Excel

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
  #9 (permalink)  
Antiguo 11/01/2008, 14:39
 
Fecha de Ingreso: junio-2007
Mensajes: 20
Antigüedad: 12 años, 2 meses
Puntos: 1
Re: Timer en Excel

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
  #10 (permalink)  
Antiguo 11/01/2008, 14:51
 
Fecha de Ingreso: junio-2007
Mensajes: 20
Antigüedad: 12 años, 2 meses
Puntos: 1
Re: Timer en Excel

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
  #11 (permalink)  
Antiguo 13/08/2009, 06:24
 
Fecha de Ingreso: agosto-2009
Ubicación: bogota
Mensajes: 2
Antigüedad: 10 años, 1 mes
Puntos: 0
Respuesta: Timer en Excel

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

Última edición por BrujoNic; 13/08/2009 a las 14:01
  #12 (permalink)  
Antiguo 13/08/2009, 08:33
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 15 años, 9 meses
Puntos: 11
Respuesta: Timer en Excel

Cita:
Iniciado por micovi Ver Mensaje
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
__________________
-- Nunca te des por vencido, aún vencido -- Web

Última edición por BrujoNic; 13/08/2009 a las 14:02
  #13 (permalink)  
Antiguo 13/08/2009, 14:03
Avatar de BrujoNic
Moderador
 
Fecha de Ingreso: noviembre-2001
Ubicación: Costa Rica/Nicaragua
Mensajes: 16.900
Antigüedad: 17 años, 10 meses
Puntos: 632
Respuesta: Timer en Excel

Cerrado...

No se permite revivir temas viejos.

Lee Las Políticas de Foros del Web.
__________________
La tecnología está para ayudarnos. No comprendo el porqué con esa ayuda, la gente escribe TAN MAL.
NO PERDAMOS NUESTRO LINDO IDIOMA ESPAÑOL
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Tema Cerrado

SíEste tema le ha gustado a 3 personas (incluyéndote)




La zona horaria es GMT -6. Ahora son las 19:17.