Tässä opetusohjelmassa käsittelemme, kuinka käyttää VBA kiertää rivejä läpi Excelissä. Käytämme silmukoita, jotta emme tee samaa asiaa yhä uudelleen. Kun työskentelemme Excelissä Microsoft Excel , saatamme joutua tilanteeseen, jossa meidän on suoritettava sama tehtävä useita kertoja. Voimme tehdä tämän helposti käyttämällä silmukoita kohdassa VBA Tässä artikkelissa osoitamme 6 esimerkkejä Excelin rivien läpikäynnistä Excelin avulla VBA Silmukka, jota käytämme kaikissa esimerkeissä, on ' For-Next-silmukka '.

Lataa harjoituskirja

Voimme ladata harjoitustyökirjan täältä.

6 esimerkkiä rivien läpikäymisestä VBA: lla Excelissä VBA: n avulla

Tämän ohjeen esimerkkien havainnollistamiseksi käytämme seuraavaa tietokokonaisuutta. Tietokokonaisuus sisältää myyntimäärät kahdelta ensimmäiseltä kuukaudelta vuonna 2004. 5 myyjää .

1. Käytä VBA:ta Range-alueella Range-muuttujan kanssa rivien läpikäymiseen.

Ensimmäisessä esimerkissä käytämme range-muuttujaa kiertääksemme rivejä läpi käyttäen VBA excelissä. Sovellamme VBA silmukka seuraavassa tietokokonaisuudessa.

Katsotaanpa, miten tämä esimerkki suoritetaan.

VAIHEET:

• Siirry aluksi aktiiviseen työarkkiin ' Alue Muuttuja '.
• Lisäksi, klikkaa hiiren oikealla ja valitse vaihtoehto ' Näytä koodi '. Voit myös painaa Alt + F11 avataksesi sen.

• Yllä oleva toiminto avaa kyseisen työarkin koodiikkunan.
• Kirjoita koodi koodiikkunaan:

 Sub VBA_Loop_through_Rows() Dim w As Range For Each w In Range("B5:D9").Rows w.Cells(1).Interior.ColorIndex = 35 Next End Sub 

• Napsauta sitten Suorita tai paina F5 koodin suorittamiseksi.

• Lopuksi saamme seuraavan kuvakaappauksen kaltaiset tulokset.

Lue lisää: Excel VBA: Sarakkeiden läpikäynti alueella (5 esimerkkiä)

2. Sovelletaan VBA:ta numeerisen muuttujan rivien läpikäymiseen alueella.

Toinen vaihtoehto alueen rivien läpikäyntiin on valita muuttuja. Toisessa esimerkissä sovellamme komentoa VBA seuraavassa tietokokonaisuudessa numeeristen muuttujien rivien läpikäymiseen.

Katsotaanpa, miten tämä menetelmä tehdään.

VAIHEET:

• Ensimmäinen, klikkaa hiiren oikealla aktiivisella arkilla nimeltä ' Numeerinen arvo '.
• Valitse seuraavaksi vaihtoehto ' Näytä koodi '.

• Tämä toiminto avaa kyseisen laskentataulukon koodiikkunan. Voit myös painaa näppäintä Alt + F11 avataksesi kyseisen koodiikkunan.
• kirjoita seuraava koodi kyseiseen ikkunaan:

 Sub VBA_Numeric_Variable() Dim w As Integer With Range("B5").CurrentRegion For w = 1 To .Columns.Count .Columns(w).NumberFormat = "$0.00" Next End With End Sub 

• Napsauta sen jälkeen Suorita tai paina F5 näppäimellä koodin suorittamiseksi.

• Lopulta näemme seuraavan kuvan kaltaiset tulokset. Yllä oleva koodi muuttaa numeron muodon desimaalipisteiksi.

Lue lisää: VBA Excelin rivien ja sarakkeiden läpikäymiseen (5 esimerkkiä)

3. Excel VBA käyttäjän valitsemassa alueessa alueen rivien läpikäymiseksi alueella

Kolmannessa esimerkissä käytämme VBA käyttäjän valitsemalla alueella, jotta käyttäjä voi tehdä silmukan alueen rivien läpi. Käyttäjä voi siis soveltaa silmukkaa valittuun alueeseen tietokokonaisuudessa.

Katsotaanpa tähän esimerkkiin liittyviä vaiheita.

VAIHEET:

• Valitse alussa solualue ( D5:D9 ).

• Seuraava, klikkaa hiiren oikealla aktiivisella arkilla nimeltä ' Käyttäjän valitsema '. Valitse vaihtoehto ' Näytä koodi '.

• Yllä oleva komento avaa VBA aktiivisen laskentataulukon koodiikkunan. Voit myös avata kyseisen koodiikkunan painamalla painiketta Alt + F11 Lisää seuraava koodi tyhjään koodiikkunaan:

 Sub VBA_User_Selection() Dim w As Variant Set xRange = Selection For Each w In xRange MsgBox "Solun arvo = " & w.Value Next w End Sub 

• Tämän jälkeen voit suorittaa kyseisen laskentataulukon koodin napsauttamalla painiketta Suorita tai paina F5 avain.

• Näyttöön tulee siis viestiruutu, jossa näkyy valitun alueen ensimmäinen arvo.

• Lisäksi, jos napsautat OK se palauttaa valitun alueen toisen arvon, joka on solu D6 .

• Tämä prosessi jatkuu, kunnes valitun alueen viimeinen arvo, joka on solu D9 .

Lue lisää: Kuinka käyttää VBA: ta laskemaan rivejä Excelin tietojen kanssa (5-makrot)

Samanlaisia lukemia

