Ebben a bemutatóban azt fogjuk bemutatni, hogyan használjuk a VBA hogy az excelben a sorok között hurkot csináljunk. A hurkokat azért használjuk, hogy ne kelljen ugyanazt a dolgot újra és újra elvégeznünk. Miközben a Microsoft Excel , előfordulhat, hogy olyan helyzetbe kerülünk, amikor ugyanazt a feladatot többször is el kell végeznünk. Ezt könnyen megtehetjük a ciklusok segítségével a VBA Ebben a cikkben bemutatjuk 6 példák az Excel sorainak végighurozására az Excelben a VBA A ciklus, amelyet a példákban használni fogunk, a ' For-Next ciklus '.

Gyakorlati munkafüzet letöltése

A gyakorló munkafüzetet innen tölthetjük le.

6 példa a VBA-val az Excel tartomány sorainak áthaladására a VBA-val az Excelben

A bemutató példáinak illusztrálására a következő adathalmazt használjuk. Az adathalmaz az értékesítés összegét tartalmazza az első két hónapra vonatkozóan. 5 értékesítő .

1. A VBA használata a Range tartományban a Range változóval a sorokon való áthaladáshoz

Az első példában a range változót arra használjuk, hogy a range sorain végighaladjunk a range használatával. VBA excelben. Alkalmazni fogunk egy VBA hurok a következő adatkészletben.

Lássuk a példa végrehajtásának lépéseit.

LÉPÉSEK:

• Kezdetnek lépjen az aktív munkalapra ' Tartomány Változó '.
• Ezenkívül, jobb gombbal kattintva és válassza ki a ' Kód megtekintése '. Megnyomhatja a Alt + F11 hogy kinyissa.

• A fenti művelet megnyitja az adott munkalap kódablakát.
• Továbbá írja be a kódot a kódablakba:

 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 

• Ezután kattintson a Fuss vagy nyomja meg a F5 a kód futtatásához.

• Végül az alábbi képernyőképhez hasonló eredményeket kapunk.

További információ: Excel VBA: Hurok az oszlopokon keresztül a tartományban (5 példa)

2. Alkalmazza a VBA-t a numerikus változóval rendelkező tartomány sorainak átfutására

Egy másik lehetőség egy tartomány sorainak végighurkolásához a változó kiválasztása. A második példában a következő példát alkalmazzuk VBA a következő adatkészletben a numerikus változókat tartalmazó sorok közötti tartományban történő hurokba rendezéshez.

Nézzük meg a módszer lépéseit.

LÉPÉSEK:

• Először is, jobb gombbal kattintva az aktív lapon, amelynek neve ' Numerikus érték '.
• Ezután válassza ki a ' Kód megtekintése '.

• Ez a művelet megnyitja az adott munkalap kódablakát. Megnyomhatja a Alt + F11 a kódablak megnyitásához.
• írja be a következő kódot az ablakba:

 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 

• Ezután kattintson a Fuss vagy nyomja meg a F5 billentyűt a kód futtatásához.

• Végül a következő képhez hasonló eredményeket láthatunk. A fenti kód a szám formátumát tizedesvesszőkre változtatja.

További információ: VBA az Excel tartomány sorainak és oszlopainak átfutásához (5 példa)

3. Excel VBA a felhasználó által kiválasztott tartományban a tartomány sorain való áthaladáshoz

A harmadik példában a VBA egy felhasználó által kiválasztott tartományban egy tartomány sorain való hurokba rendezéshez. Így a felhasználó képes lesz hurkot alkalmazni az adathalmaz egy kiválasztott területén.

Lássuk a példához kapcsolódó lépéseket.

LÉPÉSEK:

• Az elején jelölje ki a cellatartományt ( D5:D9 ).

• Következő, jobb gombbal kattintva az aktív lapon, amelynek neve ' Felhasználó kiválasztva '. Válassza a ' Kód megtekintése '.

• A fenti parancs megnyit egy VBA az aktív munkalap kódablakát. Ezt a kódablakot a következő billentyűvel is megnyithatja Alt + F11 Szúrja be a következő kódot az üres kódablakba:

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

• Ezután az adott munkalap kódjának futtatásához kattintson a Fuss vagy nyomja meg a F5 kulcs.

• Így megjelenik egy üzenőmező, amely a kiválasztott tartomány első értékét mutatja.

• Sőt, ha rákattint a OK a kiválasztott tartomány második értékét adja vissza, ami a cellát jelenti. D6 .

• Ez a folyamat addig folytatódik, amíg a kiválasztott tartomány utolsó értéke, azaz a cella D9 .

Bővebben: Hogyan használjuk a VBA-t a sorok számolásához az Excel tartományban lévő adatokkal (5 makró)

