Модуль листа «Графика»:
'Обработка выбора элемента из списка реакций листа Графика'
Private Sub ListBox1_Click()
Dim i, n1, n2, str, column As Integer
n1 = ListBox1.ListIndex
Worksheets("Графика").Activate ' сделать активным вкладку Графика
If OptionButton1.Value = True Then str = 33
If OptionButton2.Value = True Then str = 34
If OptionButton3.Value = True Then str = 35
Cells(14, 1) = Cells(32, str - 31)
Cells(14, 4) = Cells(32, n1 + 5)
Cells(15, 4) = Cells(str, n1 + 5)
Cells(3, 8) = Cells(32, str - 31)
Cells(4, 8) = 0
Cells(3, 9) = Cells(32, n1 + 5)
Cells(4, 9) = Cells(str, n1 + 5)
ChartObjects(2).Chart.HasTitle = True
'Сформировать заголовок диаграммы'
ChartObjects(2).Chart.ChartTitle.Text = "Зависимость реакции " + ListBox1.Text + " от " + Cells(31, str - 31).Text
ChartObjects(2).Chart.SeriesCollection(1).Name = ListBox1.Text
ChartObjects(2).Chart.Axes(xlCategory).HasTitle = True
Cells(2, 9) = ListBox1.Text
'Сформировать подпись оси X'
ChartObjects(2).Chart.Axes(xlCategory).AxisTitle.Text = Cells(31, str - 31).Text
ChartObjects(2).Chart.Axes(xlValue).HasTitle = True
Cells(2, 8) = Cells(31, str - 31).Text
'Сформировать подпись оси Y'
ChartObjects(2).Chart.Axes(xlValue).AxisTitle.Text = ListBox1.Text
End Sub
'Процедура обработки переключателя листа графика'
'Если активный переключатель изменился необходимо построить новую диаграмму'
Private Sub OptionButton1_Click()
Call ListBox1_Click
End Sub
'Процедура обработки переключателя листа графика'
'Если активный переключатель изменился необходимо построить новую диаграмму'
Private Sub OptionButton2_Click()
Call ListBox1_Click
End Sub
'Процедура обработки переключателя листа графика'
'Если активный переключатель изменился необходимо построить новую диаграмму'
Private Sub OptionButton3_Click()
Call ListBox1_Click
End Sub
ПРИЛОЖЕНИЕ 3
Результат
Рисунок 1 - Заставка
Распечатки рабочих листов Excel:
Рисунок 2 - Конструкция
Рисунок
3- Рама
Рисунок 3.1- Рама(Формулы)
Рисунок 4 – Стержень
Рисунок 4.1 – Стержень(Формулы)
Рисунок 5 – Решение
Рисунок 5.1 – Решение(Формулы)
Рисунок 5.2 – Решение (Формулы)
Рисунок 5.3 – Решение (Формулы)
Рисунок 5.4 – Решение (Формулы)
Рисунок 5.5 – Решение (Формулы)
Рисунок 6 - Графика
Рисунок 6.1 – Графика (Формулы)
Распечатки вкладок пользовательской формы:
Рисунок 7 - Вкладка "Паспорт программы"
Рисунок 8 - Вкладка "Исходные данные"
Рисунок 9 - Вкладка "Расчёт реакций"
Рисунок 10 - Вкладка "Контроль решения"
Рисунок 11 - Вкладка "Графика"
Изм.
Лист
Лист
№ докум.
Подп.
Дата
