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

Preguntas similare

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?




Respuesta Responder a este mensaje
#2 Héctor Miguel
27/01/2009 - 06:50 | Informe spam
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?
Respuesta Responder a este mensaje
#3 Héctor Miguel
27/01/2009 - 09:00 | Informe spam
hola, Luis !

... me imagine que algo asi podia ocurrir, y en vista de que el asunto puede ser grave... desecho la idea de ponerle el reloj.



lo que no veo es la utilidad (o sentido/necesidad) de poner un reloj en celda/s de una hoja de calculo -?- si...

- tienes disponible un reloj en la barra de tareas de windows

- podrias poner un control StatusBar en un formulario (vba) y mostrarlo "sin modo" (userform1.show vbmodeless) xl'2000 en adelante
y en el modulo del formulario, en el evento '_initilize' poner una instruccion +/- como lo siguiente:

Private Sub UserForm_Initialize()
StatusBar1.Panels(1).Style = sbrTime
End Sub

- podrias "cargar" otro formulario con un reloj "analogo" (hay paginas con ejemplos para esto)

- etc. etc. etc.

saludos,
hector.
Respuesta Responder a este mensaje
#4 LUIS DANNY SALAS
27/01/2009 - 15:32 | Informe spam
Gracias Héctor , en realidad es cierto el reloj no es tan necesario, quería
ponerlo a la par del sistema que elabore para registro de llegada tardías de
estudiantes, pero en realidad es por puro lujo, pensé que le daría un toque
muy elegante, pero en realidad no es tan importante.
T cuento que yo sé muy poco de visual Basic, en realidad lo que me has
enseñado vos y otras personas en este foro :) mi profesión es profesor de
ciencias pero me gusta trabajar cosas útiles en Excel,no sé como poner un
control EstausBar ??? por que quería probar tu sugerencia

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

... me imagine que algo asi podia ocurrir, y en vista de que el asunto
puede ser grave... desecho la idea de ponerle el reloj.



lo que no veo es la utilidad (o sentido/necesidad) de poner un reloj en
celda/s de una hoja de calculo -?- si...

- tienes disponible un reloj en la barra de tareas de windows

- podrias poner un control StatusBar en un formulario (vba) y mostrarlo
"sin modo" (userform1.show vbmodeless) xl'2000 en adelante
y en el modulo del formulario, en el evento '_initilize' poner una
instruccion +/- como lo siguiente:

Private Sub UserForm_Initialize()
StatusBar1.Panels(1).Style = sbrTime
End Sub

- podrias "cargar" otro formulario con un reloj "analogo" (hay paginas con
ejemplos para esto)

- etc. etc. etc.

saludos,
hector.

Respuesta Responder a este mensaje
#5 Héctor Miguel
27/01/2009 - 20:07 | Informe spam
hola, Luis !

... el reloj no es tan necesario... es por puro lujo, pense que le daria un toque muy elegante, pero... no es tan importante.
... pero me gusta trabajar cosas utiles en Excel,no se como poner un control EstausBar ??? ... queria probar tu sugerencia



para "ese" libro, inserta en vba un formulario (userform) y desde la barra de controles (de vba) agrega un control "StatusBar"
si no lo tienes en el cuadro de herramientas, pulsa con el boton secundario y elige "controles adicionales"
lo encuentras (por orden alfabetico) como "microsoft statusbar control, version x.0 (SPx)"
una vez incorporado a tu formulario, copias/pegas (o escribes) las lineas sugeridas en el modulo de codigo del formulario
y preparas una macro para mostrar "sin modo" ese formulario (excel 2000 en adelante) p.e.

Sub MostrarFormulario
UserForm1.Show vbModeless
End Sub

si cualquier duda... comentas ?
saludos,
hector.

__ OP __
... me imagine que algo asi podia ocurrir, y en vista de que el asunto puede ser grave... desecho la idea de ponerle el reloj.



lo que no veo es la utilidad (o sentido/necesidad) de poner un reloj en celda/s de una hoja de calculo -?- si...

- tienes disponible un reloj en la barra de tareas de windows

- podrias poner un control StatusBar en un formulario (vba) y mostrarlo "sin modo" (userform1.show vbmodeless) xl'2000 en adelante
y en el modulo del formulario, en el evento '_initilize' poner una instruccion +/- como lo siguiente:

Private Sub UserForm_Initialize()
StatusBar1.Panels(1).Style = sbrTime
End Sub

- podrias "cargar" otro formulario con un reloj "analogo" (hay paginas con ejemplos para esto)

- etc. etc. etc.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida