VBA darykite iki ciklo Žingsnis po žingsnio pavyzdžiai, kaip naudoti „Do Iki“ VBA

Ką „VBA Excel“ veikia iki ciklo?

Be VBA Do Iki Loop , turime apibrėžti kriterijų po prieš, kol pareiškime, kuris reiškia, kai mes norime kilpa sustoti ir galutinis pareiškimas yra pati kilpa. Taigi, jei sąlyga yra NETIESA, ji toliau vykdys sakinį ciklo viduje, tačiau jei sąlyga yra TIESA iš karto, ji išeis iš sakinio „Iki“.

Kadangi patys žodžiai sako, kad norint atlikti tam tikrą užduotį, kol bus pasiektas kriterijus, darykite, kol ciklas bus naudojamas beveik visose programavimo kalbose, VBA taip pat kartais naudojame „Do till loop“. „Daryti iki ciklo“ reiškia kažką daryti, kol sąlyga taps TIKRA. Tai tarsi loginė funkcija, paremta TIKRA ar NETIESA.

Tai yra priešinga linijai „Do While“, kur „Do while“ vykdo kilpas tol, kol sąlyga yra TIESA.

Sintaksė

„Iki“ kilpa turi dviejų rūšių sintaksę.

1 sintaksė 

 Darykite tol, kol [sąlyga] [Atlikite kai kurias užduotis] 

2 sintaksė

 Atlikite [Atlikite kai kurias užduotis] ciklą iki [sąlyga] 

Abi atrodo labai panašiai ir yra viena paprasta diferenciacija.

Pirmoje sintaksėje ciklas „Daryti iki“ pirmiausia patikrina sąlygą ir gauna sąlygos rezultatą TRUE arba FALSE. Jei sąlyga yra NETIESA, ji įvykdys kodą ir atliks nurodytą užduotį, o jei sąlyga yra TIESA, ji išeis iš ciklo.

Antroje sintaksės „Do“ kilpoje ji pirmiausia įvykdys kodo užduotį, tada patikrins, ar sąlyga yra TIESA, ar NETIESA. Jei sąlyga yra NETIESA, ji vėl grįš atgal ir atliks tą pačią užduotį. Jei sąlyga yra TIESA, ji tuoj pat išeis iš ciklo.

Pavyzdys

Žinau, kad teorijos dalyje nėra taip lengva ką nors suprasti, bet nėra ko jaudintis. Pateiksime jums paprastus pavyzdžius, kaip suprasti kilpą. Skaityk. Norėdami pradėti mokytis, atlikime užduotį įterpti pirmuosius 10 serijos numerių iš langelio A1 į A10.

Galite atsisiųsti šį „VBA Do Until Excel“ šabloną čia - „VBA Do Until Excel“ šabloną

Atlikite toliau nurodytus veiksmus, kad pritaikytumėte kilpą „Daryti iki“.

1 veiksmas: pirmiausia sukurkite makrokomandos pavadinimą, kad pradėtumėte antrinę procedūrą.

Kodas:

 Sub Do_Until_Example1 () Pabaiga Sub 

2 žingsnis: apibrėžkite kintamąjį kaip „ilgą“.  „X“ apibrėžiau kaip ilgą duomenų tipą.

Blankus x toks ilgas

3 žingsnis: Dabar įveskite žodį „Daryti iki“.

Daryti iki

4 žingsnis: Pradėję ciklo pavadinimą, įveskite sąlygą kaip „x = 11“.

 Darykite iki x = 11

x = 11 yra mūsų pritaikytas loginis testas. Taigi šioje eilutėje sakoma, kad reikia paleisti kilpą, kol x bus lygus 11.

5 veiksmas: pritaikykite CELLS ypatybę ir įterpkime serijos numerius nuo 1 iki 10.

Ląstelės (x, 1). Vertė = x

Pastaba: Čia mes paminėjome, kad „x“ prasideda nuo 1, taigi iš pradžių x vertė yra lygi 1. Kur „x“ yra lygus 1.

6 žingsnis: Dabar uždarykite kilpą įvesdami žodį „LOOP“.

 Sub Do_Until_Example1 () Dim x As Long Do Iki x = 11 langelių (x, 1). Vertė = x kilpa 

Pabaigos sub

Gerai, mes baigėme kodavimo dalį, dabar mes išbandysime kodus po eilutės, kad geriau suprastume kilpą.

Norėdami paleisti eilutę pagal eilutės kodą, pirmiausia paspauskite klavišą F8.

Pirmiausia makrokomandos pavadinimas bus paryškintas geltona spalva.

Kai matote geltoną liniją, ji sako, kad tai nebus įvykdyta, jei ketinate dar kartą paspausti klavišą F8.

Dabar dar kartą paspauskite klavišą F8, geltona linija bus rodoma „Iki tol, kol kilpa“.

Dabar, norėdami suprasti kilpą, užveskite žymeklį ant kintamojo „x“ ir pamatykite kintamojo „x“ vertę.

Taigi, x = 0. Kadangi paryškinta eilutė yra pirmoji linija linijoje, todėl „x“ vertė yra lygi nuliui, todėl dar kartą paspauskite klavišą F8 ir pamatykite „x“ reikšmę. Prieš tai išeinant, kodas veikia ir priskiria reikšmę „x“ kaip 1.

Dabar vėl pradėkite vykdyti kilpą paspausdami klavišą F8. Žiūrėkite „x“ vertę.

Dabar „x“ reikšmė rodoma kaip 1. Norint turėti kintamojo „x“ prieauginę vertę, reikia iš naujo priskirti kintamojo „x“ vertę kaip x = x + 1 ciklo viduje.

Dabar dar kartą paspauskite klavišą F8 ir mes turėtume gauti 1 reikšmę langelyje A1.

Dabar dar kartą paspauskite klavišą F8 ir pažiūrėkite, kokia yra „x“ reikšmė.

Kintamojo „x“ vertė dabar yra 2. Taigi mūsų sąlyga sako, kad kilpa turi būti vykdoma tol, kol sąlyga tampa TIESA, todėl mūsų ciklas tęsiasi tol, kol „x“ reikšmė taps 11.

Dar kartą paspauskite F8, kad jis grįžtų prie linijos „Daryti iki“.

Dar du kartus paspauskite klavišą F8, mes gausime 2 reikšmę langelyje A2.

Dar kartą paspauskite klavišą F8 ir „x“ reikšmė dabar taps 3.

Dar kartą paspauskite klavišą F8, jis vėl grįš į kilpą.

Panašu, kad ši kilpa vėl vykdys užduotį, kol „x“ reikšmė taps 11. Dabar aš vykdžiau ciklą, kol „x“ reikšmė taps 11.

Dabar, jei paspausiu F8, jis vis tiek grįš į kilpą.

Bet jei paspausiu F8 klavišą, jis išeis iš ciklo, nes taikoma sąlyga tampa „TRUE“, ty x = 11.

Taigi dabar „Excel“ lape turime serijos numerius nuo 1 iki 10.

Taigi, tai yra pagrindinė ciklo „Daryti iki“ idėja. Norėdami suprasti bet kokias kilpas, turite paleisti kodą eilutėje, kol gausite visas žinias apie kilpas.


$config[zx-auto] not found$config[zx-overlay] not found