Hieronder zullen we kijken naar een programma in Excel VBA die de achtergrondkleur van . instelt taken die op schema liggen groen en zet de achtergrondkleur van taken die achter op schema liggen op rood.
Situatie:
Op Blad1 hebben we drie taken (X, Y, Z). Een "1" geeft aan dat een taak is voltooid. Een taak ligt op schema als er in elke kolom een "1" staat tot en met de datum van vandaag. Vandaag is het 6 juni. Taken X en Y liggen op schema. Taak Z loopt achter op schema (geen "1" in cel E8).
Maak een werkbladwijzigingsgebeurtenis. Code die is toegevoegd aan de werkbladwijzigingsgebeurtenis, wordt uitgevoerd door Excel VBA wanneer u een cel op een werkblad wijzigt.
1. Open de Visual Basic-editor.
2. Dubbelklik op Blad1 (Blad1) in de Projectverkenner.
3. Kies Werkblad in de linker vervolgkeuzelijst. Kies Wijzigen in de rechter vervolgkeuzelijst.
Voeg de volgende coderegels toe aan de werkbladwijzigingsgebeurtenis:
4. Declareer twee variabelen van het type Integer.
Dim i als geheel getal, j als geheel getal
5. Voeg een Do While-lus toe.
Do While Cells (6 + i, 1). Waarde ""
ik = ik + 1
Lus
Uitleg: Voor i = 0 controleert Excel VBA taak X, voor i = 1, taak Y, enz. Excel VBA verlaat de Do While-lus wanneer Cells (6 + i, 1). Waarde is leeg (geen taken meer om te controleren) .
Voeg de volgende coderegels (bij 6, 7 en 8) toe aan de Do While Loop.
6. Initialiseer de variabele j met waarde 0.
j = 0
7. Stel de achtergrondkleur van een taak in op groen, ervan uitgaande dat een taak op schema ligt (dit hoeft natuurlijk niet waar te zijn).
Cellen (6 + i, 1).Interior.ColorIndex = 4
8. Voeg nog een Do While Loop toe.
Do While Cells (4, 2 + j). Waarde <= Datum
Als Cellen (6 + i, 2 + j). Waarde = 0 Dan Cellen (6 + i, 1). Interieur. ColorIndex = 3
j = j + 1
Lus
Opmerking: de functie Datum retourneert de datum van vandaag.
Uitleg: Voor i = 0, j = 0, controleert Excel VBA cel B6. Voor i = 0, j = 1, controleert Excel VBA cel C6, enz. Een taak ligt op schema als er in elke kolom een "1" staat tot en met de datum van vandaag. Als Excel VBA een "0" vindt, wordt de achtergrondkleur van de taak op rood gezet.
9. Test het programma. Geef bijvoorbeeld aan dat taak Z op 6 juni is afgerond. Hierdoor wordt taak Z automatisch groen.
