Avatar billede clemen Nybegynder
10. oktober 2002 - 11:03 Der er 1 løsning

Beregn nu hver 2. minut?

Kan det lade sig gøre at et åbent ark automatisk opdateres hver andet minut. Jeg har leget lidt med autoupdatefrequenci i VBA, men kan ikke finde ud af det.

Peter
Avatar billede clemen Nybegynder
10. oktober 2002 - 13:44 #1
Ved hjælp følgende kunne jeg gøre hvad jeg ville:

Option Explicit
Dim NextTick

Sub StartClock()
    UpdateClock
End Sub

Sub StopClock()
'  Cancels the OnTime event (stops the clock)
    On Error Resume Next
    Application.OnTime NextTick, "UpdateClock", , False
End Sub

Sub cbClockType_Click()
'  Hides or unhids the clock
    With ThisWorkbook.Sheets("Clock")
        If .DrawingObjects("cbClockType").Value = xlOn Then
            .ChartObjects("ClockChart").Visible = True
        Else
            .ChartObjects("ClockChart").Visible = False
        End If
    End With
End Sub

Sub UpdateClock()
'      DIGITAL CLOCK
        ThisWorkbook.Sheets("Clock").Range("DigitalClock").Value = CDbl(Time)
 
'  Set up the next event one second from now
    NextTick = Now + TimeValue("00:01:00")
    Application.OnTime NextTick, "UpdateClock"
End Sub

MVH Peter
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester