Alla tarkastelemme ohjelmaa Excel VBA että selaa koko ensimmäisen sarakkeen läpi ja värittää kaikki arvot, jotka ovat pienempiä kuin tietty arvo.
Aseta komentopainike laskentataulukkoosi ja lisää seuraavat koodirivit:
1. Ilmoita ensin muuttuja nimeltä i tyypillä Long. Käytämme tässä Long -tyyppistä muuttujaa, koska pitkillä muuttujilla on suurempi kapasiteetti kuin kokonaislukumuuttujilla.
Dim niin kauan
2. Lisää seuraavaksi koodirivi, joka muuttaa sarakkeen A kaikkien solujen fontin värin mustaksi.
Sarakkeet (1) .Font.Color = vbBlack
3. Lisää silmukka.
I = 1 riveille
Seuraavaksi minä
Huomautus: laskentataulukoissa voi olla enintään 1 048 576 riviä Excel 2007: ssä tai uudemmassa. Riippumatta siitä, mitä versiota käytät, yllä oleva koodirivi kulkee kaikkien rivien läpi.
4. Seuraavaksi väritämme kaikki arvot, jotka ovat pienempiä kuin soluun D2 syötetty arvo. Tyhjät solut jätetään huomiotta. Lisää seuraavat koodirivit silmukkaan.
Jos solut (i, 1). Arvo <alue ("D2"). Arvo ja ei ole tyhjä (Solut (i, 1). Arvo) Sitten
Solut (i, 1) .Font.Color = vbRed
Loppu Jos
Tulos, kun napsautat taulukon komentopainiketta (tämä voi viedä hetken):
