Dasturlarning misollari Vba. Vba dasturlash asoslari va Microsoft Office ilovasida makrolarni yaratish

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. 

VBA nima? 

Excelda dasturlash dasturni Visual Basic for Application dasturlash tili orqali amalga 
oshiriladi, u dastlab Microsoftning eng mashhur stol protsessoriga o'rnatiladi. 

Mutaxassislar uning mahsuldorligini nisbatan rivojlanish qulayligini hisoblashadi. 
Amaliyot shuni ko'rsatadiki, professional dasturlash qobiliyatiga ega bo'lmagan 
foydalanuvchilar ham VBA asoslarini o'rganishlari mumkin. VBA ning xususiyatlari ofis 
ilovalari muhitida skriptni ijro etishni o'z ichiga oladi. 

Dasturning kamchiliklari turli versiyalarning muvofiqligi bilan bog'liq muammolar. Ular 
VBA dasturining kodi eski versiyada emas, balki mahsulotning yangi versiyasida mavjud 
funktsionallikni nazarda tutadi. Bundan tashqari, kamchiliklar orasida chet ellik 
tomonidan o'zgartirilishi kerak bo'lgan kodning haddan tashqari ochiqligi ham mavjud. 
Ammo, Microsoft Office va IBM Lotus Symphony foydalanuvchisi dastlabki kodning 
shifrlanishidan foydalanishga ruxsat beradi va uni ko'rish uchun parolni o'rnatadi. 
Ob'ektlar, to'plamlar, xususiyatlar va usullar
VBA muhitida ishlaydiganlar tushunishi kerak bo'lgan ushbu tushunchalar bilan. Birinchidan, siz 
ob'ektning nima ekanligini tushunishingiz kerak. Excelda bu varaq, ishchi daftar, hujayra va 
intervalli. Bu ob'ektlar maxsus ierarxiyaga ega, ya'ni. bir-biringizga bo'ysuning. 

---

Asosiy narsa - bu Excelga mos keluvchi dastur. Keyin ish kitoblarini, ish varag'i va shuningdek, 
oralig'ini bajaring. Misol uchun, A1 uyasiga ma'lum bir varaqqa kirish uchun, ierarxikani 
hisobga olgan holda, yo'lni ko'rsatish kerak. 
"To'plam" kontseptsiyasiga kelsak, bu yozuvda ChartObjects shaklida bo'lgan bir xil sinf 
ob'ektlari. Uning alohida elementlari ham ob'ektlar. 
Keyingi kontseptsiya - bu xususiyatlar. Ular har qanday narsaning zarur xususiyatlariga ega. 
Masalan, oralig'i uchun qiymat yoki formulalar. 
Usullari nima qilish kerakligini ko'rsatadigan buyruqlardir. VBA-ga kod yozishda ular ob'ektdan 
nuqta bilan ajratilishi kerak. Misol uchun, Excelda dasturlash paytida ko'pincha ko'rsatilgandek, 
hujayralar (1,1) buyrug'i ishlatiladi. Bu koordinatali xujayralarni tanlashingiz kerak. 
Shu bilan birga Selection.ClearContents tez-tez ishlatiladi. Uning bajarilishi tanlangan 
hujayraning tarkibini tozalashni anglatadi. 
Qanday boshlash kerak
Keyinchalik "Alt" va "F11" tugmalar birikmasini ishlatish uchun VB ilovasiga o'tishingiz kerak. 
Keyingi: 

deraza ustidagi menyu satrida Excel belgisi yonidagi belgini bosing; 

mudule buyrug'ini tanlang; 

tasvir bilan birga belgini bosish orqali saqlash; 

kodni eskizga yozib qo'ying. 
Bu quyidagicha ko'rinadi: 

---