Zdarzenie OnTime

Application.OnTime to metoda obiektu Application wywoływana zdarzeniem związanym z określonym czasem systemowym. 

Argumenty metody to:

• • • EarliestTime – czas, kiedy procedura ma zostać uruchomiona
      argument obowiązkowy
    • Procedure – nazwa procedury, która ma zostać uruchomiona
      argument obowiązkowy
    • LatestTime- ostatni czas, kiedy procedura ma zostać uruchomona
      argument nieobowiązkowy
    • Schedule – powtarzalność. Argument decydujący, czy procedura ma być ponownie uruchomiona (wartość True) czy nie (wartość False).
      Argument opcjonalny, wartość domyślna True. 

Przykład procedury z wykorzystaniem metody OnTime – przez 20 minut, co minute jest wpisywany bieżący czas do kolejnych komórek kolumny K. 

’Zmienne globalne: Public NastCzas As Date Public CzasKoniec As Date ’ Uruchomienie cyklicznego wpisywania Public Sub StartCzas() CzasKoniec = Now + TimeValue(„00:20:00”) WpiszCzas End Sub ’ Procedura wpisująca czas i planująca kolejne wywołanie Public Sub WpiszCzas() Dim i As Long i = Range(„K” & Rows.Count).End(xlUp).Row + 1 Range(„K” & i).Value = Now() ’ zaplanuj kolejne wywołanie za minutę NastCzas = Now + TimeValue(„00:01:00”) Application.OnTime EarliestTime:=NastCzas, Procedure:=”WpiszCzas”, LatestTime:=CzasKoniec, Schedule:=True End Sub

 

---