Alla tarkastelemme ohjelmaa Excel VBA että selaa koko ensimmäisen sarakkeen läpi ja värittää kaikki arvot, jotka ovat tiettyä arvoa pienempiä.
Aseta a komentopainiketta laskentataulukkoon 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.
Ei mitääniKuten Pitkä
2. Lisää seuraavaksi koodirivi, joka muuttaa sarakkeen A kaikkien solujen kirjasinvärin mustaksi.
Sarakkeet (1) .Font.Color = vbBlack3. Lisää silmukka.
Excel-kaava julian-päivämäärän muuntamiseksi kalenteripäiväksiVarteni = 1VastaanottajaRivit
Seuraavai
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.
JosSolut (i, 1) ArvoSolut (i, 1) .Font.Color = vbRed
Loppu Jos
Tulos, kun napsautat taulukon komentopainiketta (tämä voi viedä hetken):
Siirry seuraavaan lukuun: Makrovirheet