Excel VBA za vsako zanko

V VBA skupaj s funkcijo »Za« se uporablja ključna beseda »Vsaka« . Pomeni, da za vsako entiteto v nizu ali območju ponovite postopek za zanko. V bistvu ne bomo vnesli obsega korakov, tj. Od 1 do 5 ali 1 do 10, namesto tega ga preprosto postavimo, kot je prikazano v sintaksi spodaj.

Sintaksa:

Za ime vsakega predmeta v območju

Opomba: na delovnem listu Excela morate imeti zavihek Developer.

Če zavihka »Razvijalci« ne vidite v excelu, upoštevajte spodnja navodila.

1. korak: Kliknite na možnost datoteke .

2. korak: Pojavi se spustni meni, kliknite na zavihek Možnosti .

Korak 3: Ko kliknete »Možnosti«, se prikaže pogovorno okno, kot je prikazano spodaj in kliknite možnost Prilagodi trak .

4. korak: Ko povlečemo navzdol v možnostih prilagoditve traku, bomo našli možnost za Developer, moramo potrditi to polje, ki nam bo omogočilo uporabo VBA v excelu.

Kako uporabiti za vsako zanko v VBA?

Spodaj so različni primeri uporabe za vsako zanko v Excelu z uporabo kode VBA.

To predlogo VBA za vsako predlogo programa Excel lahko prenesete tukaj - VBA za vsako predlogo programa Excel

Excel VBA za vsako zanko - primer # 1

Vzemili bomo preprost primer za vsako zanko v VBA. Predpostavimo, da je spodaj nabor podatkov v VBA.

Za uporabo vsake zanke v Excelu VBA sledite spodnjim korakom.

1. korak: Kliknite na zavihek "Developer" in nato na levi strani (prva možnost), kot je prikazano spodaj, možnost "Visual Basic".

Ko kliknete nanjo, se prikaže novo okno, kot je prikazano spodaj.

Opazili boste, da vsebuje dva zavihka na levi strani, „Sheet1 (Sheet1)“ in „ThisWorkbook“. Edina razlika je "Sheet1", če želite izvršiti kodo samo za ta list in v "ThisWorkbook" lahko zapišemo kodo in izvedemo, ki jo lahko uporabimo za celoten excel delovni zvezek.

2. korak: Dvokliknite "Sheet1 (Sheet1)" in prikazal se bo prazen zaslon, kamor moramo napisati kodo. Dajte ime ustvarjeni podskupini. Tu smo dali ime "Sub For_Each_Ex1 ()", kot je prikazano na spodnjem posnetku zaslona.

Koda:

 Sub For_Each_Ex1 () Konec Sub 

Tako ustvarimo podskupino in samodejno se prikaže »End Sub«. To je privzeta funkcija excela. Če se ne prikaže »End Sub«, se koda ne izvrši in vrže napako.

3. korak: Spremenimo spremenljivke kot obseg.

Koda:

 Sub For_Each_Ex1 () Dim zasluži, obseg1 kot obseg konec pod 

Tu smo razglasili dve spremenljivki, "Zasluži", ki ju bomo uporabili z Za vsako in "Razpon 1" kot obseg podatkovnega niza.

4. korak: Z uporabo ključne besede "Set", kot je prikazano spodaj, bomo določili obseg tj obseg podatkov, na katerih moramo delati.

Koda:

 Sub For_Each_Ex1 () Dim zasluži, obseg1 kot obseg nastavljen obseg1 = obseg ("A1: A10") konec pod 

Tu smo določili „območje 1“ od celic območja A1 do A10, kar je naš podatkovni niz.

5. korak: Zdaj bomo izvedli za zanko z uporabo vsake ključne besede.

Koda:

 Sub For_Each_Ex1 () Dim Earn, Range1 As Range Set Range1 = obseg ("A1: A10") za vsak zaslužek v območju1 End Sub 

Tu bo za vsako vrednost v območju Obseg zasluži vrednost, ki jo dodeli, saj se zanka izvaja korak za korakom.

6. korak: Zdaj bomo uporabili ključno besedo "Msgbox" za prikaz vsakega vnosa vrstice v dodeljenem obsegu.

