Hello! Hello!
Van egy ilyen óra programom, egy Excel munkalapon :
Dim TimerActive As Boolean
Sub StartTimer1()
Start_Timer1
End Sub
Private Sub Start_Timer1()
TimerActive = True
Application.OnTime Now() + TimeValue(„00:00:01”), „Timer1”
End Sub
Private Sub Stop_Timer1()
TimerActive = False
End Sub
Private Sub Timer1()
If TimerActive Then
Sheets(„ny?t?lap”).Cells(1, 1).Value = Time
Application.OnTime Now() + TimeValue(„00:00:01”), „Timer1”
End If
End Sub
Ha aktív a program a kurzor karika formájú lesz ill. a karika és a kereszt váltakozik. Ebben az időszakban használhatatlan , nem lehet kattintani, írni… Le kell állítsam az órát, ha valamit csinálni akarok. Lehet valamit tenni, hogy az óra is menjen és a „munka” is haladjon?
üdv. Potus
.
