Selles õpetuses käsitleme, kuidas kasutada VBA et teha tsükkel läbi ridade vahemikus excelis. Me kasutame silmuseid, et vältida sama asja uuesti ja uuesti tegemist. Töötades aastal Microsoft Excel , võime sattuda olukorda, kus peame sama ülesannet mitu korda täitma. Seda saame hõlpsasti teha, kasutades silmuseid sisse VBA Selles artiklis näitame, et 6 näited ridade läbimise kohta excelis koos VBA Loop, mida me kasutame kogu näites, on ' For-Next Loop '.

Lae alla praktiline töövihik

Praktilise töövihiku saame alla laadida siit.

6 näidet VBA-ga Exceli vahemikus olevate ridade läbimiseks VBAga

Selle õpetuse näidete illustreerimiseks kasutame järgmist andmestikku. Andmestik sisaldab müügisummasid kahe esimese kuu kohta. 5 müüjat .

1. Kasutage VBA-d Range'i vahemikus koos Range'i muutujaga ridade läbimiseks Loop Through Rows

Esimeses näites kasutame vahemiku muutujat, et teha ringkäik läbi ridade vahemikus, kasutades VBA excelis. Me rakendame VBA tsükkel järgmises andmekogumis.

Vaatame selle näite täitmise samme.

SAMMUD:

• Alustuseks minge aktiivsele töölehele ' Vahemik Muutlik '.
• Lisaks, paremklikk ja valige valik ' Vaata koodi '. Võite vajutada ka Alt + F11 selle avamiseks.

• Ülaltoodud toiming avab selle töölehe koodiakna.
• Peale selle sisestage kood koodiaknasse:

 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 

• Seejärel klõpsake nuppu Käivita või vajutage F5 koodi käivitamiseks.

• Lõpuks saame järgmise ekraanipildi sarnased tulemused.

Loe edasi: Excel VBA: Loop läbi veergude vahemikus (5 näidet)

2. Rakendage VBA-d numbrilise muutujaga vahemikus olevate ridade läbimiseks

Teine võimalus vahemiku ridade läbimiseks on valida muutuja. Teises näites rakendame VBA järgmises andmestikus, et läbida ridu numbriliste muutujatega vahemikus.

Vaatame, kuidas seda meetodit teha.

SAMMUD:

• Esiteks, paremklikk aktiivsel lehel nimega Numbriline väärtus '.
• Seejärel valige valik ' Vaata koodi '.

• See toiming avab selle töölehe koodiakna. Samuti võite vajutada klahvi Alt + F11 et avada see koodiaken.
• sisestage sellesse aknasse järgmine kood:

 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 

• Pärast seda klõpsake nuppu Käivita või vajutage F5 klahviga koodi käivitamiseks.

• Lõpuks näeme järgmise pildi sarnaseid tulemusi. Ülaltoodud kood muudab numbri vormingu kümnendkohtadeks.

Loe edasi: VBA, et läbida Exceli vahemiku ridu ja veerge (5 näidet)

3. Exceli VBA kasutaja valitud vahemikus, et läbida ridu vahemikus olevaid ridu

Kolmandas näites kasutame VBA kasutaja valitud vahemikus, et teha silmus läbi vahemiku ridade. Seega saab kasutaja rakendada silmust andmekogumi valitud piirkonnas.

Vaatame selle näitega seotud samme.

SAMMUD:

• Alguses valige lahtrite vahemik ( D5:D9 ).

• Järgmine, paremklikk aktiivsel lehel nimega Kasutaja valitud '. Valige valik ' Vaata koodi '.

• Ülaltoodud käsk avab VBA aktiivse töölehe koodiaken. Selle koodiakna saab avada ka, vajutades klahvi Alt + F11 Sisestage järgmine kood sellesse tühja koodiaknasse:

 Sub VBA_User_Selection() Dim w As Variant Set xRange = Selection For Each w In xRange MsgBox "Raku väärtus = " & w.Value Next w End Sub 

• Seejärel klõpsake selle töölehe koodi käivitamiseks nuppu Käivita või vajutage F5 võti.

• Seega ilmub teateaken, mis näitab valitud vahemiku esimest väärtust.

• Lisaks sellele, kui te klõpsate OK see tagastab valitud vahemiku teise väärtuse, mis on lahter D6 .

• See protsess jätkub kuni valitud vahemiku viimase väärtuseni, mis on lahter D9 .

Loe edasi: Kuidas kasutada VBA-d, et lugeda ridu Exceli andmetega vahemikus (5 makrot)

Sarnased lugemised

