Lai izpildītu apakšnodaļu Excel VBA pēc noteikta laika, izmantojiet onTime, Now un funkciju TimeValue. Vispirms modulī ievietojiet apakšvirsrakstu.
1. Atveriet Visual Basic Editor un noklikšķiniet uz Insert, Module.
2. Pievienojiet šādu apakšpunktu ar atgādinājumu par nosaukumu:
Atgādinājums ()
MsgBox "Neaizmirstiet savu tikšanos plkst. 14.30"
Beigu apakš
Mēs vēlamies, lai Excel VBA izpildītu šo apakšpunktu 5 sekundes pēc komandas pogas noklikšķināšanas.
2. Ievietojiet komandas pogu savā darblapā un pievienojiet šādu koda rindiņu:
Application.OnTime Now () + TimeValue ("00:00:05"), "atgādinājums"
3. Darblapā noklikšķiniet uz komandas pogas.
Rezultāts pēc 5 sekundēm:
4. Ja vēlaties izpildīt šo apakšnodaļu noteiktā laikā, vienkārši izmantojiet šādu koda rindiņu:
Application.OnTime TimeValue ("14:00:00"), "atgādinājums"
5. Darblapā noklikšķiniet uz komandas pogas un pagaidiet līdz pulksten 14:00, lai redzētu, kā tiek izpildīts apakšpakalpojums.
Piezīme: jūs, iespējams, neizmantosit Excel VBA, lai atgādinātu sev par svarīgu sapulci, bet, ja vēlaties, vislabāk ir ievietot šādu makro darbgrāmatas atklātajā notikumā. To darot, jūs automātiski saņemsiet atgādinājumu pulksten 14:00 (jums nav jānoklikšķina uz komandas pogas, lai aktivizētu makro). Protams, atgādinājumu saņemsiet tikai tad, kad atstāsit atvērtu savu darbgrāmatu.
