Hieronder zullen we kijken naar een programma in Excel VBA Dat loopt door de hele eerste kolom en kleurt alle waarden die lager zijn dan een bepaalde waarde.
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
1. Declareer eerst een variabele met de naam i van het type Long. We gebruiken hier een variabele van het type Long omdat Long-variabelen een grotere capaciteit hebben dan Integer-variabelen.
Dim ik zo lang
2. Voeg vervolgens de coderegel toe die de letterkleur van alle cellen in kolom A verandert in zwart.
Columns(1).Font.Color = vbBlack
3. Voeg de lus toe.
For i = 1 To Rows.Count
volgende i
Opmerking: werkbladen kunnen maximaal 1.048.576 rijen bevatten in Excel 2007 of hoger. Welke versie u ook gebruikt, de coderegel hierboven loopt door alle rijen.
4. Vervolgens kleuren we alle waarden die lager zijn dan de waarde die in cel D2 is ingevoerd. Lege cellen worden genegeerd. Voeg de volgende coderegels toe aan de lus.
Als Cellen (i, 1). Waarde < Bereik ("D2"). Waarde en niet Is Leeg (Cellen (i, 1). Waarde) Dan
Cellen(i, 1).Font.Color = vbRed
Stop als
Resultaat wanneer u op de opdrachtknop op het blad klikt (dit kan even duren):
