OMMAVIY DASTURLASH TILLARIDA GRAFIKANI DASTURLASH

OMMAVIY DASTURLASH TILLARIDA GRAFIKANI DASTURLASH
“Назначить макрос объекту” (Tugmaga amalni bog'lash) oynasida
“Создать” tugmasini bosamiz va formani ekranga chiqarish buyrug'i
(UserForm1.show) ni yozamiz.

OMMAVIY DASTURLASH TILLARIDA GRAFIKANI DASTURLASH
9-qadam. VBA oynasida formani ekranga chiqaramiz va Chiqish tugmasi
ustiga sichqonchani ikki marta bosamiz.
Formadan chiqish buyrug'ini yozamiz: Userform1.hide

OMMAVIY DASTURLASH TILLARIDA GRAFIKANI DASTURLASH
10-qadam
. VBA oynasida formani ekranga chiqaramiz va “Grafik qurish” tugmasi ustiga
sichqonchani ikki marta bosamiz. Dastur asosiy kodini kiritamiz:
Dim chartSheet As Chart
Dim chartObj As ChartObject
Dim dataRange As Range
Dim ws As Worksheet
Set ws = ActiveSheet
Range("d2").FormulaR1C1 = "a="
Range("d3").FormulaR1C1 = "b="
Range("d4").FormulaR1C1 = "c="
Range("e2").FormulaR1C1 = UserForm1.TextBox1.Value

OMMAVIY DASTURLASH TILLARIDA GRAFIKANI DASTURLASH
Range("e3").FormulaR1C1 = UserForm1.TextBox2.Value
Range("e4").FormulaR1C1 = UserForm1.TextBox3.Value
Set dataRange = ThisWorkbook.Sheets("Лист1").Range("A2:B22")
Set chartObj = ws.ChartObjects.Add(Left:=300, Width:=375, Top:=100,

Download 0,75 Mb.