Poniżej przyjrzymy się programowi w Excel VBA że pętle przez całą pierwszą kolumnę i koloruje wszystkie wartości, które są niższe od określonej wartości.
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
1. Najpierw zadeklaruj zmienną o nazwie i typu Long. Używamy tutaj zmiennej typu Long, ponieważ zmienne Long mają większą pojemność niż zmienne typu Integer.
Przyciemnij i tak długo
2. Następnie dodaj linię kodu, która zmienia kolor czcionki wszystkich komórek w kolumnie A na czarny.
Kolumny(1).Czcionka.Kolor = vbBlack
3. Dodaj pętlę.
Dla i = 1 To Rows.Count
Dalej ja
Uwaga: arkusze mogą zawierać do 1 048 576 wierszy w programie Excel 2007 lub nowszym. Bez względu na wersję, której używasz, powyższy wiersz kodu przechodzi przez wszystkie wiersze.
4. Następnie kolorujemy wszystkie wartości, które są niższe niż wartość wprowadzona do komórki D2. Puste komórki są ignorowane. Dodaj do pętli następujące wiersze kodu.
If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
Komórki(i, 1).Czcionka.Kolor = vbRed
Zakończ, jeśli
Wynik po kliknięciu przycisku polecenia na arkuszu (może to chwilę potrwać):
