Spodaj si bomo ogledali program v Excel VBA to zanke skozi celoten prvi stolpec in obarva vse vrednosti, ki so nižje od določene vrednosti.
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
1. Najprej razglasite spremenljivko tipa i tipa Long. Tukaj uporabljamo spremenljivko tipa Long, ker imajo spremenljivke Long večjo zmogljivost kot spremenljivke Integer.
Dim i As Long
2. Nato dodajte kodno vrstico, ki spremeni barvo pisave vseh celic v stolpcu A v črno.
Stolpci (1). Barva pisave = vb Črna
3. Dodajte zanko.
Za i = 1 do vrstic
Naprej i
Opomba: delovni listi imajo lahko v Excelu 2007 ali novejših do 1.048.576 vrstic. Ne glede na to, katero različico uporabljate, se zgornja vrstica kode vrti skozi vse vrstice.
4. Nato obarvamo vse vrednosti, ki so nižje od vrednosti, vnesene v celico D2. Prazne celice se ne upoštevajo. V zanko dodajte naslednje kodne vrstice.
Če celice (i, 1) .Vrednost <Obseg ("D2"). Vrednost in ni prazna (celice (i, 1). Vrednost) Nato
Celice (i, 1). Barva pisave = vbRdeča
Konec Če
Rezultat, ko kliknete ukazni gumb na listu (to lahko traja nekaj časa):
