Im Folgenden sehen wir uns ein Programm in an Excel VBA das legt die Hintergrundfarbe von . fest Aufgaben, die im Zeitplan liegen auf Grün und setzt die Hintergrundfarbe von Aufgaben, die hinter dem Zeitplan liegen, auf Rot.
Lage:
Auf Sheet1 haben wir drei Aufgaben (X, Y, Z). Eine "1" zeigt an, dass eine Aufgabe abgeschlossen wurde. Eine Aufgabe liegt im Plan, wenn in jeder Spalte bis einschließlich des heutigen Datums eine "1" vorhanden ist. Heute ist der 6. Juni. Die Aufgaben X und Y liegen im Zeitplan. Aufgabe Z liegt hinter dem Zeitplan (keine "1" in Zelle E8).
Erstellen Sie ein Arbeitsblattänderungsereignis. Code, der dem Arbeitsblattänderungsereignis hinzugefügt wird, wird von Excel VBA ausgeführt, wenn Sie eine Zelle in einem Arbeitsblatt ändern.
1. Öffnen Sie den Visual Basic-Editor.
2. Doppelklicken Sie im Projekt-Explorer auf Sheet1 (Sheet1).
3. Wählen Sie Arbeitsblatt aus der linken Dropdown-Liste. Wählen Sie Ändern aus der rechten Dropdown-Liste.
Fügen Sie dem Arbeitsblattänderungsereignis die folgenden Codezeilen hinzu:
4. Deklarieren Sie zwei Variablen vom Typ Integer.
Dim i As Integer, j As Integer
5. Fügen Sie eine Do While-Schleife hinzu.
Do While Cells(6 + i, 1).Wert ""
ich = ich + 1
Schleife
Erklärung: Für i = 0 überprüft Excel VBA Task X, für i = 1, Task Y usw. Excel VBA verlässt die Do While-Schleife, wenn Cells(6 + i, 1).Value leer ist (keine weiteren Tasks zu überprüfen) .
Fügen Sie der Do While-Schleife die folgenden Codezeilen (bei 6, 7 und 8) hinzu.
6. Initialisieren Sie die Variable j mit dem Wert 0.
j = 0
7. Setzen Sie die Hintergrundfarbe einer Aufgabe auf Grün, vorausgesetzt, eine Aufgabe liegt im Zeitplan (dies ist natürlich nicht unbedingt der Fall).
Zellen(6 + i, 1).Interior.ColorIndex = 4
8. Fügen Sie eine weitere Do While-Schleife hinzu.
Do While Cells(4, 2 + j).Wert <= Datum
If Cells(6 + i, 2 + j).Value = 0 Then Cells(6 + i, 1).Interior.ColorIndex = 3
j = j + 1
Schleife
Hinweis: Die Datumsfunktion gibt das heutige Datum zurück.
Erläuterung: Für i = 0, j = 0 überprüft Excel VBA Zelle B6. Für i = 0, j = 1, überprüft Excel VBA Zelle C6 usw. Eine Aufgabe liegt im Zeitplan, wenn in jeder Spalte bis einschließlich des heutigen Datums eine "1" vorhanden ist. Wenn Excel VBA eine "0" findet, wird die Hintergrundfarbe der Aufgabe auf Rot gesetzt.
9. Testen Sie das Programm. Geben Sie beispielsweise an, dass Aufgabe Z am 6. Juni abgeschlossen wurde. Als Ergebnis wird Aufgabe Z automatisch grün.