• Kuidas kasutada VBA-d, et valida Exceli aktiivsest lahtrist vahemik (3 meetodit)
• Exceli makro: Mitme veeru sorteerimine dünaamilise vahemikuga (4 meetodit)
• Kuidas konverteerida vahemik Exceli VBA-s massiivi (3 võimalust)

4. Ridade läbimine dünaamilises vahemikus VBAga

Neljandas näites rakendame VBA dünaamilise vahemiku ridade läbimiseks. See näide erineb pisut eelmistest. Me saame kohandada vahemikku tsüklis Exceli töölehe jaoks. Kasutame selle meetodi illustreerimiseks järgmist andmestikku. Järgnevas andmestikus täidame vahemiku väärtused ( B8:C12 ) konkreetse väärtusega.

Selle meetodi rakendamiseks tuleb lihtsalt läbida alljärgnevad sammud.

SAMMUD:

• Esiteks, sisendväärtus 6 lahtris B1 ja C lahtris B2 .
• Teiseks, paremklikk aktiivsel lahtril ja valige valik ' Vaata koodi '.

• See käsk avab VBA aktiivse töölehe koodiaken. Teine võimalus selle koodiakna avamiseks on vajutada nuppu Alt + F11 .
• Kolmandaks sisestage sellesse koodiaknasse järgmine kood:

 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 

• Nüüd, et käivitada kood, klõpsake Käivita või vajutage F5 võti.

• Selle tulemusena täitub andmekogum väärtusega $2500.00 järgmisel viisil.

MÄRKUS:

Ülaltoodud pildil on väärtus 6 esindab vahemiku kaks esimest rida ( B8:B9 ).

• Lõpuks sisestage väärtus 9 lahtris B1 selle asemel, et 6 Tulemusi näeme järgmisel pildil.

5. Sisestage VBA, et läbida kogu rea vahemikus olevad read

Viiendas näites näeme, kuidas saame rakendada VBA loop läbi kogu rea vahemikus. See näide leiab konkreetse väärtuse positsiooni valitud ühest või mitmest reast.

Niisiis, vaatame, milliseid samme me selle näite täitmiseks järgime.

SAMMUD:

• Alustuseks, paremklikk aktiivsel lehel nimega Kogu rida '. Valige valik ' Vaata koodi '.

• Ülaltoodud käsk avab tühja VBA aktiivse töölehe koodiakna. Selle koodiakna saame kätte ka, kui vajutame klahvi Alt + F11 .
• Seejärel sisestage sellesse koodiaknasse järgmine kood:

 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 

• Seejärel klõpsake nuppu Käivita või vajutage F5 klahviga koodi käivitamiseks.

• Ülaltoodud pildil on esile tõstetud väärtus ' Chris ' näitab väärtust, mida me otsime. Range value ' 5:9 ' näitab, et me otsime väärtust lahtri vahemikus ( B5:B9 ).
• Lõpuks kuvatakse teade, et väärtus Chris ' asub lahtris B6 .

Loe edasi: Kuidas kasutada VBA-d Exceli iga rea jaoks iga rea jaoks.

6. Loop läbi iga n-nda rea vahemikus Exceli VBAga

Viimases näites rakendame VBA et läbida iga n-nes Rida vahemikus. Järgnevas andmestikus rakendame värvitooni meie andmevahemiku paaritu arvu ridade suhtes.

Niisiis, vaatame selle meetodi täitmise samme.

SAMMUD:

• Esiteks, paremklikk aktiivsel lehel nimega n-nes rida '. Valige valik ' Vaata koodi '.

• Seejärel avab see tühja VBA selle töölehe koodiakna. Selle koodiakna saame kätte ka, kui vajutame klahvi Alt + F11 .
• Seejärel sisestage sellesse koodiaknasse järgmine kood:

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

• Nüüd klõpsake nuppu Käivita või vajutage F5 klahviga koodi käivitamiseks.

• Lõpuks näeme, et ülaltoodud kood varjutab meie andmestikust ainult paaritu arvu ridu.

Loe edasi: Exceli VBA, et läbida vahemikku kuni tühja lahtrini (4 näidet)

Kokkuvõte

Kokkuvõttes annab see õpetus teile 6 näited ridade läbimise kohta vahemikus koos VBA excelis. Laadige alla selles artiklis sisalduv harjutustööleht, et oma oskusi proovile panna. Kui teil on küsimusi, jätke palun kommentaar allpool olevasse lahtrisse. Meie meeskond püüab teie sõnumile vastata nii kiiresti kui võimalik. Hoidke silma peal, et rohkem leidlikke Microsoft Excel lahendusi tulevikus.