/ / Loop kroz cijeli stupac u programu Excel VBA

Proširite cijeli stupac u programu Excel VBA

U nastavku ćemo pogledati program u Excel VBA da petlje kroz cijeli prvi stupac i boje sve vrijednosti koje su niže od određene vrijednosti.

Loop kroz cijeli stupac u Excelu VBA

Loop kroz cijeli stupac u Excelu VBA

Stavite gumb naredbe na radni list i dodajte sljedeće retke koda:

1. Prvo, izjavite varijablu pod nazivom i tipa Long. Upotrebljavamo varijablu vrste Long ovdje jer Duljine varijabli imaju veći kapacitet od varijabli Integer.

Dim i As Long

2. Zatim dodajte liniju koda koja mijenja boju fonta svih ćelija u stupcu A u crnu boju.

Columns(1).Font.Color = vbBlack

3. Dodajte petlju.

For i = 1 To Rows.Count

Next i

Bilješka: listovi radnih površina mogu imati do 65.536 redaka u programu Excel 2003 i do 1.048.576 redaka u programu Excel 2007 ili noviji. Bez obzira na verziju koju upotrebljavate, gornja linija koda obuhvaća sve redove (datoteka Excel preuzeta je u formatu Excel 97-2003).

4. Zatim bojimo sve vrijednosti koje su niže od vrijednosti unesene u ćeliju D2. Prazne ćelije se ignoriraju. Dodajte sljedeće linije koda u petlju.

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 kada kliknete gumb naredbe na listu (to može potrajati neko vrijeme):

Loop kroz cijeli rezultat stupca

Loop kroz cijeli rezultat stupca

Također pročitajte: