4.2. Общий вид формы “Параметры диаграммы”
Рисунок 4.5 – Макет пользовательской формы
4.2.1. Элементы управления формы
В данной форме мы использовали следующие элементы управления пользовательской формы: Label, CommandButton , TextBox, Optionbutton, Frame, Checkbox.
Label (надпись) используется для отображения надписей, например, заголовков элементов управления.
TextBox (поле) используется для ввода текста пользователем.
CommandButton (кнопка) используется для запуска программы построения диаграммы.
Frame используется в качестве контейнера для группирования элементов управления.
Checkbox используется для выбора элементов, необходимых для построения диаграммы.
OptionButton (переключатель) позволяет выбрать один из нескольких заимоисключающих параметров. Переключатели обычно отображаются группами, обеспечивая возможность выбора альтернативного варианта.
4.2.2. Листинги программ и скриншоты выполнения формы
Private Sub CommandButton1_Click() кнопка для создания диаграмм
Const a = "I29:J29", b = "I30:J30", c = "I31:J31", d = "I32:J32", e = "I33:J33", f = "I34:J34"
присваивание константам названия и значения итогов
Dim rez As String блок удаления существующих диаграмм
If Charts.Count <> 0 Then
Charts.Delete
End If
rez = Empty изначально переменную rez задаём как пустую
If CheckBox1.Value = True Then если 1 флажок активен к rez прибавляем константу a
rez = rez + a
If CheckBox2.Value = True Then если 2 флажок активен, тогда:
If rez <> Empty Then если rez уже имеет какое-то значение, то после этого
rez = rez + "," + b значения ставим «,» и прибавляем b
Else
rez = rez + b
End If
End If
If CheckBox3.Value = True Then если 3 флажок активен, тогда:
If rez <> Empty Then если rez уже имеет какое-то значение, то после этого
rez = rez + "," + c значения ставим «,» и прибавляем c
Else в другом случае к rez прибавляем c
rez = rez + c
End If
If CheckBox4.Value = True Then если 4 флажок активен, тогда
If rez <> Empty Then если rez уже имеет какое-то значение, то после этого
rez = rez + "," + d значения ставим «,» и прибавляем d
Else в другом случае к rez прибавляем d
rez = rez + d
End If
End If
If CheckBox5.Value = True Then если 5 флажок активен, тогда
If rez <> Empty Then если rez уже имеет какое-то значение, то после этого
rez = rez + "," + e значения ставим «,» и прибавляем e
Else в другом случае к rez прибавляем e
rez = rez + e
End If
End If
If CheckBox6.Value = True Then если 6 флажок активен, тогда:
If rez <> Empty Then если rez уже имеет какое-то значение, то после этого
rez = rez + "," + f значения ставим «,» и прибавляем f
Else в другом случае к rez прибавляем f
rez = rez + f
End If
End If
'проверка
If rez = Empty Then если же мы не выбрали никакого флажка, т.е rez будет
MsgBox "выбери данные" пустой, то тогда появится окно предупреждения
Exit Sub
End If
Рисунок 4.6 – Пример работы «Выбора данных»
If OptionButton1.Value = True Then если 1 переключатель активен, то добавляем диаграмму
Charts.Add
ActiveChart.ChartType = xlLineMarkers задаём тип диаграммы,
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range(rez), _ построение диаграммы с листа «Смета», данными которой является область rez
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet вывод диаграммы на новый лист
With ActiveChart
.HasTitle = True команда для включения заголовка диаграммы
.ChartTitle.Characters.Text = TextBox1.Text присваивание заголовку диаграммы
значения текстового поля 1 формы
.Axes(xlCategory, xlPrimary).HasTitle = False подписи по осям отключены
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End If
If OptionButton2.Value = True Then если 2 переключатель активен, то добавляем диаграмму
Charts.Add
ActiveChart.ChartType = xlColumnClustered задаём тип диаграммы
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range(rez), _ построение диаграммы с листа «Смета»,
данными которой является область rez
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet вывод диаграммы на новый лист
With ActiveChart
.HasTitle = True команда для включения заголовка диаграммы
.ChartTitle.Characters.Text = TextBox1.Text присваивание заголовку диаграммы
значения текстового поля 1 формы
.Axes(xlCategory, xlPrimary).HasTitle = False подписи по осям отключены
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End If
If OptionButton3.Value = True Then если 3 переключатель активен, то добавляем диаграмму
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered задаём тип диаграммы
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range(rez), _ построение диаграммы с листа «Смета»,
данными которой является область rez
PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet вывод диаграммы на новый лист
With ActiveChart
.HasTitle = True команда для включения заголовка диаграммы .ChartTitle.Characters.Text = TextBox1.Text присваивание заголовку диаграммы
значения текстового поля 1 формы
End With
End If
End If
End Sub