Mai jos vom analiza un program în Excel VBA acea parcurge întreaga primă coloană și colorează toate valorile care sunt mai mici decât o anumită valoare.
Plasați un buton de comandă pe foaia de lucru și adăugați următoarele linii de cod:
1. Mai întâi, declarați o variabilă numită i de tipul Long. Aici folosim o variabilă de tip Long deoarece variabilele Long au o capacitate mai mare decât variabilele Întreg.
Dim i As Long
2. Apoi, adăugați linia de cod care schimbă culoarea fontului tuturor celulelor din coloana A în negru.
Coloane (1) .Font.Color = vbNegru
3. Adăugați bucla.
Pentru i = 1 la rânduri
Apoi eu
Notă: foile de lucru pot avea până la 1.048.576 rânduri în Excel 2007 sau o versiune ulterioară. Indiferent ce versiune utilizați, linia de cod de mai sus parcurge toate rândurile.
4. Apoi, colorăm toate valorile care sunt mai mici decât valoarea introdusă în celula D2. Celulele goale sunt ignorate. Adăugați următoarele linii de cod în buclă.
If Cells (i, 1) .Value <Range ("D2"). Value And Not IsEmpty (Cells (i, 1) .Value) Atunci
Celule (i, 1) .Font.Color = vbRed
End If
Rezultatul când faceți clic pe butonul de comandă de pe foaie (poate dura ceva timp):
