/ / Kierrä läpi koko sarake Excel VBA: ssa

Piirrä läpi koko sarake Excel VBA: ssa

Alla tarkastelemme ohjelmaa Excel VBA että silmukat koko ensimmäisen sarakkeen läpi ja värit kaikki arvot, jotka ovat pienempiä kuin tietyn arvon.

Piirrä läpi koko sarake Excel VBA: ssa

Piirrä läpi koko sarake Excel VBA: ssa

Aseta komentopainike laskentatauluun ja lisää seuraavat koodiluokat:

1. Ensin mainita muuttujan tyyppi i, tyyppi Long. Käytämme tämäntyyppistä Long-muuttujaa, koska Long-muuttujilla on suurempi kapasiteetti kuin Integer-muuttujilla.

Dim i As Long

2. Lisää sitten koodirivi, joka muuttaa sarakkeen A kaikkien solujen kirjasimen värin mustaksi.

Columns(1).Font.Color = vbBlack

3. Lisää silmukka.

For i = 1 To Rows.Count

Next i

Huomautus: työarkeissa voi olla jopa 65 536 riviä Excel 2003: ssa ja enintään 1.048.576 riviä Excel 2007: ssa tai uudemmissa. Riippumatta siitä, mitä versiota käytät, koodirivi ylittää kaikki rivit (ladattava Excel-tiedosto on Excel 97-2003 -muodossa).

4. Seuraavaksi värittelemme kaikki arvot, jotka ovat pienempiä kuin soluun D2 syötetty arvo. Tyhjät solut jätetään huomiotta. Lisää silmukkaan seuraavat koodirivit.

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

Tulos, kun napsautat arkin komentopainiketta (tämä saattaa kestää jonkin aikaa):

Pyöritä koko sarakkeen tulos

Pyöritä koko sarakkeen tulos

Lue myös: