/ / Bucle prin întreaga coloană în Excel VBA

Bucle prin întreaga coloană în Excel VBA

Mai jos ne vom uita la un program în Excel VBA acea buclele prin întreaga primă coloană și culorizează toate valorile care sunt mai mici decât o anumită valoare.

Bucle prin întreaga coloană în Excel VBA

Bucle prin întreaga coloană în Excel VBA

Plasați un buton de comandă pe foaia dvs. de lucru și adăugați următoarele linii de cod:

1. În primul rând, declarați o variabilă numită i de tip Long. Folosim o variabilă de tipul Long aici deoarece variabilele lungi au o capacitate mai mare decât variabilele Integer.

Dim i As Long

2. Apoi, adăugați linia de cod care modifică culoarea fontului tuturor celulelor din coloana A în negru.

Columns(1).Font.Color = vbBlack

3. Adăugați buclă.

For i = 1 To Rows.Count

Next i

Notă: foile de lucru pot avea până la 65.536 rânduri în Excel 2003 și până la 1.048.576 rânduri în Excel 2007 sau mai târziu. Indiferent de versiunea pe care o utilizați, linia de cod de mai sus buclele prin toate rândurile (fișierul Excel descărcat este în format Excel 97-2003).

4. Apoi, culoarea tuturor valorilor este mai mică decât valoarea introdusă în celula D2. Articolele goale sunt ignorate. Adăugați următoarele linii de cod la bucla.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

Rezultat când faceți clic pe butonul de comandă de pe foaie (aceasta poate dura ceva timp):

Bucle prin întregul rezultat al coloanei

Bucle prin întregul rezultat al coloanei

De asemenea, citiți: