U nastavku ćemo pogledati program u Excel VBA da petlje kroz cijeli prvi stupac i boji sve vrijednosti koje su niže od određene vrijednosti.
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo, deklarirajte varijablu naziva i tipa Long. Ovdje koristimo varijablu tipa Long jer Long varijable imaju veći kapacitet od Integer varijabli.
Dim i As Long
2. Zatim dodajte kodni redak koji mijenja boju fonta svih ćelija u stupcu A u crnu.
Stupci (1) .Boja fonta = vbCrna
3. Dodajte petlju.
Za i = 1 do redaka.Broj
Sljedeći i
Napomena: radni listovi mogu imati do 1.048.576 redaka u programu Excel 2007 ili novijim. Bez obzira koju verziju koristite, gornji kodni red prolazi kroz sve retke.
4. Zatim bojimo sve vrijednosti koje su niže od vrijednosti unete u ćeliju D2. Prazne ćelije se zanemaruju. Petlji dodajte sljedeće retke koda.
Ako su ćelije (i, 1) .Vrijednost <Raspon ("D2"). Vrijednost, a nije prazna (ćelije (i, 1). Vrijednost) Tada
Stanice (i, 1). Boja fonta = vbRed
Završi ako
Rezultat kada pritisnete naredbeni gumb na listu (to može potrajati):