For next next iborasini ishlatishga misol. “VBA Loop Operators. Ichki ko'chadan. Salbiy dalillar bilan ilmoq

Velosiped bir necha marta bajariladigan bayonotlar guruhidir. VBA-da tsikllarni, ya'ni bir yoki bir nechta bayonotlarning bir necha marta bajarilishini tashkil qilish uchun siz ikkita asosiy guruhdan foydalanishingiz mumkin: For ... Keyingi sanoq bilan ko'chadan va Do ... Loop sharti bilan ko'chadan. Ikkita turi mavjud Uchun ... Keyingi (For-Next va For Next-Next) va ikkita turdagi ko'chadan Do ... Loop (Do while ... Loop va Do until ... Loop), tekshirilayotgan holat turidan farq qiladi.

VBA-da eng keng tarqalgan tsikl For-Next sanash tsikli hisoblanadi. Ushbu tsiklda tsikl o'zgaruvchisi o'zgaradigan chegaralarni (hisoblagichning boshlang'ich va oxirgi qiymatlari) o'rnatishi kerak.

Loop operatori quyidagi sintaksisga ega:
Uchun Uchun n \u003d 1)
Keyin Yakuniy qiymat ( Keyin 10)
Qadam O'sish ( Qadam2)

Keyingi [hisoblagich]

Bu erda o'zgaruvchi hisoblagich bo'lib, o'zgaruvchining qiymati tsiklning har bir takrorlanishi bilan ortadi yoki kamayadi. Agar tsiklni qurishda qadam bo'lmasa, unda o'sish 1 ga teng (sukut bo'yicha). Loop operatoridan erta chiqish uchun, ya'ni. hisoblagich yakuniy qiymatiga yetguncha operatorni tsikl qurilishiga kiritish kerak Chiqish uchun.

