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

Selection.TypeParagraph – abzas hosil qilish;
Selection.TypeText Text:=" " – matn yozish;
Selection.Font.Size = n – shirift o‘lchami, n tanlangan o‘lcham;
Selection.ParagraphFormat.Alignment=wdAlignParagraphCenter oynada matn joylashuvi;
Selection.Font.Italic = wdToggle – matn ko‘rinishi, yani kursiv holat;
Selection.Font.Bold = wdToggle – matn ko‘rinishi, yani qo‘yiq holat;
Selection.Font.Underline = wdUnderlineNone – matn ko‘rinishi, yani tagiga chizilgan holat;
1. y=ax2+bc ifodaniu hisoblash dasturini tuzing;
Buning uchun biz yuqorida aytib o‘tgan InputBox va MsgBox funksiyalaridan foydalanamiz.
Sub ddm()
a = InputBox("a ni kiriting", "Mening makrosdagi dasturim")
x = InputBox("x ni kiriting", "Mening makrosdagi dasturim")
b = InputBox("b ni kiriting", "Mening makrosdagi dasturim")
c = InputBox("c ni kiriting", "Mening makrosdagi dasturim")
y = a * x ^ 2 + b * c
MsgBox "y ning qiymati = " & y, vbOKCancel, "Bu dasturni men tuzdim"
End Sub
Bu ifodalarni ddm makrosiga kiritilib, klaviaturadan F5 tugmasi bosilsa dasturaga qiymat kiritishni talab qilivchi dialog oyna ochiladi.

Kerakli qiymat kiritilib OK tugmasi bosiladi va huddi shu usulda qolgan o‘zgaruvchilarga ham qiymat kiritilib OK tugmasi bosilsa, macros bajarilib y ning qiymatini ko‘rsatuvchi dialog oyna hosil qiladi.

2. ifodaniu hisoblash dasturini tuzing;
Bu misolda ham yuqoridagi kabi InputBox va MsgBox funksiyalaridan foydalanamiz.
Sub abc()
x = InputBox("x ni kiriting", "Mening makrosdagi dasturim")
if x>1 then s=x^(1/2) else s=x^2
MsgBox "S ning qiymati = " & s, vbOKCancel, "Bu dasturni men tuzdim"
End Sub
3. a(10) jadval elementlari ichidan eng kattasini topish dasturini tuzing;
Sub abc()
Dim a(10)
For i = 1 To 10
a(i) = InputBox("A(" & i & ") ni kiriting", "Mening makrosdagi dasturim")
Next i
Max = a(1)
For i = 2 To 10
If Max < a(i) Then Max = a(i)
Next i
MsgBox "Eng katta son = " & Max, vbOKCancel, "Bu dasturni men tuzdim"
End Sub

4. Yangi hujjat yaratuvchi macros yarating;

Public tt As Integer


Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
UserForm1.tt = 1
ElseIf OptionButton2.Value = True Then
UserForm1.tt = 2
Else
UserForm1.tt = 0
End If
Me.Hide
End Sub


Private Sub CommandButton2_Click()
Me.Hide
End Sub


Sub DocStart()
UserForm1.tt = 0 ‘NewMacros
UserForm1.Show
Select Case UserForm1.tt
Case 1
Documents.Add "C:\Documents and Settings\Admin\Application Data\Microsoft\Шаблоны\Normal.dot"
Case 2
Documents.Add Template:="C:\Program Files\Microsoft Office\Templates\1049\FAX\standard fax.dot"
End Select
End Sub