Spodaj si bomo ogledali program v Excel VBA ki nastavi barvo ozadja opravila, ki so po urniku na zeleno in barvo ozadja opravil, ki zaostajajo za urnikom, nastavi na rdečo.
Situacija:
Na listu 1 imamo tri naloge (X, Y, Z). "1" pomeni, da je opravilo dokončano. Naloga je po urniku, če v vsakem stolpcu do vključno današnjega datuma obstaja "1". Danes je 6. junij. Nalogi X in Y potekata po urniku. Naloga Z zamuja (v celici E8 ni "1").
Ustvarite dogodek spremembe delovnega lista. Kodo, dodano dogodku spremembe delovnega lista, bo Excel VBA izvedel, ko spremenite celico na delovnem listu.
1. Odprite urejevalnik Visual Basic.
2. Dvokliknite Sheet1 (Sheet1) v Raziskovalcu projektov.
3. Na levem spustnem seznamu izberite Delovni list. Na desnem spustnem seznamu izberite Spremeni.
Dogodku spremembe delovnega lista dodajte naslednje vrstice kode:
4. Razglasite dve spremenljivki tipa Integer.
Dim i kot celo število, j kot celo število
5. Dodajte zanko Do While.
Celice Do While (6 + i, 1). Vrednost ""
i = i + 1
Zanka
Pojasnilo: Za i = 0 Excel VBA preveri nalogo X, za i = 1, nalogo Y itd. Excel VBA zapusti zanko Do medtem, ko celice (6 + i, 1). Vrednost je prazna (ni več opravil za preverjanje) .
Dodajte naslednje kodne vrstice (pri 6, 7 in 8) v zanko Do While Loop.
6. Inicializirajte spremenljivko j z vrednostjo 0.
j = 0
7. Barvo ozadja opravila nastavite na zeleno ob predpostavki, da opravilo poteka po urniku (to seveda ni nujno res).
Celice (6 + i, 1). Notranjost. Indeks barve = 4
8. Dodajte še eno Do While Loop.
Do While Cells (4, 2 + j) .Vrednost <= Datum
Če so celice (6 + i, 2 + j). Vrednost = 0, potem celice (6 + i, 1). Notranjost. Barvni indeks = 3
j = j + 1
Zanka
Opomba: funkcija Date vrne današnji datum.
Pojasnilo: Za i = 0, j = 0 Excel VBA preveri celico B6. Za i = 0, j = 1 Excel VBA preveri celico C6 itd. Naloga je po urniku, če "1" obstaja v vsakem stolpcu do vključno današnjega datuma. Če Excel VBA najde "0", barvo ozadja opravila nastavi na rdečo.
9. Preizkusite program. Navedite na primer, da je bila naloga Z 6. junija zaključena. Posledično bo naloga Z samodejno postala zelena.