Koda:

 Sub For_Each_Ex1 () Dim Earn, Range1 As Range Set Range1 = obseg ("A1: A10") za vsak zaslužek v območju1 MsgBox Earn.Value End Sub 

Tukaj "Earn.value" prikaže vrednost v celici, torej od prve celice v območju.

7. korak: Zdaj želimo izvesti naslednjo vrednost v danem območju celic, zato moramo v kodi uporabiti ključno besedo "Naprej". To bo pomagalo nadaljevati v območju in prikazati vsako enoto v območju celic, eno za drugo.

Koda:

 Sub For_Each_Ex1 () Dim Earn, Range1 As Range Set Range1 = obseg ("A1: A10") za vsak zaslužek v območju1 MsgBox Earn.Value Next Earn End Sub 

8. korak: Zaženite kodo s pritiskom na tipko F5 ali Run in poglejte izhod.

V trenutku, ko se izvrši kodna vrstica "Naprej zasluži", bo "Zaslužena vrednost" dodeljena z naslednjo vrednostjo celice v območju. Eno za en klik na »V redu« in prikazuje se vsaka vrednost v območju, dokler ni razpon vrednosti končan.

Excel VBA za vsako zanko - primer # 2

Vzemimo še en primer, v katerem bomo ime vsakega lista prikazali v datoteki excel. Predpostavimo, da imamo v datoteki excel liste, kot je spodaj navedeno:

Ker opazimo, da je v datoteki excel približno 5 listov in moramo prikazati ime vsakega posebej.

Kodo zapišemo in izvedemo v razdelku »ThisWorkbook«, kot je poudarjeno v rdečem polju spodaj:

Dvokliknite nanjo in ko se prikaže okno okna in začnite pisati kodo v njem. Za uporabo vsake zanke v Excelu VBA sledite spodnjim korakom:

1. korak: Kodo bomo napisali tako, da ji dodelimo ime podskupine, kot je prikazano spodaj.

Koda:

 Ime podstrani () Konec pod 

2. korak: Prav tako lahko neposredno začnemo pisati stavek zanke "For", ne da bi razglasili spremenljivko, kot je prikazano spodaj.

Koda:

 Ime podstrani () Za vsako sht v aplikaciji.Sheets End Sub 

Tu je "sht" naša spremenljivka1, ki se privzeto razglasi, "Application.sheets" pa pomeni, da v datoteki upoštevamo vse liste. Application.fucntion določa, da lahko dodamo katero koli funkcijo ali funkcijo ali excel orodje, ki se upošteva med izvajanjem kode.

Korak 3: Zdaj vnesemo sintakso v polje za sporočila in skupaj z njo dodamo sintakso za prikaz imena lista, kot je prikazano spodaj:

Koda:

 Ime podstrani () Za vsako sht v aplikaciji. Seznam MsgBox "Ime lista je:" & sht.Name End Sub 

Tu je izjava, ki jo želimo prikazati, "Ime lista je:" in nato vtipkamo ampersand (&), ki povezuje kodno vrstico in nato vtipkamo "sht.Name", tj. Izbral bo list, ki se začne s prvim list in prikaže ime.

4. korak: Zdaj moramo ponoviti postopek prikaza vsakega imena lista. Zato bi uporabili "Next sht", kot je prikazano spodaj:

Koda:

 Ime podstrani () Za vsako sht v aplikaciji. Seznam MsgBox "Ime lista je:" & sht.Name Naslednji sht End Sub 

"Naprej sht" bo sistem povedal, da razmisli o naslednjem listu in prikaže ime za nadaljnjo izvedbo.

6. korak: Zaženite kodo s pritiskom na tipko F5 ali Run in poglejte izhod.

Ko enkrat kliknete »V redu« in se koda izvede še naprej, bo prikazano ime naslednjega lista. Koda se bo izvajala, dokler ne bodo na voljo dodatni listi.

Excel VBA za vsako zanko - primer # 3

Zdaj bomo vzeli primer, kjer moramo sešteti vse vrednosti v danem nizu podatkov ali matriki. V nadaljevanju predpostavimo, da je niz podatkov:.

Za uporabo vsake zanke v Excelu VBA sledite spodnjim korakom:

1. korak: Najprej prijavite ime podskupine kot "eachadd ()", kot je prikazano spodaj.

