Построение диаграммы:
При нажатии флажка командой CheckBox.Value = True программа добавит данное значение в последующем построенную диаграмму.В противном случае данное значение на диаграмме отображаться не будет.При нажатии кнопки CommandButton1(Построить диаграмму) осуществляется построение ,при условии того, что изложенные действия выполнены правильно.
Private Sub CommandButton1_Click()
Const a = "I43:J43", d = "I44:J44 ", c = "I45:J45", e = "I46:J46", f = "I47:J47", k = "I48:J48"
rez = Empty
If Charts.Count <> 0 Then Charts.Delete
If CheckBox1.Value = True Then rez = rez & a
If CheckBox2.Value = True Then
If rez <> Empty Then
rez = rez & "," & d
Else
rez = rez & d
End If
End If
If CheckBox3.Value = True Then
If rez <> Empty Then
rez = rez & "," & c
Else
rez = rez & c
End If
End If
If CheckBox4.Value = True Then
If rez <> Empty Then
rez = rez & "," & e
Else
rez = rez & e
End If
End If
If CheckBox5.Value = True Then
If rez <> Empty Then
rez = rez & "," & f
Else
rez = rez & f
End If
End If
If CheckBox6.Value = True Then
If rez <> Empty Then
rez = rez & "," & k
Else
rez = rez & k
End If
End If
'проверка строки
If rez = Empty Then
MsgBox "Выберите данные"
Exit Sub
End If
Выбор типа диаграммы:
Выбор осуществляется при помощи команды OptionButton.Value = True и он единственен, то есть благодаря этой команде одновременно построить две диаграммы невозможно.
If OptionButton1.Value = True Then
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range(rez), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Диаграмма основных затрат по смете"
.Axes(xlCategory).HasTitle = False
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
End If
If OptionButton2.Value = True Then
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range(rez), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Диаграмма основных затрат по смете"
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
End If
If OptionButton3.Value = True Then
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"ЧБ круговая"
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range(rez), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Диаграмма основных затрат по смете"
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
End If
End Sub
3.4.3.Результаты работы формы (заполненная форма)
3.5.Построенные диаграммы (три варианта)
Обьемный вариант гистограммы
Круговая диаграмма
Нестандартная на основе типа 2
Заключение
При выполнении расчётно-графической работы я освоил навыки программирования в среде Visual Basic, научился создавать и рассчитывать сметы в MS Excel,редактировать документы в MS Word с помощью стилей форматирования и специальных макросов. Также освоил такие теоретические вопросы, как “Mathcad.Решение систем уравнений.Поиск максимума и минимума функции” и “VBA: элемент управления TextBox ” . Были рассмотрены основные свойства и методы данного элемента управления.
Необходимость широкого использования математического пакета “Mathcad” нужна для технических вузов , так как рассчитывать громоздкие формулы при помощи калькулятора или других программ весьма проблематично. Также очевиден вклад элементов управления участвующих при создании пользовательской формы , в особенности вклад элемента TextBox, так как этот элемент является практически самым основным при создании формы .
Выполнив данную работу я значительно пополнил свой “словарь терминов” использующихся в нформатике ,а также закрепил знания полученные на лекциях.