Результаты работы формы
Рисунок 4. Вид формы при инициализации
Рисунок 5. Окно подтверждения при нажатии кнопки «Внести изменения на смету»
Рисунок 6. Окно подтверждения изменений
Рисунок 7. Вид формы при расчете итогов
3.5.Общий вид формы 2 “Параметры диаграммы”
3.5.1.Описание элементов управления, представленных на форме, их назначение и уникальные имена, используемые в процедурах
― рамка, позволяющая группировать объекты по назначению; в ней осуществляется выбор данных которые будут отображены при построении диаграммы.
Имена переключателей –
CheckBox1-6
– Переключатели
Имена переключателей-OptionButton1-3
– Поле для ввода названия диаграммы. Имя поля – TextBox1
– кнопка по нажатию, на которую строится выбранная диаграмма.
Имя кнопки - CommandButton1
3.5.2. Листинг процедур формы «Параметры диаграммы»
Код программы:
‘Функция объявления переменной строчного типа diapozon для всей формы’
Option Explicit
Dim diapozon As String
‘Прорабатываются нажатия на CheckBox1.. CheckBox6. В случае, если в них не установлены флажки, то рядом соответствующий TextBox “гаснет”’
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
‘Построение диаграммы первого типа (Объемная линейчатая диаграмма). При ее построении передается диапазон исходных данных для построения диаграммы переменной diapozon’
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 = T1.Value
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
End Sub
‘Построение диаграммы второго типа (Пирамидальная диаграмма). При ее построении передается диапазон исходных данных для построения диаграммы переменной diapozon’
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 = T1.Value
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
End Sub
‘Построение диаграммы третьего типа (Черно-белая гистограмма). При ее построении передается диапазон исходных данных для построения диаграммы переменной diapozon’
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 = T1.Value
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
End Sub
‘По нажатию на кнопку построения диаграммы происходит дабавление в переменную diapozon исходных данных для диаграммы в зависимости от выбранных CheckBox/’
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)
‘Далее в зависимости от выбранного вида диаграммы происходит запуск соответствующего Sub’
If OptionButton1.Value = True Then Diagramma_1
If OptionButton2.Value = True Then Diagramma_2
If OptionButton3.Value = True Then Diagramma_3
‘По окончанию создания диаграммы, Userform2 скрывается’
UserForm2.Hide
End Sub
‘Инициализация Userform при которой по умолчанию включаются все флажки CheckBox (Выбираются все данные для построения диаграмм) и заполняется графа названия диаграммы по умолчанию’
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