Schleife durch Ganze Spalte in Excel VBA
Im Folgenden werden wir ein Programm in Excel VBA suchen, die alle Werte über die gesamte erste Spalte und Farben Schleifen, die niedriger als ein bestimmter Wert sind.
Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:
-
Zuerst deklariert eine Variable i vom Typ Lange genannt. Wir verwenden eine Variable vom Typ Lange hier, weil lange Variablen größere Kapazität haben als Integer-Variablen.
Dim i As Long
-
Als nächstes fügen Sie die Codezeile, die die Schriftfarbe aller Zellen in der Spalte A bis schwarz ändert.
Columns(1).Font.Color = vbBlack
-
die Schleife hinzufügen.
For i = 1 To Rows.Count Next i
haben bis zu 1.048.576 Zeilen in Excel 2007 oder höher Arbeitsblatt können: Hinweis.
Egal, welche Version Sie verwenden, die Codezeile oben Schleifen durch alle Reihen.
-
Als nächste Farbe, die wir alle Werte, die niedriger als der Wert sind in der Zelle D2 eingegeben. Leere Zellen werden ignoriert. Fügen Sie die folgenden Codezeilen in die Schleife.
If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
Cells(i, 1).Font.Color = vbRed
End If
Ergebnis, wenn Sie auf das Befehlsschaltflächen auf dem Blatt klicken (dies kann eine Weile dauern):
