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

Sub dasturi () 
"Bizning kodimiz 
Shuni yodda tutingki, "Bizning kodimiz" liniyasi turli xil ranglarda (yashil) ta'kidlanadi, sababi 
bu satrning boshida belgilanadigan apostropcha bo'lib, bu sharhning ta'birini bildiradi. 
Keling, har qanday kod yozishingiz va VBA Excel dasturida o'zingiz uchun yangi vosita 
yaratishingiz mumkin (dasturlarning misollariga qarang, quyida). Albatta, Visual Basic asoslari 
bilan tanish bo'lganlar ancha oson bo'ladi. Ammo, agar xohlamagan bo'lsa ham, xohlagancha, 
tezda hal qilishadi. 
Excel makroslari
Bunday nom ortida dastur Visual Basic ilovasida yozilgan dastur hisoblanadi. Shunday qilib, 
Excelda dasturlash - kerakli kodli makrolar yaratish. Ushbu xususiyat yordamida, Microsoft 
elektron jadval protsessor o'ziga xos rivojlanish, muayyan foydalanuvchining talablariga 
moslashadi. Makrolarni yozish uchun modullarni yaratishni qanday hal qilishni o'rganib, siz 
VBA Excel dasturlarining muayyan misollarini ko'rib chiqishingiz mumkin. Eng oddiy 
kodlardan boshlash yaxshidir. 
1-misol 
Vazifa: bitta hujayraning mazmunini nusxa ko'chirish va keyin boshqasiga yozish dasturini 
yozish. 
Buning uchun: 

"Ko'rish" yorlig'ini oching; 

makros belgisiga o'ting; 

"Record Macro" tugmasini bosing; 

ochilgan shakli to'ldiring. 
Oddiylik uchun, "Macro1" "Makro nomi" maydonida qoldiriladi va "Key combination" 
maydoniga hh qo'shiladi, masalan, bu dasturni "Ctrl + h" blits buyrug'i bilan boshlashingiz 
mumkin degan ma'noni anglatadi). Enter ni bosing. 
Keling, so'l yozuvi allaqachon boshlanganligi sababli, ular hujayraning mazmunini boshqasiga 
ko'chiradilar. Asl belgiga qaytdi. "Record Macro" tugmasini bosing. Ushbu operatsiyani bajarish 
dasturning yakunlanishi demakdir. 

"Macros" liniyasiga qayting; 

ro'yxatda "Ibratli 1" tanlangan; 

"Ishga tushirish" tugmasini bosing ("Ctrl + hh" tugmalar birikmasini 
boshlash bilan xuddi shu ish boshlanadi). 
Natijada so'lni yozish jarayonida amalga oshirilgan ish. 

---

Kodning qanday ko'rinishini ko'rish mantiqan. Buni amalga oshirish uchun "Makrolar" qatoriga 
o'ting va "O'zgarish" yoki "Kirish" ni bosing. Natijada, ular VBA muhitida tugaydi. Aslida, so'l 
kodi o'zi Sub Sub Macro1 () va End Fevral qatorlari orasida joylashgan. 
Agar nusxalash amalga oshirilgan bo'lsa, masalan, A1 hujayrasidan C1 hujayrasiga, kod 
satrlaridan biri oralig'i ("C1") kabi ko'rinadi. Tarjima qilingan, "KOffice (" C1 ") kabi ko'rinadi," 
boshqa so'z bilan aytganda, CBA hujayralariga VBA Excelga o'tish. 
Kodning faol qismi ActiveSheet.Paste buyrug'i bilan yakunlanadi. Tanlangan hujayraning 
mazmunini (bu holda A1) tanlangan hujayra C1ga yozishni anglatadi. 
2-misol 
VBA looplari Excelda turli makrolarni yaratishda yordam beradi. 
VBA looplari turli makrolarni yaratishda yordam beradi. Y = x + x 2 + 3x 3 - cos (x) funktsiyasi 
mavjudligini nazarda tuting. Uning dasturini olish uchun so'l yaratishingiz kerak. Bu faqat VBA 
looplari yordamida amalga oshirilishi mumkin. 
Funktsiya mustaqil o'zgaruvchilarining boshlang'ich va oxirgi qiymati x1 = 0 va x2 = 10 ni 
tashkil qiladi. Bundan tashqari, sobit qiymatni kiritishingiz kerak - argumentni va hisoblagich 
uchun dastlabki qiymatni o'zgartirish qadamining qiymati. 
VBA Excel makrosining barcha misollari yuqorida ta'riflangan tartib-qoidadan foydalanib 
yaratiladi. Ushbu alohida holatda kod quyidagicha ko'rinadi: 
Sub dastur () 
shag = 0.1 
X1 vaqtida< x2 (цикл будет выполняться пока верно выражение x1 < x2)  
y = x1 + x1 ^ 2 + 3 * x1 ^ 3 - Cos (x1) 
Hujayralar (i, 1) .Value = x1 (x1 qiymati koordinatalari (i, 1) bilan kameraga yoziladi)