300 Esimerkkejä

Kierrä koko sarake läpi

Loop Through Entire Column

Alla tarkastelemme ohjelmaa Excel VBA että selaa koko ensimmäisen sarakkeen läpi ja värittää kaikki arvot, jotka ovat tiettyä arvoa pienempiä.





Kierrä koko sarake Excel VBA: ssa

Kierrä koko sarake Excel VBA: ssa





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 = vbBlack

3. Lisää silmukka.

Excel-kaava julian-päivämäärän muuntamiseksi kalenteripäiväksi
Varteni = 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) ArvoJa EiIsEmpty (Solut (i, 1). Arvo)Sitten
Solut (i, 1) .Font.Color = vbRed
Loppu Jos

Tulos, kun napsautat taulukon komentopainiketta (tämä voi viedä hetken):

Selaa koko sarakkeen tulos

Selaa koko sarakkeen tulos

3/11 valmis! Lue lisää silmukoista>
Siirry seuraavaan lukuun: Makrovirheet



^