Hasonló olvasmányok

• Hogyan használjuk a VBA-t az Excel aktív cellából való tartomány kiválasztásához (3 módszer)
• Excel makró: Több oszlop rendezése dinamikus tartományban (4 módszer)
• Hogyan alakítsuk át a tartományt az Excel VBA-ban lévő tömbökké (3 mód)

4. Sorok átfutása dinamikus tartományban VBA-val

A negyedik példában a VBA a dinamikus tartományban lévő sorok átfutásához. Ez a példa kissé eltér az előzőektől. A ciklusban lévő tartományt az excel munkalapra tudjuk majd testre szabni. A módszer illusztrálására a következő adatkészletet fogjuk használni. A következő adatkészletben a tartomány értékeit ( B8:C12 ) egy adott értékkel.

Csak menjen végig az alábbi lépéseken, hogy elvégezze ezt a módszert.

LÉPÉSEK:

• Először is, bemeneti érték 6 cellában B1 és C cellában B2 .
• Másodszor, jobb gombbal kattintva az aktív cellán, és válassza a ' Kód megtekintése '.

• Ez a parancs megnyit egy VBA Az aktív munkalap kódablakának megnyitásának másik módja a kódablak megnyitásához a Alt + F11 .
• Harmadszor illessze be a következő kódot a kódablakba:

 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 

• Most a kód futtatásához kattintson a Fuss vagy nyomja meg a F5 kulcs.

• Ennek eredményeképpen az adatállomány kitöltődik a következő értékkel $2500.00 a következő módon.

MEGJEGYZÉS:

A fenti képen az érték 6 a tartomány első két sora ( B8:B9 ).

• Végül adja meg az alábbi értéket 9 cellában B1 ahelyett, hogy 6 Az eredményeket a következő képen láthatjuk.

5. VBA beillesztése a tartomány teljes során való áthaladáshoz

Az ötödik példában azt fogjuk látni, hogyan alkalmazhatjuk a VBA a teljes soron való végighaladáshoz. Ez a példa egy adott érték pozícióját keresi meg egy vagy több kiválasztott sorból.

Lássuk tehát a lépéseket, amelyeket követni fogunk a példa végrehajtásához.

LÉPÉSEK:

• Kezdetnek, jobb gombbal kattintva az aktív lapon, amelynek neve ' Teljes sor '. Válassza ki a ' Kód megtekintése '.

• A fenti parancs megnyit egy üres VBA az aktív munkalap kódablakát. Ezt a kódablakot a következő gomb megnyomásával is elérhetjük Alt + F11 .
• Ezután illessze be a következő kódot a kódablakba:

 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 

• Ezután kattintson a Fuss vagy nyomja meg a F5 billentyűt a kód futtatásához.

• A fenti képen a kiemelt érték ' Chris ' jelzi az értéket, amelyet keresni fogunk. Range value ' 5:9 ' azt jelzi, hogy az értéket a cellatartományban keressük ( B5:B9 ).
• Végül megjelenik egy üzenőmező, hogy az érték ' Chris ' a cellában található B6 .

További információ: Hogyan használhatja a VBA-t egy tartomány egyes soraihoz az Excelben?

6. Hurok minden n-edik soron keresztül a tartományban az Excel VBA-val

Az utolsó példában a VBA hogy végigmenjen minden n-edik Sor a tartományban. A következő adatkészletben az adattartományunk páratlan számú soraira fogunk színárnyékolást alkalmazni.

Lássuk tehát a módszer végrehajtásának lépéseit.

LÉPÉSEK:

• Először is, jobb gombbal kattintva az aktív lapon, amelynek neve ' n-edik sor '. Válassza a ' Kód megtekintése '.

• Ezután megnyit egy üres VBA kódablakot az adott munkalaphoz. Ezt a kódablakot úgy is elérhetjük, hogy megnyomjuk a Alt + F11 .
• Ezután írja be a következő kódot a kódablakba:

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

• Most kattintson a Fuss vagy nyomja meg a F5 billentyűt a kód futtatásához.

• Végül láthatjuk, hogy a fenti kód csak a páratlan számú sorokat árnyalja az adatállományunkból.

További információ: Excel VBA a tartományon való áthaladáshoz az üres celláig (4 példa)

Következtetés

Összefoglalva, ez a bemutató a következőket nyújtja 6 példák a sorok közötti hurokolásra a range-rel VBA Ha bármilyen kérdése van, kérjük, hagyjon megjegyzést az alábbi mezőben. Csapatunk igyekszik minél hamarabb válaszolni az üzenetére. Tartsa nyitva a szemét a további ötletes Microsoft Excel megoldások a jövőben.