• Kuinka käyttää VBA: ta valita alue aktiivisesta solusta Excelissä (3 menetelmää)
• Excel-makro: Lajittele useita sarakkeita dynaamisella alueella (4 menetelmää)
• Kuinka muuntaa alue Excel VBA: n monisteeksi (3 tapaa)

4. Rivien läpikäynti dynaamisessa alueessa VBA:lla

Neljännessä esimerkissä sovelletaan VBA kiertääksemme rivejä läpi dynaamisen alueen. Tämä esimerkki eroaa hieman edellisistä. Voimme mukauttaa silmukassa olevan alueen excel-taulukkoa varten. Käytämme seuraavaa tietokokonaisuutta havainnollistamaan tätä menetelmää. Seuraavassa tietokokonaisuudessa täytämme alueen arvot ( B8:C12 ) tietyllä arvolla.

Käy läpi alla olevat vaiheet tämän menetelmän suorittamiseksi.

VAIHEET:

• Ensinnäkin, syöttöarvo 6 solussa B1 ja C solussa B2 .
• Toiseksi, klikkaa hiiren oikealla aktiivisen solun päällä ja valitse vaihtoehto ' Näytä koodi '.

• Tämä komento avaa VBA aktiivisen laskentataulukon koodiikkunan. Toinen tapa avata koodiikkuna on painaa painiketta Alt + F11 .
• Kolmanneksi lisää seuraava koodi kyseiseen koodiikkunaan:

 Sub Dynamic_Range() Dim xRange As String xRange = "B8:" + Worksheets("Dynamic Range").Cells(2, 2).Value + _ CStr(3 + Worksheets("Dynamic Range").Cells(1, 2).Value) For Each Row In Range(xRange) For Each Cell In Row Cell.Value = "$2500.00" Next Cell Next Row End Sub 

• Suorita koodi napsauttamalla Suorita tai paina F5 avain.

• Tämän seurauksena tietokokonaisuus täyttyy arvolla $2500.00 seuraavalla tavalla.

HUOM:

Yllä olevassa kuvassa arvo 6 edustaa alueen kahta ensimmäistä riviä ( B8:B9 ).

• Syötä lopuksi arvo 9 solussa B1 sen sijaan, että 6 Tulokset näkyvät seuraavassa kuvassa.

5. Lisää VBA:n avulla silmukka koko rivin läpi alueeseen.

Viidennessä esimerkissä näemme, miten voimme soveltaa VBA kiertää koko rivin läpi. Tämä esimerkki etsii tietyn arvon sijainnin yhdeltä tai useammalta valitulta riviltä.

Katsotaanpa, mitä vaiheita seuraamme tämän esimerkin toteuttamiseksi.

ASKELEET:

• Aluksi, klikkaa hiiren oikealla aktiivisella arkilla nimeltä ' Koko rivi '. Valitse vaihtoehto ' Näytä koodi '.

• Yllä oleva komento avaa tyhjän VBA aktiivisen työarkin koodiikkuna. Voimme myös saada tämän koodiikkunan painamalla painiketta Alt + F11 .
• Lisää seuraavaksi seuraava koodi kyseiseen koodiikkunaan:

 Sub VBA_Loop_Entire_Row() Dim w As Range For Each w In Range("5:9") If w.Value = "Chris" Then MsgBox "Chris found at " & w.Address End If Next w End Sub 

• Napsauta sitten Suorita tai paina F5 näppäimellä koodin suorittamiseksi.

• Yllä olevassa kuvassa korostettu arvo ' Chris ' ilmaisee arvon, jota etsimme. Range value ' 5:9 ' tarkoittaa, että etsimme arvoa solualueelta ( B5:B9 ).
• Lopuksi näyttöön tulee viesti, että arvo ' Chris ' sijaitsee solussa B6 .

Lue lisää: VBA:n käyttäminen Excelin jokaisen rivin osalta Excelissä

6. Silmukoita jokaisen n-nen rivin läpi Excel VBA:n avulla

Viimeisessä esimerkissä sovellamme VBA käydä läpi jokainen n-th Rivi tietueessa. Seuraavassa tietokokonaisuudessa käytämme värisävyjä tietueemme parittoman määrän riveihin.

Katsotaanpa, miten tämä menetelmä suoritetaan.

VAIHEET:

• Ensimmäinen, klikkaa hiiren oikealla aktiivisella arkilla nimeltä ' n:s rivi '. Valitse vaihtoehto ' Näytä koodi '.

• Seuraavaksi se avaa tyhjän VBA koodi-ikkuna kyseiselle laskentataulukkoon. Koodi-ikkunan saa myös painamalla näppäintä Alt + F11 .
• Kirjoita sitten seuraava koodi koodi-ikkunaan:

 Sub ShadeRows1() Dim r As Long With Range("B5").CurrentRegion For r = 1 To .Rows.Count If r / 2 = Int(r / 2) Then 'tasaiset rivit .Rows(r).Interior.ColorIndex = 43 End If Next End With End Sub 

• Napsauta nyt Suorita tai paina F5 näppäimellä koodin suorittamiseksi.

• Lopuksi voimme nähdä, että yllä oleva koodi varjostaa vain parittoman määrän rivejä tietokokonaisuudestamme.

Lue lisää: Excel VBA alueen läpikäymiseen tyhjään soluun asti (4 esimerkkiä)

Päätelmä

Lopuksi, tämä opetusohjelma antaa sinulle 6 esimerkkejä rivien läpikäynnistä alueella, jossa on VBA excelissä. Lataa tähän artikkeliin sisältyvä harjoitustyölehti, jotta voit testata taitojasi. Jos sinulla on kysyttävää, jätä kommentti alla olevaan laatikkoon. Tiimimme pyrkii vastaamaan viestiisi mahdollisimman pian. Pidä silmällä lisää kekseliäitä Microsoft Excel ratkaisuja tulevaisuudessa.