300 Exemple

Buclați prin întreaga coloană

Loop Through Entire Column

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.



Buclați întreaga coloană în Excel VBA

Buclați întreaga coloană în Excel VBA





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 = vbNegru

3. Adăugați bucla.

creați un total de rulare în excel
Pentrui = 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). ValoareȘi NuIsEmpty (Celule (i, 1). Valoare)Atunci
Celule (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):

Buclați prin întregul rezultat al coloanei

Buclați prin întregul rezultat al coloanei

3/11 Finalizat! Aflați mai multe despre bucle>
Accesați capitolul următor: Erori macro



^