Hisob bilan Chiqish uchun tsikl operatori quyidagi sintaksisga ega:
Uchun counter \u003d Boshlang'ich qiymat (masalan, masalan, Uchun n \u003d 1)
Keyin Yakuniy qiymat ( Keyin 10)
Qadam O'sish ( Qadam2)
[Ko'rsatmalar] yoki [Operator bloki]
Chiqish uchun
Keyingi [hisoblagich]

Bir hil ob'ektlar yoki massivlar guruhini qayta ishlash uchun quyidagi tsikl qurilishi qo'llaniladi:
Har biriga Element Yilda Guruh (bir hil ob'ektlar guruhining nomi)
[Ko'rsatmalar] yoki [Operator bloki]
Chiqish uchun
Keyingi element

Do while ... Loop iborasi belgilangan shart bajarilgunga qadar ko'chiriladi. Shuni ta'kidlash kerakki, shart bayonot yoki bayonotlar guruhi bajarilishidan oldin tekshiriladi.

Bunday holda, Do While ... Loop so'zlari sintaksisiga quyidagilar kiradi:
Vaqtni bajaringshart (Masalan, x<20)
[Ko'rsatmalar] yoki [Operator bloki]
Do tugmachasidan chiqing
Loop

Qil
[Ko'rsatmalar] yoki [Operator bloki]
Do tugmachasidan chiqing
Davr holat

Do Up ... Loop operatori shart bajarilmaguncha tsikllarni bajaradi va shart bajarilgach, gap tsikldan chiqadi. Vaziyat bayonot yoki bayonotlar guruhi bajarilishidan oldin tekshiriladi.

Bu holda Do ... ... Loop so'zlari sintaksisiga quyidagilar kiradi:
Bunga qadar qilingshart (Masalan, x \u003d 20)
[Ko'rsatmalar] yoki [Operator bloki]
Do tugmachasidan chiqing
Loop

Agar siz ko'rsatmalar yoki bayonotlar bloki kamida bir marta bajarilgandan so'ng shartni tekshirishingiz kerak bo'lsa, unda siz quyidagi ko'chadan operator qurilishidan foydalanishingiz mumkin:
Qil
[Ko'rsatmalar] yoki [Operator bloki]
Do tugmachasidan chiqing
To loop holat

Uchun ... VBA Excel-dagi keyingi tsikl, uning sintaksisi va alohida komponentlarning tavsifi. For ... Next siklidan foydalanish misollari.

VBA Excel-dagi For ... Next tsikli ko'chadan boshqarish o'zgaruvchisi - hisoblagich bilan belgilangan bir necha marta bir qator bayonotlar guruhini bajarish uchun mo'ljallangan. Loop ishlaganda hisoblagich har bir iteratsiyadan so'ng Step operatori tomonidan ko'rsatilgan raqam bo'yicha yoki odatiy ravishda bittaga ko'payadi yoki kamayadi. Raqam va guruhdagi indeksatsiya noma'lum bo'lgan elementlarga (diapazon, massiv, kollektsiya) tsiklni qo'llash zarur bo'lganda siz foydalanishingiz kerak.

Uchun ... Keyingi ko'chadan sintaksis

Kvadrat qavslarda For ... Next tsiklining ixtiyoriy atributlari mavjud.

Uchun ... Keyingi ko'chadan komponentlar

*Agar atribut bo'lsa Qadam etishmayotgan bo'lsa, For ... Next tsikli standart qadam bilan ishlaydi 1 .

**Agar siz o'zingizning kodingizni pastadirda ishlatmasangiz, tsikldan foydalanish ma'nosi yo'qoladi.

Uchun ... Keyingi ko'chadan misollar

Siz namunaviy ko'chadan VBA modulingizga nusxa ko'chirishingiz, ularni ketma-ket ishga tushirishingiz va natijalarini tomosha qilishingiz mumkin.

Eng oddiy tsikl

Faol Excel varag'ining birinchi ustunining dastlabki o'nta katakchalarini 1 dan 10 gacha bo'lgan raqamlar bilan to'ldiring:

Sub test1 () Dim i i \u003d 1 dan 10 gacha bo'lgan hujayralarga qadar (i, 1) \u003d i Keyingi oxir Sub

Qadam bilan oddiy tsikl

Oldingi tsiklga 3 qiymatiga ega Step operatori qo'shilgan va natijalar ikkinchi ustunga yozilgan:

Sub test2 () Dim i I \u003d I to 1 \u003d 10 Step 3 hujayralari (i, 2) \u003d i Keyingi oxir Sub

Salbiy dalillar bilan ilmoq

Ushbu tsikl uchinchi ustunning birinchi o'nta katakchasini teskari tartibda to'ldiradi:

Sub test3 () Dim i I \u003d 0 dan -9 gacha bo'lgan bosqich -1 ga qadar bo'lgan hujayralar (i + 10, 3) \u003d i + 10 Keyingi oxir

Qadam hajmini -3 ga oshiring va natijalarni faol Excel varag'ining to'rtinchi ustuniga yozing:

Sub test4 () Dim i I \u003d 0 dan -9 bosqichgacha -3 hujayragacha (i + 10, 4) \u003d i + 10 Keyingi oxir

Ichki halqa

Tashqi tsikl faol varaqning dastlabki o'n qatoridagi indekslarni ketma-ket o'rnatadi va ichki tsikl qatorning dastlabki to'rtta katakchasidagi raqamlarni joriy indeks bilan qo'shib, yig'indisini beshinchi ustundagi katakka yozadi. Ichki tsiklni kümülatif qo'shish bilan boshlashdan oldin, tegishli qatorning beshinchi katakchasini nolga qo'yamiz, shunda unda biron bir raqam topilsa, u umumiy miqdorga qo'shilmaydi.

Sub test5 () Dim i1 kabi uzoq, i2 sifatida I1 \u003d 1 dan 10 gacha "i1 satridagi beshinchi katakka 0 ta hujayra (i1, 5) \u003d 0 i2 \u003d 1 dan 4 gacha bo'lgan hujayralar uchun (i1, 5) \u003d hujayralar (i1) beriladi , 5) + Hujayralar (i1, i2) Keyingi Keyingi oxir Sub

Ko'chadan chiqish

Faol varaqning oltinchi ustuniga, albatta, For ... Next ko'chadan foydalanib, o'nta hayvon nomini yozing:

Sub test6 () Dim i i \u003d 1 dan 10 gacha bo'lgan hujayralarga qadar (i, 6) \u003d tanlang (i, "Bear", "Elephant", "Jirafa", "Antilope", _ "Timsoh", "Zebra", "Yo'lbars", "Kertenkele", "Arslon", "Gippo") Keyingi End Sub

Keyingi tsikl galoslarni tanovul qilgan timsohning oltinchi ustunidan qidiradi. Ettinchi ustun katakchasida tsikl timsoh bilan uchrashguncha "Bu erda tsikl bo'lgan" qatorini yozadi va timsohni topgach "U galoshlarni yedi" deb yozadi va Exit For buyrug'ini bajarib ishlashni to'xtatadi. Bu timsoh ostidagi hayvonlar nomlari yonidagi katakchalarda ko'rinadi, unda "Tsikl bo'lgan" matni bo'lmaydi.

Sub test7 () Dim i I \u003d I to I \u003d 1 to 10 Agar Cells (i, 6) \u003d "Timsoh" U holda Cells (i, 7) \u003d "U galoshes yedi" Boshqa hujayralar uchun chiqish (i, 7) \u003d "Mana "End End Next Key Sub" tsikli mavjud edi

Bunday ma'lumotlarni siz VBA muharririda ketma-ket ishga tushirsangiz, faol Excel varag'ida olasiz For ... Next tsikllarini namoyish etuvchi barcha etti odatiy tartib.

Kesirli argumentlar bilan aylana

Boshlash, tugatish va qadam atributlari raqam, o'zgaruvchi yoki raqamli ifoda bilan ifodalanishi mumkin:

I \u003d 1 dan 20 gacha bo'lgan qadam 2 uchun i \u003d a dan b gacha bo'lgan qadam c uchun i \u003d a - 3 dan 2b gacha + 1 qadam c / 2

O'zgaruvchining qiymatini tsikldan tashqarida yoki uning ichidagi ifodani baholash natijasida kasrli natijaga erishish mumkin. VBA Excel uni quyidagicha butun songa aylantiradi:

"I \u003d 1,5 dan 10,5 gacha bo'lgan qadam uchun 2.51 qadam" uchun yaxlitlangan atributlar uchun qiymatlar i \u003d 2 dan 10 gacha bo'lgan 3-qadam uchun

For ... Next tsikli tanasiga uning bajarilishining oldindan aytib bo'lmaydigan natijalarini olmaslik uchun asoslanmagan argument qiymatlarini kiritmaslikka harakat qiling. Agar sizga kasr sonlar kerak bo'lsa va normal yaxlitlashni ishlatmoqchi bo'lsangiz, VBA kodidagi WorksheetFunction.Round-dan For ... Next ko'chadan oldin raqamni yaxlitlash uchun foydalaning.

Ushbu dars ilmoq bilan ishlashni o'z ichiga oladi Uchun VBA-da. For loopi bilan ishlashning misoli, makroslar yordamida Excelda formulalar yaratish misoli namoyish etiladi.

Velosiped Uchun hisoblagich printsipi asosida ishlaydi. Uchun ba'zi bir harakatlarni oldindan belgilangan miqdordagi takrorlash zarur bo'lgan hollarda qo'llaniladi. Masalan, pastadir Uchun ko'pincha massivlarni o'qiyotganda ishlatiladi.

Velosiped Uchun quyidagi sintaksisga ega:
Uchun hisoblagich = tsiklning boshlanishi Kimga tsikl tugashi [Qadam qadam]
operatorlar guruhi, jamoalar va boshqalar.
Chiqish uchun
Keyingi hisoblagich

• "hisoblagich" -belgilangan o'zgaruvchan o'zgaruvchi "qadam".Agar qadam ko'rsatilmagan bo'lsa, demak sukut bo'yicha bitta bo'ladi.
• "tsikl boshlanishi", "tsikl tugashi "-hisoblagichning pastki chegarasi va yuqori chegarasini ko'rsatadigan raqamlar yoki o'zgaruvchilar. Tsikl qachon to'xtaydi "hisoblagich"\u003e"tsikl tugashi "(yoki, agar tsikl teskari bo'lsa, ya'ni. -1 qadam bilan, keyin "hisoblagich"< "tsikl tugashi ").
• Chiqish uchun -tsiklni majburan to'xtatish buyrug'i. U voqea sodir bo'lgan hollarda qo'llaniladi, undan keyin buyruqlarning bajarilishini tsiklda to'xtatish yoki xato paydo bo'lishining oldini olish kerak.

Keling, pastadirdan foydalanishning bir nechta misollarini ko'rib chiqamiz Uchun... Kelajakda biz ushbu tsiklga tez-tez duch kelamiz.

1-misol
Raqamlar bilan to'ldirilgan ikkita C va E ustunlari berilgan:

S ustunidagi raqamlarni E ustunidagi raqamlar bilan quyidagicha qo'shing:
C2 + E21, C3 + E20, ..., C21 + E2. Natijani D ustuniga formula sifatida chiqaring, ya'ni. natija katakchasining tarkibi "\u003d C2 + E21" bo'lishi kerak.

Ibratli kod shunga o'xshash (kodni qaerga yozishni o'qiymiz):

Sub Loop_For ()
"tsiklning chegarasini ko'rsatadigan doimiy, ya'ni tsikl qanday qiymatga to'g'ri kelishi kerak
Konst n \u003d 21
Uchun i \u003d 2 Kimga n
"string formulasini yarating va uni katakchaga saqlang
Hujayralar (i, 4) \u003d "\u003d C" & CStr(i) & "+ E" & CStr((n - i) + 2)
"ko'chadan ishlaganda davom eting
Keyingi men
"dastur kodining qolgan qismi
Tugatish Sub

Yozilgan kodni tahlil qiling:

• Konst n \u003d 21 - 21 qiymatiga ega bo'lgan doimiy n ning tavsifi, ya'ni. pastadir orqali o'tadigan qatorlar soni Uchun;
• Uchun i \u003d 2 Kimga n - i hisoblagich, bu tsiklning har bir o'tishi bilan 1 ga o'zgaradi. Hisoblagich 2 dan boshlanadi va i\u003e n bo'lganda tugaydi;
• Hujayralar (i, 4) - hujayra bag'ishlangan varaq, i - satr raqami, 4 - natija ko'rsatiladigan ustun raqami. Bizning hisoblagichimiz Excel varag'ining qator raqamini ko'rsatishini unutmang;
• Keyingi i -tsiklni yopish va ko'rsatgichni harakatlantirish uchun operator Uchun.Hamma narsa Uchun va Keyingi pastadirda ishlaydi;
• CStr -raqamni matnga o'zgartiradigan funktsiya.

Yacheykaga quyidagicha yaratilgan formulani tayinlaymiz "\u003d C" & CStr(i) & "+ E" & CStr((n - i) + 2). & Belgisi - "yopishtiruvchi" belgilar, chiziqlar. Natijada "\u003d Sn + E ((n - i) + 2)" formulasini olamiz, bu erda n \u003d 21, i - hisoblagich.
Qo'rquv bilan? Bu faqat ko'rinadi :)

Hammasi. Makrosni bajargandan so'ng biz quyidagi ustunni (ajratilgan holda) va har bir katakchada formulani olamiz:

2-misol
Keling, ko'rsatilgan qadam bilan pastadirni ko'rib chiqaylik. Oxirgi so'lni hisoblab chiqqandan so'ng, biz uchta ustunni oldik, endi biz E ustunidan Dni olib tashlashimiz kerak va F ustunida olib tashlash formulalarini chiqarishimiz kerak. Ibratli kod quyidagicha:

Sub Loop_For_with_step ()
Konst n \u003d 21
Uchun i \u003d n Kimga 2 Qadam -1
Hujayralar (i, 6) \u003d "\u003d E" & CStr(i) & "-D" & CStr(i)
Keyingi men
Tugatish Sub

Bunday holda, hamma narsa bir xil, endi faqat tsikl 2 dan emas, balki 21 dan 2 gacha -1 qadam bilan "ishlaydi".
Natijada quyidagicha bo'ladi:

Velosiped Uchun, VBA-da, bu yagona tsikl emas. Kelajakda biz tsikllar uchun yana ikkita variantni ko'rib chiqamiz, bu esa makroslarni Excelga yozishda oldini olish mumkin emas.

Serialdan dars: “ Visual Basic dasturlash.NEN maktab o'quvchilari uchun "

Siz endi ComboBox boshqaruvini yaxshi bilasiz.
Ushbu darsda biz loop operatorlari ustida joylashgan Visual Basic.Net tili operatorlarini o'rganishni davom ettiramiz.
Tsiklik algoritmik tuzilmalar uch xil:

1. taymerli ilmoqlar, bunda tsiklning tanasi ma'lum marta bajariladi;
2. massivlarni yoki kollektsiyalarni qayta ishlash uchun ko'chadan;
3. shartli tsikllar, unda shart tanlangan ekan (yoki shart ro'yobga chiqguncha) tsikl tanasi bajariladi.

Ushbu darsda hisoblagich tsikli operatorini ko'rib chiqing (For ... Next). Keling, ushbu operator yordamida loyiha yozaylik.

Velosiped hisoblagich bilan Uchun. ... ... Next bajarilishi kerak bo'lgan takroriy soni oldindan ma'lum bo'lganda ishlatiladi.

Blok diagrammasi

Operatorning umumiy ko'rinishi

Counter uchun \u003d StartValue to EndValue Loop tanasi Keyingi [Counter]

Bayonotning sintaksisi quyidagicha: For kalit so'zidan boshlangan satr tsiklning boshi, Keyingi so'zli qator esa tsiklning oxiri bo'lib, ular orasida tsiklning tanasi bo'lgan bayonotlar mavjud.

For iborasini bajarish algoritmi. ... ... Keyingi

1. Hisoblagich o'zgaruvchisi qiymati StartVal-ga teng qilib o'rnatiladi.
2. Hisoblagich holati tekshiriladi<= КонЗнач
3. Agar shart bajarilsa, u holda tsiklning tanasi bajariladi. Counter o'zgaruvchisi qadam kattaligi bilan o'zgartiriladi: Counter \u003d Counter + step.
4. Counter o'zgaruvchisi EndValue qiymatiga yetganda, tsikl chiqadi va quyidagi gaplar bajariladi.

Dasturchi Exit For construction yordamida tsikldan erta chiqishni tashkil qilishi mumkin. Bunday holda, tsikldan avtomatik chiqish sodir bo'ladi va boshqarish tsikldan keyingi buyruqqa o'tkaziladi.

"Depozitdan olingan daromad" loyihasi

Depozit bo'yicha daromadlarni hisoblaydigan, oddiy va murakkab foizlarni hisoblashni ta'minlaydigan loyihani yozing. Oddiy foizlar depozit muddati tugagandan so'ng, murakkab foizlar har oyda olinadi va depozitning dastlabki summasiga qo'shiladi va keyingi oy yangi summa bo'yicha foizlar olinadi. Tavsiya etilgan shakl rasmda ko'rsatilgan.

Amalga oshirish texnologiyasi

Ushbu dars sizga kodni belgilangan tartibda takrorlash uchun For ... Next tsiklidan qanday foydalanishni ko'rsatdi.

Loop - bu algoritmik tuzilish, uning yordamida bayonotlar blokini ko'p marta takrorlash amalga oshiriladi.

Qarama qarshi operator (For ... Keyingi)

For ... Next buyrug'i ko'rsatmalar to'plamini (operatorlarni) belgilangan tartibda davriy ravishda bajarishga imkon beradi. Sintaksis ko'rsatmasi:

Uchun hisoblagich \u003d start_valueKimga oxiri_ qiymati

[ko'rsatmalar]

[ko'rsatmalar]

Keyingi [ hisoblagich]

Parametr hisoblagich O'z qiymatini avtomatik ravishda o'zgartiradigan raqamli o'zgaruvchidir qadam tsiklning har bir takrorlanishidan keyin. Tsikl qadar bajariladi hisoblagich£ oxiri_ qiymatiijobiy parametr qiymati bilan qadam yoki qadar hisoblagich³ oxiri_ qiymatisalbiy parametr qiymati bilan qadam... Shunday qilib, agar ijobiy qadam qiymati bo'lsa, pastadir bir marta ham bajarilmaydi start_value Bundan ko'proq oxiri_ qiymati... Agar qadam bo'lsa qadam chiqarib tashlanadi, keyin sukut bo'yicha hisoblagich o'zgaruvchisi 1 ga teng qilib o'rnatiladi.

Exit For operatori tsiklning bajarilishini muddatidan oldin tugatadi va boshqaruvni tsikldagi bayonotdan keyin bayonotga o'tkazadi. Exit For odatda shartli bayonotga joylashtiriladi, masalan:

Agar holat Keyin For uchun chiqing

Eslatma. For iborasi sintaksisiga ko'ra parametr hisoblagich - har qanday turdagi arifmetik o'zgaruvchi, hanuzgacha o'zgaruvchining butun sonli turidan foydalanganda yaxshiroq, chunki haqiqiy turdagi o'zgaruvchining qiymatining qismli qismida xato bo'ladi. Bu raqamlarni kompyuterda saqlash usuli bilan bog'liq.

1-misol

Birinchisining yig'indisini toping 10 tabiiy sonlar: S \u003d 1 + 2 + 3 + ...+ 10 ... Dastur fragmenti:

Dim I butun son kabi, S butun son sifatida

S \u003d 0 " S o'zgaruvchining qiymatini nolga tenglashtirish

I \u003d 1 dan 10 gacha " Tsiklning boshlanishi. Boshlanish va tugatish qiymatlarini o'rnatish
"loop parametri. Odatiy tsikl bosqichi 1 ga teng.

S \u003d S + i " Topshiriq operatori har birida bajariladi
"ko'chadan bajarish, ushbu misolda 10 marta

Keyingi men " Tsikl tugashi. Loop parametrining qiymati ortadi.

Ushbu dastur fragmentida tsikl to'liq 10 marta bajariladi.

2-misol

Ish varag'ining 1-ustunida (2-qatordan boshlab) x ning qiymatlari 0 dan 3,2 gacha bo'lgan oraliqda 0,4 ga ko'paytiriladi.

Ommaviy pastki yorliq ()

Dim x As Single, i Integer

X \u003d 0 dan 3.2 gacha 0.4 qadam

Interval uzunligi 0,4 pog'onaga aniq bo'linishiga qaramay, ish varag'idagi natija quyidagicha ko'rinadi:

Nima qilish kerak?

1. Siz yakuniy qiymatni biroz oshirishingiz mumkin, ushbu misolda 3.2 o'rniga 3.201 yozing.

2. Chikleni takrorlash sonini aniqlang va butun sonli hisoblagichga tsikl yozing.

Bunday holda, dastur quyidagi shaklga ega bo'ladi:

Ommaviy pastki tab 1 ()

Dim x As Single, i Integer, n Integer

n \u003d CInt ((3.2 - 0) / 0.4)

I \u003d 0 dan ngacha 1-qadam

Hujayralar (i + 2, 1) \u003d x

Har bir ... Keyingi ko'chadan bayonot uchun

For For… Next sikli qator yoki oiladagi har bir element uchun bir qator bayonotlar bajarilishini takrorlashga imkon beradi. Ushbu yo'riqnomada quyidagi sintaksis mavjud:

Har biriga elementYilda guruh

[ko'rsatmalar]

[ko'rsatmalar]

Keyingi [ element]

Parametr elementOilaning yoki massivning elementini ifodalovchi o'zgaruvchidir. Dalil guruh - massiv yoki oila nomi. Ko'rsatmalar har bir guruh a'zosi uchun faqat bir marta bajariladi. Yo'riqnomadan foydalanish qulay, chunki massivda yoki oilada qancha element borligini oldindan bilishingiz shart emas. O'zgaruvchan element turi Variant bo'lishi kerak.

1-misol

Tanlangan diapazonning barcha elementlarining o'rtacha arifmetikasini toping

Jamoat funktsiyalari o'rtacha (oraliq oralig'i) ikki baravar

Dim Element Variant sifatida

Dim Sum As Double

Butun son sifatida xira raqam

Miqdor \u003d 0

Har bir mahsulot uchun oraliqda

Sum \u003d Sum + Element

Miqdor \u003d Miqdor + 1

Keyingi element

O'rtacha \u003d Miqdor / miqdor

Ilova. Qo'shni katakchalarning tanlangan diapazonida raqamlar bo'lishi kerak. Bo'sh katakchalardagi raqamlar 0 deb hisoblanadi. Yacheykadagi matn xatolikka olib keladi.

Yuqoridagi If ... End If, Select ... Case, For ... Next, for Every… Next buyruqlar buyruqlarning bajarilish tartibini o'zgartiradigan boshqaruv operatorlari guruhidir. Boshqarish ko'rsatmalari har qanday tartibda bir-biriga joylashtirilishi mumkin.