Excel VBA za naslednjo zanko
Zanka VBA za naslednjo je zanka, ki se uporablja med vsemi programskimi jeziki, v tej zanki pa je po stavku for, za katero se koda zanko vrti, dokler ni dosežena merila, in ko je merilo doseženo, usmerja naslednja izjava. postopek do naslednjega koraka kode.
Zanka »Za naprej« je ena izmed tistih zank, ki se pri kodiranju VBA uporablja zelo pogosto kot druge zanke. Zanke nam bodo pomagale ponoviti isto vrsto naloge za določene celice, dokler pogoj ne bo TRUE.
FOR LOOP se vrti skozi obseg celic in izvaja določeno nalogo, dokler pogoj ni TRUE. Če želite na primer zapreti prvih 10 celic in vstaviti serijske številke, povečane za 1, lahko uporabite zanko FOR NEXT.
Ta zanka potrebuje spremenljivko za zagon zanke. S to spremenljivko se lahko dinamično sklicujemo na celice.
Vključuje tri parametre.
Za izjavo = Izhodišče do končne točke (izvedite nekaj nalog) Naslednja izjava
Od začetne točke se bo zanka začela in po končani nalogi izvedla neko nalogo, se premaknila v naslednjo zanko in ponovno izvedla isto nalogo v drugi celici. Takole, dokler ne doseže končne točke, nadaljuje z izvajanjem določene naloge.
Kako uporabiti VBA za naslednjo zanko?
Predpostavimo, da želite vstaviti serijske številke od 1 do 10 do celic A1 do A10. Seveda lahko vstavimo kot pisanje desetih vrstic kode.
Koda:
Sub For_Next_Loop_Example1 () obseg ("A1"). Vrednost = 1 obseg ("A2"). Vrednost = 2 obseg ("A3"). Vrednost = 3 obseg ("A4"). Vrednost = 4 obseg ("A5") .Value = 5 Range ("A6"). Value = 6 Range ("A7"). Value = 7 Range ("A8"). Value = 8 Range ("A9"). Value = 9 Range ("A10") .Vrednost = 10 Končna podd
Kaj pa, če želim vstaviti 100 serijskih številk? Seveda ne morem napisati 100 vrstic kode samo zato, da vstavim serijske številke. Tu se lepota zanke »FOR NEXT« pojavi. Za zmanjšanje kode sledite spodnjim korakom.
1. korak: Najprej moramo definirati spremenljivko. Ime spremenljivke z imenom »Serial_Number« sem razglasil za celoštevilski podatkovni tip.
Koda:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer End Sub
2. korak: Zdaj naj se prijavim za zanko NEXT, naš cilj je vstaviti serijske številke od 1 do 10, kar pomeni, da mora naša zanka teči desetkrat. Izjava FOR LOOP bi morala biti takšna.
Za Serial_Number = 1 do 10
Naslednja serijska številka
Koda:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer For Serial_Number = 1 to 10 Next Serial_Number End Sub
3. korak: Uporabili smo zanko. Ko je zanka enkrat uporabljena, moramo določiti, kaj moramo storiti znotraj zanke. Naš cilj tukaj je vstaviti serijske številke od 1 do 10. Kodo torej zapišite kot Celice (serijska številka, 1). Vrednost = serijska številka.
Koda:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer Dim Serial_Number = 1 To 10 Cells (Serial_Number, 1) .Value = Serial_Number Dim Serial_Number End Sub
4. korak: Razlog, zakaj smo v lastnosti CELLS podali Serial_Number, ker tukaj ne moremo določiti trdne številke za sklic na vrstico. Vsako časovno zanko želim v novo celico vstaviti novo serijsko številko in ne v isto celico.
5. korak: Zaženite kodno vrstico za vrstico s pritiskom na tipko F8.
6. korak: Postavite kurzor na spremenljivko Serial_Number; prikazuje trenutno vrednost Serial_Number.
V tem trenutku je vrednost Serial_Number enaka nič.
7. korak: Še enkrat pritisnite tipko F8, rumena barva se bo premaknila v naslednjo vrstico kode v VBA. Zdaj postavite kurzor na Serial_Number.
Zdaj je vrednost Serial_Number enaka ena, ker je zdaj zanka zagnana in naša zanka se začne od 1, zato je spremenljivka Serial_Number vrednost enaka ena.
Tu je še ena zanimivost, kjer koli je spremenljivka Serial_Number, ki je prav tako enaka 1.
V lastnosti celice smo torej omenili kodo kot:
Celice (serijska številka, 1). Vrednost = serijska številka
To pomeni Celice (1, 1). Vrednost = 1. (Celice (1,1) pomeni Vrstica 1 & Stolpec1.
Torej v vrstici številka 1 in stolpcu številka 1 mora biti vrednost 1.
Korak 8: Zdaj še enkrat pritisnite F8 in si oglejte, kaj se zgodi v vrstici 1 in stolpcu 1, tj. V celici A1.
Tako smo dobili 1 kot vrednost, tj. Vrednost Serial_Number.
9. korak: Zdaj še enkrat pritisnite tipko F8. Običajno je treba zagnati naslednjo kodo, tj. Konec podstave. Toda tukaj se bo vrnilo na "zgornjo črto."
10. korak: Ne pozabite, da je zanka že zaključila prvi zagon. Zdaj se vrača že drugič. Zdaj postavite kurzor na spremenljivko Serial_Number in poglejte, kakšna je vrednost.
Zdaj je spremenljivka Serial_Number enaka 2, ker je zanka že drugič vrnjena.
Kjer koli je Serial_Number, je enaka vrednosti 2. Koda vrstice:
Celice (serijska številka, 1). Vrednost = serijska številka je enaka:
Celice (2, 1). Vrednost = 2. (Celice (2,1) pomeni vrstica 2 in stolpec 1, tj. Celica A2).
11. korak: Zaženite to kodo in si oglejte vrednost v celici A2.
Torej, dobili smo drugo vrednost serijske številke.
12. korak: Zdaj pritisnite tipko F8. Ponovno se bo vrnil v zgornjo vrstico in ponovil kodo. Tokratna vrednost Serial_Number bo 3.
Korak 13: Kjerkoli je Serial_Number, je enako 3.
Koda vrstice: Celice (serijska številka, 1). Vrednost = serijska številka je enaka:
Celice (3, 1). Vrednost = 3. (Celice (3,1) pomeni vrstica 3 in stolpec 1, tj. Celica A3).
14. korak: Pritisnite F8, da zaženete označeno vrstico in si ogledate vrednost v celici A3.
Korak 15: Zdaj pritisnite tipko F8. Še naprej bo vstavljal serijske številke. Trenutna vrednost spremenljivke Serial_Number je 10, ta bo ustavila zanko in zapustila zanko.
