3.4.3.Результаты работы формы
Рисунок 4. Вид формы при инициализации
Рисунок 5. Окно подтверждения при нажатии кнопки «Внести изменения на смету»
Рисунок 6. Окно подтверждения изменений
Рисунок 7. Вид формы при расчете итогов
3.5.Общий вид формы 2 “Параметры диаграммы”
3.5.1.Описание элементов управления, представленных на форме, их назначение и уникальные имена, используемые в процедурах
― рамка, позволяющая группировать
объекты по назначению; в ней осуществляется
выбор
данных которые будут отображены при
построении диаграммы.
Имена переключателей –
CheckBox1-6
– Переключатели
Имена переключателей-OptionButton1-3
– Поле для ввода названия диаграммы.
Имя поля – TextBox1
–
кнопка по нажатию, на которую строится
выбранная диаграмма.
Имя кнопки - CommandButton1
3.5.2. Листинг процедур формы «Параметры диаграммы»
Код программы:
Option Explicit
Dim diapozon As String
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
t1.Enabled = False
Else
t1.Enabled = True
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = False Then
t2.Enabled = False
Else
t2.Enabled = True
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = False Then
t3.Enabled = False
Else
t3.Enabled = True
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox4.Value = False Then
t4.Enabled = False
Else
t4.Enabled = True
End If
End Sub
Private Sub CheckBox5_Click()
If CheckBox5.Value = False Then
t5.Enabled = False
Else
t5.Enabled = True
End If
End Sub
Private Sub CheckBox6_Click()
If CheckBox6.Value = False Then
t6.Enabled = False
Else
t6.Enabled = True
End If
End Sub
Sub Diagramma_1()
Range("G27:H28").Select
Charts.Add
ActiveChart.ChartType = xl3DBarClustered
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range(diapozon), PlotBy _
:=xlRows
ActiveChart.SeriesCollection(1).XValues = "={"" ""}"
ActiveChart.SeriesCollection(2).XValues = "={"" ""}"
ActiveChart.SeriesCollection(3).XValues = "={"" ""}"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = TextBox1.Value
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
End Sub
Sub Diagramma_2()
Range("G27:H28").Select
Charts.Add
ActiveChart.ChartType = xlPyramidColClustered
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range(diapozon), PlotBy _
:=xlRows
ActiveChart.SeriesCollection(1).XValues = "={"" ""}"
ActiveChart.SeriesCollection(2).XValues = "={"" ""}"
ActiveChart.SeriesCollection(3).XValues = "={"" ""}"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = TextBox1.Value
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
End Sub
Sub Diagramma_3()
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:=
"ЧБ гистограмма"
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range(diapozon), PlotBy _
:=xlRows
ActiveChart.SeriesCollection(1).XValues = "={"" ""}"
ActiveChart.SeriesCollection(2).XValues = "={"" ""}"
ActiveChart.SeriesCollection(3).XValues = "={"" ""}"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = TextBox1.Value
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
End Sub
Private Sub CommandButton1_Click()
diapozon = ""
If CheckBox1.Value = True Then diapozon = diapozon & ",G27:H27"
If CheckBox2.Value = True Then diapozon = diapozon & ",G28:H28"
If CheckBox3.Value = True Then diapozon = diapozon & ",G29:H29"
If CheckBox4.Value = True Then diapozon = diapozon & ",G30:H30"
If CheckBox5.Value = True Then diapozon = diapozon & ",G31:H31"
If CheckBox6.Value = True Then diapozon = diapozon & ",G33:H33"
diapozon = Mid(diapozon, 2)
If OptionButton1.Value = True Then Diagramma_1
If OptionButton2.Value = True Then Diagramma_2
If OptionButton3.Value = True Then Diagramma_3
UserForm2.Hide
End Sub
Private Sub UserForm_Initialize()
OptionButton1.Value = True
CheckBox1.Value = True
CheckBox2.Value = True
CheckBox3.Value = True
CheckBox4.Value = True
CheckBox5.Value = True
CheckBox6.Value = True
TextBox1.Text = "Диаграмма"
End Sub