
23/04/2002, 12:47
|
| | Fecha de Ingreso: febrero-2002
Mensajes: 15
Antigüedad: 23 años, 2 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. |