28. juli 2003 - 13:44Der er
6 kommentarer og 1 løsning
Makro: opdatering af tid
Jeg har følgende makro, jeg bruger til en løbende opdatering af klokkeslæt.
Sub UpdateClock() Dim Clock As Chart
ThisWorkbook.Sheets("Schedule").Range("K3").Value = CDbl(Time) ThisWorkbook.Sheets("Schedule-2").Range("K3").Value = CDbl(Time) ' Set up the next event one minute from now NextTick = Now + TimeValue("00:01:00") Application.OnTime NextTick, "UpdateClock" End Sub
I stedet for at benytte TimeValue kan man så ikke få sub'en til at opdatere tiden sammen med pc'ens ur? I bekræftende fald, hvordan så?
Ja, den bruges også i linien NextTick, men den henter, så vidt jeg kan se, kun tiden én gang, nemlig når man åbner arket, den opdaterer ikke. Som makroen er nu, vil den opdatere arket hvert minut fra Now, da arket blev åbnet, og det kan være 12:00:36. Det jeg gerne vil,er at få den rettet ind, så den skifter/opdaterer sammen med pc'en. Håber det er forståeligt :o)
Ja. Jeg kan selvfølgelig sætte den til at opdatere oftere, men synes, det vil være en mere elegant løsning, hvis den følger pc'en. Makroen virker i og for sig godt nok, da den gør arbejdet, men perfektionisten er kommet op i mig :o)
Jeg stiller nok for høje krav til excel, og må nøjes med den makro, jeg allerede har, medmindre nogen kan komme på en løsning, så er der selvfølgelig stadig point.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
