Selles artiklis loome makro, et helistada teisele makrole või käivitada käsk pärast määratud ajavahemikku.
Makro käivitamiseks klõpsake nuppu „Käivita taimer”.
Makro käivitamisel kuvatakse makro „TimerMsg” sõnumikast.
Kui kasutaja klõpsab nupul „OK”, kutsutakse kolm sekundit hiljem makro „MsgProcedure”. Makro „MsgProcedure” kuvab teadete kasti.
Loogiline seletus
Selles näites oleme loonud kaks makrot “TimerMsg” ja “MsgProcedure”. "TimerMsg" makro kuvab infosõnumi ja kutsub pärast kolme sekundilist ootamist koodis määratletud teksti „MsgProcedure”.
Koodi selgitus
Application.OnTime meetod
Application.OnTime meetodit kasutatakse protseduuri ajastamiseks teatud ajavahemike järel.
Süntaks
Rakendus .OnTime Time, protseduuri_nimi
Aeg määrab ajavahemiku, millal protseduur tuleks käivitada.
Protseduuri_nimi määrab protseduuri nime.
Makro „MsgProcedure” ajastamiseks kasutasime meetodit Application.onTime.
Palun järgige koodi allpool
Valik Selgesõnaline Sub TimerMsg () 'Kuupäeva muutuja deklareerimine Dim AlertTime As Date' Kuvatakse taimeri alguses sõnumikast MsgBox "Alarm lülitub välja 3 sekundi pärast!" 'Taimeri aja seadmine 3 sekundiks pärast aktiveerimisaega AlertTime = Now + TimeValue ("00:00:03")' Taimeri aktiveerimine ja MsgProcedure'i käivitamine taimer Application.OnTime AlertTime, "MsgProcedure" Alamjaotuse lõpp MsgProcedure () 'Taimerinäite MsgBox jaoks loodud näidisprotseduur "Kolm sekundit on läbi!" End Sub
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile