Mavzu: Formalar va boshqaruv obyektlari

Ko'chadan - Bu yo'riqnomani takrorlash jarayoni. Ehtimol, tsiklni necha marta 
takrorlash kerakligini oldindan bilasizmi yoki bu qiymat dasturdagi o'zgaruvchilar 
tomonidan aniqlanadi. Yaxshi davrning eng oddiy misoli For-Next hisoblanadi: 
Uchun taymer = boshlanishi Thats oxir
[ko'rsatmalar] 
[ko'rsatmalar] 
Keyingi [ taymer] 
Quyidagi koida birinchi 100 tamsaytlarning kvadrat ildizlarini jamlaydi: 
Sub SumSquareRoots ()
Dim sum yig'indisi sifatida
Tamsam sifatida cheklash
Sum = 0
Count uchun = 1 dan 100gacha
Sum = Sum + Sqr (son)
Keyingi hisoblash
Msgbox sum
End sub 
For-Next loopidagi qadam o'zgaruvchining qiymati salbiy bo'lishi mumkin. 
Quyidagi koida faol varaqdagi 2, 4, 6, 8 va 10-satrlarni o'chiradi: 
Pastki DeleteRows ()
Uzunroq bo'yinbog'
RowNum uchun = 10 dan 2-qadam
Satrlar (RowNum)
Keyingi RowNum
End sub 
For-Next loops-da, bir yoki bir nechta Exit For iboralar bo'lishi mumkin. Dastur 
ushbu iborani uchratganda, u darhol pastadir: 
Sub ExitForDemo ()
Dim MaxVal ikki barobar
Kichkinagina satr

---

MaxVal = Application.WorksheetFunction.Max (oralig'i ("A: A"))
Roy uchun = 1dan 1048576gacha
Hujayralar (satr, 1) .Value = MaxVal So'ngra
Chiqing
Agar tugatilsin
Keyingi qator
MsgBox "qatordagi maksimal qiymat" va satr
Hujayralar (satr, 1) .Aktivatsiya
End sub 
Ustundagi maksimal qiymat Excel MAX funktsiyasidan foydalangan holda 
hisoblab chiqiladi. Ushbu qiymat keyinchalik MaxVal o'zgaruvchiga beriladi. For-
Next loop, bir ustundagi har bir xonani tekshiradi. Belgilangan hujayra MaxValga 
teng bo'lsa, Chiqish uchun ko'rsatma amaliyotni yakunlaydi. Biroq, loopdan 
chiqishdan oldin, protsedura foydalanuvchini istalgan hujayraning joylashuvi 
to'g'risida xabardor qiladi va uni faollashtiradi. 
Do While döngüsü belgilangan shartlar bajarilgan ekan, bajariladi. Do While 
döngüsü quyidagi ikki sintaksisdan biriga ega bo'lishi mumkin. 
Do
[ko'rsatmalar] 
[ko'rsatmalar] 
O'chirish 
Do
[ko'rsatmalar] 
[ko'rsatmalar] 
O'chirish 
EnterDates1 protsedurasi joriy oyning sanalari faol katakdan boshlab ish 
sahifasining ustuniga kiradi: 
Sub EnterDatesl ()
"Do loop bo'lsa, holat boshida tekshiriladi
Vaqtni sanash
TheDate = SanaSerial (Yil (Sana), Oy (Sana), 1)
Oy (DoDe) = Oy (Sana)
ActiveCell = TheDate
TheDate = TheDate + 1
ActiveCell.Offset (1, 0) .Aktivatsiya
O'chirish
End sub 
Ushbu protsedura, ish sahifasida saqlangan sanalarni saqlaydigan TheDate 
o'zgaruvchisini ishlatadi. O'zgaruvchini ishga tushirish uchun joriy oyning birinchi 

---

kuni ishlatiladi. Döngü davomida, TheDate o'zgaruvchining qiymati faol hujayra 
ichiga kiritildi, keyin bu qiymat bir marta oshirildi, undan keyin keyingi hujayra 
ishga tushirildi. Loop joriy oyning oy qiymatiga mos keladigan TheDate-ga 
belgilangan oy qiymatiga qadar ishlaydi. 
While loops da bir yoki bir necha Exit Do so'zlarini o'z ichiga olishi mumkin. 
Chiqish bayonnomasi bajarilganda, tsikl tugaydi va nazorat loop iborasini keyin 
bayonotga o'tkaziladi. 
"Do Do" loop tuzilmasi "Do Doing" bilan keng tarqalgan. Faqat farq loop holatini 
tekshirishda. "Do Do" variantida "loops" sharti bajarilguncha bajariladi. Do 
tsikliga qadar Do tsiklida, tsikl shart bajarilguncha bajariladi. Tuzilishgacha ikkita 
turli xil sintaksis ko'rinishi mumkin. 
Kitobga asoslanib. - M: Dialektika, 2013. - S. 211-251. 
Ko'pchilik mashhur Microsoft Excel mahsulotining birinchi versiyasini 1985 
yilda paydo bo'lganligini biladi. O'shandan beri u bir nechta modifikatsiyani 
boshdan kechirgan va butun dunyodagi millionlab foydalanuvchilar tomonidan 
da'vo qilingan. Shu bilan birga, ko'pgina odamlar ushbu jadval protsessorining 
imkoniyatlarini kam miqdorda ishlashadi va hatto Excel dasturlarining mahorati 
ularning hayotlarini qanday osonlashtirishi mumkinligini taxmin qilmaydi.