Amaliy dasturlar paketi va ular yordamida turli masalalarni hal etish. Ishning maqsadi

2. Excel dasturida makroslar biln ishlash.
Excel dasturidagi biror hujjatni ochganda, shu hujjat oshilgani uchun tashakkur e’lon qilinganligini akslantiruvchi dialog oyna chiqishini ko‘rib o‘taylik. Buning uchun Excel dasturini ishga tushiring va «Сервис» menyusidan «Макрос»«Редактор Visual Basic» ketma – ketligini bajaring. Bu ketma – ketlik bajarilgach

loyiha oynasiga ega bo‘lamiz. Bu loyiha oynasidan ThisWorkbook starini toping va ustida sichqoncha o‘ng tugmasini bosing. Hosil bo‘lgan qalquvchi menyudan «Программа» bandini tanlang. Tanlangandan so‘ng quyidagi oyna hosil bo‘ladi.

Bu oynadan oynasini oching va Workbook bandini tanlang. Natijada quyidagi oyna hosil bo‘ladi.

Bu oynadan yurgich turgan joyga MsgBox «Hujjatni ochganingiz uchun raxmat», vbOKCancel, «Mening birinchi dasturim» matnini kiriting va makros ishini tamomlang. So‘ngra bu ishchi hujjatni saqlang va ishini yakunlang. Endi bu hujjatni ishga tushiring. Hosil bo‘lgan oynadan «Включить макросы» tugmasini bosing va yaratgan makrosimiz natijasini ko‘ring.

Endi makrosdan foydalanib karra jadvalini hosil qilishni ko‘rib o‘taylik. Buning uchun Excel dasturi «Сервис» menyusidan «Макрос»«Редактор Visual Basic» ketma – ketligini bajaring. Bu ketma – ketlik bajarilgach

loyiha oynasiga ega bo‘lamiz. Bu loyiha oynasida sichqoncha o‘ng tugmasini bosing. Hosil bo‘lgan qalquvchi menyudan «Вставить»«Модуль» ketma – ketligini bajaring. Bu ketma – ketlik bajarilgach quyidagi oyna hosil bo‘ladi.

Bu oynaning yurgich turgan joyiga quyidagi dastur matnini kiriting.
Sub WriteCells()
With ActiveSheet
k = 1
n = 1
For i = 1 To 10
For j = 2 To 10
.Cells(k, n).Value = j
.Cells(k, n + 1).Value = «X»
.Cells(k, n + 2).Value = i
.Cells(k, n + 3).Value = «=»
.Cells(k, n + 4).Value = i * j
n = n + 6
Next
k = k + 1
n = 1
Next
End With
End Sub
Kiritib bo‘lingach, makrosni saqlang va ishini tamomlang. So‘ngra «Сервис»«Макрос»«Макросы…» ketma – ketligini bajaring. Hosil bo‘lgan dialog oynadan «Выполнить» tugmasini bosing. Natijada quyidagi karra jadvalini ko‘rishimiz mumkin.