Im Folgenden sehen wir uns ein Programm in an Excel VBA das durchläuft die gesamte erste Spalte und färbt alle Werte ein, die unter einem bestimmten Wert liegen.
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Deklarieren Sie zunächst eine Variable namens i vom Typ Long. Wir verwenden hier eine Variable vom Typ Long, da Long-Variablen eine größere Kapazität haben als Integer-Variablen.
Dim ich so lang
2. Fügen Sie als Nächstes die Codezeile hinzu, die die Schriftfarbe aller Zellen in Spalte A in Schwarz ändert.
Spalten(1).Font.Color = vbBlack
3. Fügen Sie die Schleife hinzu.
Für i = 1 To Rows.Count
Als nächstes
Hinweis: Arbeitsblätter können in Excel 2007 oder höher bis zu 1.048.576 Zeilen enthalten. Egal welche Version Sie verwenden, die obige Codezeile durchläuft alle Zeilen.
4. Als nächstes färben wir alle Werte ein, die niedriger sind als der in Zelle D2 eingegebene Wert. Leere Zellen werden ignoriert. Fügen Sie der Schleife die folgenden Codezeilen hinzu.
If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
Zellen(i, 1).Font.Color = vbRed
Ende Wenn
Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken (dies kann eine Weile dauern):
