Tässä artikkelissa luomme makron kutsumaan toista makroa tai suorittamaan komennon määritettyjen ajanjaksojen jälkeen.
Suorita makro napsauttamalla ”Käynnistä ajastin” -painiketta.
Makroa ajettaessa "TimerMsg" -makro näyttää viestiruudun.
Kun käyttäjä napsauttaa "OK" -painiketta, kolme sekuntia myöhemmin kutsutaan "MsgProcedure" -makro. "MsgProcedure" -makro näyttää viestiruudun.
Looginen selitys
Tässä esimerkissä olemme luoneet kaksi makroa ”TimerMsg” ja “MsgProcedure”. “TimerMsg” makro näyttää tietosanoman ja kutsuu MsgProcedure -koodin kolmen sekunnin odottamisen jälkeen, kuten koodi on määritelty.
Koodin selitys
Application.OnTime -menetelmä
Application.OnTime -menetelmää käytetään ajoittamaan menettely suoritettavaksi määritetyin aikavälein.
Syntaksi
Sovellus .Käyttöaika, menettelyn_nimi
Aika määrittää ajanjakson, jona menettely on suoritettava.
Proced_name määrittää menettelyn nimen.
Olemme käyttäneet Application.onTime -menetelmää "MsgProcedure" -makron ajoittamiseen.
Seuraa koodia alla
Vaihtoehto Explicit Sub TimerMsg () 'Ilmoituspäivämäärän muuttuja Dim AlertTime As Date' Näytetään viestiruutu ajastimen alussa MsgBox "Hälytys sammuu 3 sekunnin kuluttua!" 'Ajastimen asettaminen 3 sekunnille aktivointiajan jälkeen AlertTime = Now + TimeValue ("00:00:03")' Ajastimen aktivointi ja MsgProcedure -ohjelman suorittaminen ajastimen Application.OnTime AlertTime, "MsgProcedure" lopussa MsgProcedure () 'Esimerkkimenettely luotu ajastimen esimerkille MsgBox "Three Seconds is up!" End Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse