Excel - VBA - meeldetuletuse loomine
Excel on tihti valikuvõimalus andmete töötlemiseks, aruannete ja diagrammide loomiseks erinevat tüüpi andmetest. Siiski võib kasutada ka Exceli, et teha muid huvitavaid asju, näiteks meeldetuletuse loomine . Seda saab teha VBA raamistiku abil. Meeldetuletuse loomiseks tuleb kirjutada kohandatud VBA kood, mis kasutab mõningaid sisseehitatud funktsioone . Kood tuleb siiski kõigepealt käsitsi käivitada ja seda jätkata järgmise iteratsiooni jaoks, kui töövihik on avatud. Kui kasutaja ei soovi koodi käsitsi käivitada, peavad nad määratlema kohandatud rutiini, mida nimetatakse workbook_open . 
Probleem
Ma tahan automaatselt meeldetuletussõnumi kasti saada vastavalt Exceli töölehe kuupäevale ja kellaajale.
Kas seda saab teha VBA-s?
Lahendus
--- A -------------- B -------- C ---------------------- D 1- Kuupäev ------- Aeg ------ Ülesanne ------------------- Meenuta 2- 13/3/2010 - 11:10 ---- Puhas ruum -------------- X 3- 13/3/2010 - 11:10 ---- Puhas auto ------------ ----- X
X: näitab, et see on aktiivne meeldetuletus. Selle meeldetuletuse keelamiseks eemaldage x
VBE (ALT + F11) ja projektiuuringu aknas topeltklõpsake "ThisWorkbook". Kleepige allolev kood.
Privaatsõnumite meeldetuletus Nagu Integer = 1 Eraldi meeldetuletusSee kui variant Avalik Sub meeldetuletusMe () currentTime = Aeg järgmine .Käesolev regioon.Rida.Kaasaarvestus = 2 mürskudele Kui (rakud (käigud, "D") = "X") Siis Thistime = CDate (CDate (rakud (käsk, "A")) + rakud (see, "B" ")) Kui ((thistime> = nüüd) ja (thistime <= nüüd + 1 * meeldetuletus / (24 * 60))) siis ülesanne = ülesanne ja vbCrLf & lahtrid (käsk, " C ") &" at "ja vorming (Rakud (käsk, "B"), "hh: mm") Lõpeta kui lõpp Kui järgmine Kui (ülesanne "") Seejärel MsgBoxi ülesanne reminderNext = Nüüd + TimeSerial (0, meeldetuletus, 0) Rakendus. Meenuta ",, Lõpeta alam
Samuti peate mõistma mõningaid asju:
- Kood tuleb esmakordselt käsitsi käivitada. Pärast seda, kuni te raamatu sulgete, kontrollib see ajakava, nagu te olete raamatus määranud.
- Pärast raamatu sulgemist ja selle uuesti käivitamist peate koodi uuesti alustama.
- Koodi käivitamiseks peate minema Macro'le ja seal leiad menüüribalt käivitusnupu.
- Kui te ei soovi koodi käsitsi käivitada ja soovite, et kood käivituks iga kord, kui te raamatu käivitate, siis peate määratlema rutiini, mida nimetatakse Workbook_Open ()
- Niisiis, kui soovid koodi käsitsi käivitada, siis teete täpselt nii, nagu te tegite enne ja kui soovite, et kood käivituks iseseisvalt, kui raamat avatakse, siis peate lisama veel ühe (säilitate vana koodi siiski ). Kood oleks:
Private Sub Workbook_Open () Kõne meeldetuletusMe End Sub
Märge
Täname rizvisa1 selle foorumi vihje eest.