Allpool vaatame programmi Exceli VBA mis määrab taustavärvi ülesanded, mis on graafikus roheliseks ja määrab ajakavast maha jäänud ülesannete taustavärvi punaseks.
Olukord:
Lehel1 on meil kolm ülesannet (X, Y, Z). "1" näitab, et ülesanne on lõpule viidud. Ülesanne on ajakavas, kui igas veerus on tänase kuupäevani kaasa arvatud „1”. Täna on 6-juuni. Ülesanded X ja Y on graafikus. Ülesanne Z on graafikust maas (lahtris E8 pole "1").
Töölehe muutmise sündmuse loomine. Töölehe muutmise sündmusele lisatud kood käivitatakse Exceli VBA abil, kui muudate töölehe lahtrit.
1. Avage Visual Basic Editor.
2. Topeltklõpsake Project Exploreris Sheet1 (Sheet1).
3. Valige vasakpoolsest ripploendist Tööleht. Valige parempoolsest ripploendist Muuda.
Lisage töölehe muutmise sündmusele järgmised koodiridad:
4. Deklareerige kaks täisarvulist muutujat.
Dim i täisarvuna, j täisarvuna
5. Lisage Do while Loop.
Tehke samas lahtrid (6 + i, 1) .Väärtus ""
i = i + 1
Loop
Selgitus: i = 0 korral kontrollib Excel VBA ülesannet X, i = 1, ülesannet jne. Excel VBA jätab lahtri Do (D) ajal silmuse, kui lahtrid (6 + i, 1). Väärtus on tühi (rohkem kontrollitavaid ülesandeid pole) .
Lisage Do while Loopile järgmised koodiridad (6, 7 ja 8).
6. Initsialiseeri muutuja j väärtusega 0.
j = 0
7. Määrake ülesande taustavärv roheliseks, eeldades, et ülesanne on graafikus (see ei pruugi muidugi tõsi olla).
Lahtrid (6 + i, 1). Sisemine. Värviindeks = 4
8. Lisage teine Do while Loop.
Tehke samas lahtrid (4, 2 + j). Väärtus <= kuupäev
Kui lahtrid (6 + i, 2 + j). Väärtus = 0 Siis lahtrid (6 + i, 1). Interjöör. Värviindeks = 3
j = j + 1
Loop
Märkus: funktsioon Kuupäev tagastab tänase kuupäeva.
Selgitus: kui i = 0, j = 0, kontrollib Excel VBA lahtrit B6. Kui i = 0, j = 1, kontrollib Excel VBA lahtrit C6 jne. Ülesanne on ajakavas, kui igas veerus kuni tänase kuupäevani on olemas 1. Kui Excel VBA leiab "0", määrab see ülesande taustavärvi punaseks.
9. Testige programmi. Näiteks märkige, et 6. juuni ülesanne Z on täidetud. Selle tulemusena muutub ülesanne Z automaatselt roheliseks.