Koda:

 Sub eachadd () Konec Sub 

Korak 2: Zdaj bomo razglasili potrebne spremenljivke, eno kot celo število z imenom "skupno", v katerem seštejemo vrednosti celic, eno za drugo in popravimo obseg celic, ki vsebuje vrednosti, ki jih moramo dodati.

Koda:

 Sub eachadd () Dim skupaj Kot celoten Dim Range1 As Range End Sub 

Korak 3: Ko razglasimo spremenljivko in obseg, moramo popraviti obseg, ki ga bomo uporabili za zanko. To območje bomo določili od A1 do A10 celic s ključno besedo "Set", kot je prikazano spodaj:

Koda:

 Sub eachadd () Dim skupaj Skupaj kot celoten obseg za dim1 As Range Set Range1 = obseg ("A1: A10") End Sub 

4. korak: Zdaj lahko začnemo neposredno uporabljati funkcijo For zanke in neposredno razglasiti spremenljivko. Tukaj kot spremenljivko uporabljamo »add1« in sistem jo bo privzeto izjavil.

Koda:

 Sub eachadd () Dim skupaj kot celoten obseg za dim1 As Range Set Range1 = obseg ("A1: A10") za vsak dodatek1 v območju1 konec pod 

5. korak: Dodajanje vsake entitete v obseg eno za drugo in v spremenljivko, označeno kot "skupno". Privzeto je vrednost "skupno" na začetku enaka nič. In dodati moramo eno po eno celico in znova moramo to vsoto dodati v skupno vrednost.

Koda:

 Sub eachadd () Dim skupaj kot celoten obseg za dim 1 As Range Set Range1 = obseg ("A1: A10") Za vsak dodatek1 V območju1 skupaj = skupno + add1.Value End Sub 

Zgornji stavek se izvede od desne proti levi, tj. "Add1.value" je prva vrednost celice in jo dodajte v "skupno", ki je enaka nič. Torej, vsota bi bila 0 + 1, kar je 1. In ta vsota kot 1 bi šla v "skupno" pred znakom "=". To je prednost, saj se formula izvaja od leve proti desni.

6. korak: Zdaj dodajte "Next add1", ki bo zdaj pomagal upoštevati naslednjo vrednost celice v razponu podatkov in jo dodajte v spremenljivko "skupno", kot je prikazano spodaj.

Koda:

 Sub eachadd () Dim skupaj kot celoten obseg za dim 1 As Range Set Range1 = obseg ("A1: A10") Za vsak dodatek1 V območju1 skupaj = skupno + add1.Value Next next1 End Sub 

6. korak: Pritisnite "F8", da zaženete kodo po vsaki vrstici. Na spodnjem posnetku zaslona lahko vidimo vrednost "skupno".

Podobno, dokler območje celic ne prevlada, bo zanka še naprej izvajala to vsoto matrike.

7. korak: Zdaj bomo uporabili ključno besedo "Msgbox".

Koda:

 Sub eachadd () Dim skupaj kot celoten obseg za dim 1 As Range Set Range1 = obseg ("A1: A10") Za vsak dodatek1 V območju1 skupaj = skupno + add1.Value Next next1 MsgBox "Končni seštevek:" & total End Sub 

8. korak: Zaženite kodo s pritiskom na tipko F5 ali Run in poglejte izhod.

Stvari, ki jih je treba zapomniti

  • Ključna beseda "Vsaka" se večinoma uporablja samo v primeru uporabe funkcije VBA For Loop. Poleg tega ima omejeno uporabo v odličnem VBA.
  • Prednost ključne besede "Vsaka" je le v tem, da v stavku "Za" nimamo deklariranih korakov, kot so 1 do x .

Priporočeni članki

To je vodnik za VBA za vsako zanko. Tukaj smo razpravljali o tem, kako za vsako zanko v Excelu uporabljamo kodo VBA skupaj s praktičnimi primeri in naloženo predlogo excela. Spodaj je nekaj uporabnih excel člankov, povezanih z VBA -

  1. VBA naredite, medtem ko zanke
  2. Preklapljanje stolpcev v Excelu
  3. VBA odmor za zanko
  4. Štetje imen v Excelu
  5. Kako izvajati kodo VBA?

Kategorija: