Reloj

27/01/2009 - 02:52 por LUIS DANNY SALAS | Informe spam
Hola, gracias por la atención:
quiero poner un reloj en varias celdas de una hoja en especial
y quiero que el reloj esté activo cuando el usuario entre en esa hoja
he estado tratando varias formas pero no me resulta.
tengo esto:

Sub reloj()
Aplicación.ScreenUpdating = false
[A1] = Format(Now, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "reloj"
End Sub

pero no se bien como indicarle que ponga el reloj en las demas celdas que
ocupo, además de indicarle que se active al ingresar a la hoja
correspondiente.
agradezco la valiosa ayuda.

Otra cosa me preocupa, cuando uso la macro tal y como la escribí ahí.
arriba, el reloj funciona bien marcando en la celda cada segundo, pero
constantemente cada segundo también en el cursor del mouse se ve el relojito
de arena parpadear cada vez que la macro ejecuta el nuevo valor cada
segundo, también como que "vibran algunas celdas, pensé que era el refresco
de pantalla, pero no, probé también protegiendo la hoja, pero sigue igual
que puede ser y como se puede eliminar?

Gracias
 

Leer las respuestas

#1 LUIS DANNY SALAS
27/01/2009 - 05:15 | Informe spam
Gracias Héctor, me imagine que algo así podía ocurrir, y en vista de que el
asunto puede ser grave, te agradezco ,desecho la idea de ponerle el reloj.
Gracias

"Héctor Miguel" escribió en el mensaje
news:
hola, Luis !

mientras un codigo sea "recursivo" y se este (auto)ejecutando cada
x_tiempo...
- NO podras evitar un constante parpadeo en tu modelo
- corres el riesgo de que la constante ejecution de codigo llegue incluso
a entorpecer la interaccion del usuario
- y corres el riesgo tambien (si no provees una cancelacion del evento) de
que el libro llegara a NO cerrarse -?-

revisa (muy cuidadosamente) la informacion de esta pagina:
-> Scheduling Events With OnTime And Windows Timers
http://www.cpearson.com/Excel/OnTime.aspx

saludos,
hector.

__ OP __
quiero poner un reloj en varias celdas de una hoja en especial
y quiero que el reloj esté activo cuando el usuario entre en esa hoja
he estado tratando varias formas pero no me resulta. tengo esto:

Sub reloj()
Aplicación.ScreenUpdating = false
[A1] = Format(Now, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "reloj"
End Sub

pero no se bien como indicarle que ponga el reloj en las demas celdas que
ocupo
además de indicarle que se active al ingresar a la hoja correspondiente.
agradezco la valiosa ayuda.

Otra cosa me preocupa, cuando uso la macro tal y como la escribi ahi
arriba
el reloj funciona bien marcando en la celda cada segundo
pero constantemente cada segundo también en el cursor del mouse se ve el
relojito de arena parpadear
cada vez que la macro ejecuta el nuevo valor cada segundo
tambien como que "vibran algunas celdas, pense que era el refresco de
pantalla, pero no
probe tambien protegiendo la hoja, pero sigue igual
que puede ser y como se puede eliminar?




Preguntas similares