Anónimo
Buen reloj
Hola buenos días por favor ayudame: tengo una hoja con varias macros, pero necesito que en una celda de esa hoja pueda ver la hora normal con horas, minutos y segundos
encontré un código para esa hora, la cual funciona pero el segundero hace que la pantalla titile lo cual es muy desagradable porque sucede en cada segundo por favor necesito esa hora pero que la pantalla no titile. Te adjunto el código de la hora que tengo, te aclaro que en una hoja en blanco la pantalla no titila pero como necesito mostrarlo en la hoja donde tengo varias macros con sus respectivos botones.
Por tu ayuda de antemano te agradezco mucho! Chao
Ademas también necesito que el reloj funcione cada vez que abra el libro sin tener que tocar botones. Este es el código
aSub reloj()
'Mostramos la hora
ActiveSheet.Range("A1") = Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "reloj"
End Subh este es el codigo que tengo
encontré un código para esa hora, la cual funciona pero el segundero hace que la pantalla titile lo cual es muy desagradable porque sucede en cada segundo por favor necesito esa hora pero que la pantalla no titile. Te adjunto el código de la hora que tengo, te aclaro que en una hoja en blanco la pantalla no titila pero como necesito mostrarlo en la hoja donde tengo varias macros con sus respectivos botones.
Por tu ayuda de antemano te agradezco mucho! Chao
Ademas también necesito que el reloj funcione cada vez que abra el libro sin tener que tocar botones. Este es el código
aSub reloj()
'Mostramos la hora
ActiveSheet.Range("A1") = Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "reloj"
End Subh este es el codigo que tengo
1 respuesta
Respuesta de edwinhenao
1
La pantalla titila porque hace un calculate cada segundo, eso lo hace el OnTime se le dice a la macro que se ejecute cada segundo... No creo que se pueda evitar, prueba con:
...
Application.ScreenUpdating = False
...
Y para que la macro se ejecute automáticamente crea una macro que se llame auto_open y que llame el reloj.
...
Sub auto_open()
Call reloj
End Sub
...
Éxitos.
...
Application.ScreenUpdating = False
...
Y para que la macro se ejecute automáticamente crea una macro que se llame auto_open y que llame el reloj.
...
Sub auto_open()
Call reloj
End Sub
...
Éxitos.