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

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 LUIS DANNY SALAS

28/01/2009 - 03:40 | Informe spam

Muchas gracias, lo hice y me salió bien, calor no era la idea que tenia al
principio y creo que no lo voy a utilizar , la Verdú des que nada le cuesta
al usuario ver la barra de herramientas de todas formas echas gracias.

"Héctor Miguel" escribió en el mensaje
news:%

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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida