/ / Pętla przez całą kolumnę w Excelu VBA

Pętla przez całą kolumnę w Excelu VBA

Poniżej przyjrzymy się programowi w Excel VBA że pętle przez całą pierwszą kolumnę i kolory wszystkich wartości, które są niższe niż pewna wartość.

Pętla przez całą kolumnę w Excelu VBA

Pętla przez całą kolumnę w Excelu VBA

Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:

1. Najpierw zadeklaruj zmienną o nazwie i typu Long. Używamy zmiennej typu Long tutaj, ponieważ zmienne Long mają większą pojemność niż zmienne Integer.

Dim i As Long

2. Następnie dodaj linię kodu, która zmienia kolor czcionki wszystkich komórek w kolumnie A na czarny.

Columns(1).Font.Color = vbBlack

3. Dodaj pętlę.

For i = 1 To Rows.Count

Next i

Uwaga: Arkusze robocze mogą zawierać do 65 536 wierszy w programie Excel 2003 i do 1 048 576 wierszy w programie Excel 2007 lub nowszym. Bez względu na to, jakiej wersji używasz, linia kodu powyżej pętli przez wszystkie wiersze (do pobrania plik Excel jest w formacie Excel 97-2003).

4. Następnie wybarwiamy wszystkie wartości, które są niższe niż wartość wprowadzona do komórki D2. Puste komórki są ignorowane. Dodaj następujące linie kodu do pętli.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

Wynik po kliknięciu przycisku polecenia na arkuszu (może to chwilę potrwać):

Pętla przez cały wynik kolumny

Pętla przez cały wynik kolumny

Przeczytaj również: