23/04/2002, 12:47
|
| | | Fecha de Ingreso: febrero-2002
Mensajes: 15
Antigüedad: 22 años, 3 meses Puntos: 0 | |
| Re: Sobre EXCEL, avanzada, se puede?
Prueba con este codigo
Sub RELOJ()
TiEMPO = 0
Do While TiEMPO = 0
Range("A1") = Time
DoEvents
Loop
End Sub
Esto hace un do while infinto te muestra la hora en la celda a1 y te la actuliza cada segundo, el Doevents hace que se salda cada segundo a otro procedimiento y te permite moverte en excel y hasta a otro programa que tienes abierto , lo unico malo es que se detiene en cuanto tu introduces un valor en otra celda y pulsas enter para aceptar el valor.
Espero que te sirva de algo. |