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.
Plaseaza o butonul de comanda 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.
Nici unuleuLa fel de Lung
2. Apoi, adăugați linia de cod care schimbă culoarea fontului tuturor celulelor din coloana A în negru.
Coloane (1) .Font.Color = vbNegru3. Adăugați bucla.
creați un total de rulare în excelPentrui = 1LaRânduri.Cont
Următoruleu
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 la buclă.
DacăCelule (i, 1). ValoareCelule (i, 1) .Font.Color = vbRed
Sfârșit Dacă
Rezultatul când faceți clic pe butonul de comandă de pe foaie (poate dura ceva timp):
Accesați capitolul următor: Erori macro
