Excel VBA za svaku petlju
"Svaka" ključna riječ koristi se u VBA zajedno s funkcijom "Za". Označava da za svaki entitet u nizu ili rasponu ponavljaju postupak za petlju. U osnovi, nećemo unijeti raspon koraka, tj. Od 1 do 5 ili 1 do 10, umjesto toga samo ćemo ga staviti kao što je prikazano u sintaksi u nastavku.
Sintaksa:
Za svaki naziv objekta u rasponu
Napomena: na radnom listu Excela morate imati karticu za razvojne programere.Ako ne vidite karticu "Developer" u excelu, pogledajte sljedeće korake.
Korak 1: Kliknite na mogućnost datoteke .
2. korak: Pojavi se padajući izbornik, kliknite karticu Opcije .
Korak 3: Jednom kada kliknete na "Opcije", pojavit će se dijaloški okvir kao što je prikazano u nastavku i kliknite na opciju Prilagodi vrpcu .
Korak 4: Kad povučemo prema opcijama vrpce za prilagodbu pronaći ćemo opciju za Developer, moramo potvrditi taj okvir koji će nam omogućiti upotrebu VBA u excelu.
Kako se koristi za svaku petlju u VBA?
Ispod su sljedeći primjeri za korištenje svake petlje u Excelu pomoću VBA koda.
Ovdje možete preuzeti ovaj VBA za svaki predloženi program Excel predložak - VBA za svaki predložak Excela za petljuExcel VBA za svaku petlju - Primjer # 1
Uzet ćemo jednostavan primjer za svaku petlju u VBA. Pretpostavimo da je u nastavku navedeni skup podataka u VBA.
Slijedite dolje navedene korake za upotrebu za svaku petlju u Excelu VBA.
Korak 1: Kliknite karticu "Programer", a zatim kliknite lijevu opciju "Visual Basic" s lijeve strane (prva opcija) kao što je prikazano u nastavku.
Nakon što kliknete na njega, pojavljuje se novi prozor kao što je prikazano u nastavku.
Primijetit ćete da na lijevoj strani sadrži dvije kartice, "Sheet1 (Sheet1)" i "ThisWorkbook". Jedina razlika je „Sheet1“ kada želite izvršiti kod samo za taj list, a u „ThisWorkbook“ možemo napisati kôd i izvršiti koji se mogu primijeniti na čitavu excel radnu knjigu.
Korak 2: Dvaput kliknite na "Sheet1 (Sheet1)" i vidjet ćete prazan ekran gdje moramo napisati kôd. Dajte ime stvorenoj podskupini. Ovdje smo dali ime kao "Sub For_Each_Ex1 ()" kao što je prikazano na slici ispod.
Kodirati:
Sub For_Each_Ex1 () Kraj Sub
Na ovaj način stvaramo podskup i automatski se pojavljuje "Kraj pod". Ovo je zadana značajka excela. Ako se ne prikaže kraj završetka, kôd se neće pokrenuti i otvoriti pogrešku.
Korak 3: Naznačit ćemo varijable kao raspon.
Kodirati:
Sub For_Each_Ex1 () Dim zarada, raspon1 Kao kraj raspona Sub
Ovdje smo proglasili dvije varijable, "Zaradite", koje ćemo koristiti za svaku i "Raspon 1" kao raspon skupa podataka.
Korak 4: Sada ćemo popraviti raspon tj. Raspon podataka na kojima trebamo raditi pomoću ključne riječi "Postavi" kao što je prikazano u nastavku.
Kodirati:
Sub For_Each_Ex1 () Dim zarada, Raspon1 Kao raspon skupa Raspon1 = Raspon ("A1: A10") Kraj Pod
Ovdje smo fiksirali „raspon1“ od ćelija raspona A1 do A10, što je naš skup podataka.
Korak 5: Sada ćemo izvršiti za petlju koristeći svaku ključnu riječ.
Kodirati:
Sub For_Each_Ex1 () Dim zarada, raspon1 kao raspon skupa raspon1 = raspon ("A1: A10") za svaku zaradu u rasponu1 krajnji pot
Ovdje će za svaku vrijednost u rasponu Earn dobiti vrijednost dodijeljenu jer se petlja izvršava korak po korak.
Korak 6: Koristit ćemo ključnu riječ "Msgbox" da bismo prikazali svaki unos retka u dodijeljenom rasponu.
Kodirati:
Sub For_Each_Ex1 () Dim Earn, Range1 As Range Set Range1 = Raspon ("A1: A10") za svaku zaradu u rasponu1 MsgBox Earn.Value End Sub
Ovdje će „Earn.value“ prikazati vrijednost u ćeliji tj. Počevši od prve ćelije u rasponu.
Korak 7: Sada želimo izvršiti sljedeću vrijednost u datom rasponu ćelija, stoga u kôdu moramo koristiti ključnu riječ „Dalje“. To će vam pomoći da nastavite dalje u rasponu i prikazate svaki entitet u rasponu ćelija, jednu po jednu.
Kodirati:
Sub For_Each_Ex1 () Dim Earn, Range1 As Range Set Range1 = Raspon ("A1: A10") za svaku zaradu u rasponu1 MsgBox Earn.Value Next Earn End Sub
Korak 8: Pokrenite kod pritiskom na tipku F5 ili Run i pogledajte izlaz.
Onog trenutka kad se izvrši linija slijedećeg koda "Earn.value" dodijelit će se sljedeća vrijednost ćelije u rasponu. Jedan po jedan klik na "U redu" i nastavit će prikazivati svaku vrijednost u rasponu dok se raspon vrijednosti ne završi.
Excel VBA za svaku petlju - primjer br. 2
Uzet ćemo još jedan primjer u kojem ćemo prikazati ime svakog lista u Excelovoj datoteci. Pretpostavimo da u datoteci Excela imamo nazive koji su dolje navedeni:
Kao što primjećujemo da se u Excelovoj datoteci nalazi oko 5 listova i trebamo prikazati ime svakog po jednog.
Kôd ćemo napisati i izvršiti u odjeljku "ThisWorkbook" kako je istaknuto u crvenom okviru u nastavku:
Dvaput kliknite na nju i dok se pojavi okno za prozor i počnite pisati kôd u njemu. Slijedite dolje navedene korake za upotrebu za svaku petlju u Excelu VBA:
Korak 1: Kôd ćemo pisati dodijeljenjem naziva podskupine kao što je prikazano u nastavku.
Kodirati:
Naziv podstranice () Kraj sub
Korak 2: Također, izravno možemo početi pisati izjavu petlje "For" bez deklariranja varijable kao što je prikazano u nastavku.
Kodirati:
Naziv podstranice () Za svaki sht u Application.Sheets End Sub
Ovdje je "sht" naša varijabla1 koja se prema defaultu deklarira, a "Application.sheets" označava da u datoteci uzimaju u obzir sve listove. Application.fucntion određuje da možemo dodati bilo koju značajku ili funkciju ili excel alat koji ćemo uzeti u obzir tijekom izvršavanja koda.
Korak 3: Sada ćemo unijeti sintaksu okvira poruke i zajedno s njom dodati ćemo sintaksu za prikaz naziva lista kao što je prikazano u nastavku:
Kodirati:
Naziv podstranice () Za svaki sht u Application.Sheets MsgBox "Naziv lista je:" & sht.Name End Sub
Ovdje je izjava koju bismo željeli prikazati: "Ime lista je:", a zatim upisujemo ampersand (&) koji povezuje kôdsku liniju i zatim upišemo "sht.Name", tj. Odabrat će list počevši od prvog list i prikaz imena.
Korak 4: Sada moramo ponoviti postupak prikazivanja imena svakog lista. Dakle, koristili bismo "Sljedeći sht" kao što je prikazano u nastavku:
Kodirati:
Naziv podstranice () Za svaki sht u Application.Sheets MsgBox "Naziv lista je:" & sht.Name Next sht End Sub
"Sljedeći sht" sustav će dati do znanja da razmotri sljedeći list i prikaže njegovo ime za daljnje izvršavanje.
Korak 6: Pokrenite kod pritiskom na tipku F5 ili Run i pogledajte izlaz.
Nakon što kliknete na "OK" i kôd se izvrši dalje, prikazat će se naziv sljedećeg lista. Kôd će se izvoditi sve dok na popisu nema dodatnih listova.
Excel VBA za svaku petlju - primjer # 3
Sada ćemo uzeti primjer gdje moramo zbrojiti sve vrijednosti u određenom skupu podataka ili polju. Pretpostavimo u nastavku skup podataka:.
Slijedite dolje navedene korake za upotrebu za svaku petlju u Excelu VBA:
Korak 1: Prvo deklarirajte naziv podskupine kao "eachadd ()" kao što je prikazano u nastavku.
Kodirati:
Sub eachadd () Kraj Sub
Korak 2: Sada ćemo proglasiti potrebne varijable, jednu kao cijeli broj pod nazivom "ukupno", u kojoj nastavljamo zbrajati vrijednosti ćelije jednu po jednu i popraviti raspon ćelija koji sadrži vrijednosti koje trebamo dodati.
Kodirati:
Sub eachadd () Dim total As Integer Dim Range1 As Range End Sub
Korak 3: Nakon, proglašavajući varijablu i raspon, moramo popraviti raspon koji se koristi za petlju. Popravit ćemo taj raspon od A1 do A10 ćelija pomoću ključne riječi "Set" kao što je prikazano u nastavku:
Kodirati:
Sub eachadd () Dim ukupno kao cijeli broj dim raspon1 kao raspon postavljen raspon1 = raspon ("A1: A10") krajnji sub
Korak 4: Sada možemo izravno započeti koristiti funkciju For petlje i izravno deklarirati varijablu. Ovdje koristimo "add1" kao varijablu i sustav će je prema zadanim postavkama proglasiti.
Kodirati:
Podjeljeni () Dim ukupni kao cjelobrojni dim. Raspon1 As raspon postavljen raspon1 = raspon ("A1: A10") za svaki dodatak1 u rasponu1 krajnji pot
Korak 5: Dodavanje svakog entiteta u rasponu jedan po jedan i u varijablu koja je deklarirana "ukupno". Prema zadanim postavkama, vrijednost „ukupno“ u početku je nula. A trebamo dodati jednu po jednu vrijednost ćelija i opet taj zbroj moramo ponovo dodati „ukupno“.
Kodirati:
Podjedini () Dim ukupno kao cjelobrojni dim. Raspon1 As raspon je raspon1 = raspon ("A1: A10") za svaki add1 u rasponu1 ukupno = ukupno + add1.Value End Sub
Gornja izjava izvršava se s desna na lijevo, tj. "Add1.value" je prva vrijednost ćelije i dodajte je "ukupno" koja je nula. Dakle, zbroj bi bio 0 + 1 što je 1. A taj zbroj kao 1 prešao bi u "ukupno" prije znaka "=". To je prednost jer se formula izvršava s lijeva na desno.
Korak 6: Sada dodajte "Sljedeći dodatak1" koji će sada pomoći u razmatranju sljedeće vrijednosti ćelije u rasponu podataka i dodajte tu vrijednost u varijablu "ukupno" kao što je prikazano u nastavku.
Kodirati:
Sub eachadd () Dim ukupno kao cijeli broj Dim raspon1 Kao raspon raspona raspon1 = raspon ("A1: A10") za svaki add1 u rasponu1 ukupno = ukupno + add1.Value Next next1 End Sub
Korak 6: Pritisnite "F8" za pokretanje koda po svakom retku. Također, ispod zaslona možemo vidjeti vrijednost „ukupno“.
Slično tome, dok opseg ćelija ne pređe, petlja će nastaviti izvršavati ovaj zbroj niza.
Korak 7: Sada ćemo koristiti ključnu riječ "Msgbox".
Kodirati:
Sub eachadd () Dim ukupno kao cijeli broj Dim raspon1 Kao raspon raspona raspon1 = raspon ("A1: A10") za svaki add1 u rasponu1 ukupno = ukupno + add1.Value Next add1 MsgBox "Final Summing:" & total End Sub
Korak 8: Pokrenite kod pritiskom na tipku F5 ili Run i pogledajte izlaz.
Stvari koje treba zapamtiti
- "Svaka" ključna riječ koristi se većinom vremena samo u slučaju upotrebe VBA For Loop funkcije. Inače, ograničena je upotreba u VBA.
- Prednost za "svaku" ključnu riječ je samo u tome što u izrazu "Za" nemamo deklarirati korake poput 1 do x .
Preporučeni članci
Ovo je vodič za VBA za svaku petlju. Ovdje smo raspravljali o tome kako za svaku petlju u Excelu koristiti VBA kôd zajedno s praktičnim primjerima i download-ovim Excel predloška. Ispod je nekoliko korisnih excel članaka vezanih uz VBA -
- VBA radi dok petlja
- Prebacivanje stupaca u Excelu
- VBA odmor za petlju
- Prebroj imena u Excelu
- Kako pokrenuti VBA kod?