U nastavku ćemo pogledati program u Excel VBA koji postavlja boju pozadine zadaci koji su na rasporedu na zelenu, a boju pozadine zadataka koji kasne s rasporedom postavlja na crvenu.
Situacija:
Na Sheet1 imamo tri zadatka (X, Y, Z). "1" označava da je zadatak dovršen. Zadatak je na rasporedu ako postoji "1" u svakom stupcu do uključujući današnji datum uključujući. Danas je 6. lipnja. Zadaci X i Y su prema rasporedu. Zadatak Z kasni s rasporedom (nema "1" u ćeliji E8).
Napravite događaj promjene radnog lista. Kôd dodan događaju promjene radnog lista izvršit će Excel VBA kada promijenite ćeliju na radnom listu.
1. Otvorite Visual Basic Editor.
2. Dvaput kliknite na Sheet1 (Sheet1) u Project Exploreru.
3. Odaberite Radni list s lijevog padajućeg popisa. Odaberite Promijeni s desnog padajućeg popisa.
U događaj promjene radnog lista dodajte sljedeće retke koda:
4. Deklarirajte dvije varijable tipa Integer.
Dim i kao cijeli broj, j kao cijeli broj
5. Dodajte petlju Do While.
Do Dolls ćelije (6 + i, 1). Vrijednost ""
i = i + 1
Petlja
Objašnjenje: Za i = 0, Excel VBA provjerava zadatak X, za i = 1, zadatak Y itd. Excel VBA napušta petlju Do While kada su ćelije (6 + i, 1). Vrijednost je prazna (nema više zadataka za provjeru) .
Dodajte sljedeće redove koda (na 6, 7 i 8) u petlju Do While.
6. Inicijalizirajte varijablu j s vrijednošću 0.
j = 0
7. Postavite boju pozadine zadatka na zelenu pod pretpostavkom da je zadatak na rasporedu (to naravno ne mora biti točno).
Stanice (6 + i, 1). Unutrašnjost.Indeks boje = 4
8. Dodajte još jednu petlju Do While.
Do Dolls ćelije (4, 2 + j) .Vrijednost <= Datum
Ako su ćelije (6 + i, 2 + j) .Vrijednost = 0 Tada ćelije (6 + i, 1). Unutrašnjost.Indeks boje = 3
j = j + 1
Petlja
Napomena: funkcija Date vraća današnji datum.
Objašnjenje: Za i = 0, j = 0, Excel VBA provjerava ćeliju B6. Za i = 0, j = 1, Excel VBA provjerava ćeliju C6 itd. Zadatak je na rasporedu ako "1" postoji u svakom stupcu do uključujući današnji datum uključujući. Ako Excel VBA pronađe "0", boju pozadine zadatka postavlja na crvenu.
9. Testirajte program. Na primjer, naznačite da je zadatak Z 6. lipnja dovršen. Kao rezultat toga, zadatak Z će automatski postati zelen.
