2курс 2сем / 4
.docxГУАП
КАФЕДРА № 41
ОТЧЕТ
ЗАЩИЩЕН С ОЦЕНКОЙ
ПРЕПОДАВАТЕЛЬ
ассистент |
|
|
|
М. С. Иванова |
должность, уч. степень, звание |
|
подпись, дата |
|
инициалы, фамилия |
ОТЧЕТ О ЛАБОРАТОРНОЙ РАБОТЕ №4 |
ПРОГРАММИРОВАНИЕ ДИАГРАММ |
по курсу: ИНФОРМАЦИОННЫЕ СИСТЕМЫ И ТЕХНОЛОГИИ |
|
|
РАБОТУ ВЫПОЛНИЛА
СТУДЕНТКА ГР. |
4716 |
|
|
|
С.А. Янышева |
|
|
|
подпись, дата |
|
инициалы, фамилия |
Санкт-Петербург
2019
Лабораторная работа № 4
ПРОГРАММИРОВАНИЕ ДИАГРАММ
Цель работы: приобретение навыков создания диаграмм программными способами средствами VBA.
Текст индивидуального задания.
Вариант 18
Используемые диалоговые окна.
Рисунок 1 – Диалоговое окно
Программные коды процедур.
Лист1
Private Sub tglChart1_Click() With ActiveSheet.ChartObjects(1) If .Visible Then .Visible = False tglChart1.Caption = "Показать диаграмму" Else .Visible = True tglChart1.Caption = "Спрятать диаграмму" End If End With End Sub |
Private Sub tglChart2_Click() With ActiveSheet.ChartObjects(2) If .Visible Then .Visible = False tglChart2.Caption = "Показать диаграмму" Else .Visible = True tglChart2.Caption = "Спрятать диаграмму" End If End With End Sub |
Private Sub CommandButton1_Click() Dim Область As Range Set Область = Лист1.Range("A1:B18") Charts.Add ' Добавить диаграмму With ActiveChart .ChartType = xlConeCol .SetSourceData Source:=Область, PlotBy:=xlRows .HasTitle = True .ChartTitle.Text = Sheets("Лист1").Range("A1").Value ActiveChart.ChartTitle.Caption = "Цена стрижек" End With End Sub |
Module1
Sub Гистограмма() With Charts.Add .ChartType = xlColumnClustered .SetSourceData Source:=Sheets("Лист1").Range("A1:B18"), _ PlotBy:=xlColumns .Location Where:=xlLocationAsObject, Name:="Лист1" End With End Sub |
Sub Линейная_диаграмма() Charts.Add ' Добавить диаграмму ActiveChart.ChartType = xlBarClustered ActiveChart.SetSourceData _ Source:=Sheets("Лист1").Range("A1:B18"), _ PlotBy:=xlColumns ' Построение графика по столбцам ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1" ActiveChart.HasLegend = True ' Отобразить легенду ActiveChart.Legend.Select Selection.Position = xlRight ActiveChart.SetElement msoElementChartTitleAboveChart ActiveChart.ChartTitle.Caption = "Цена стрижек" End Sub |
Полученные результаты.
Рисунок 2 – Гистограмма и линейная диаграмма
Рисунок 3 – Коническая диаграмма на отдельном листе
Список используемых источников.
Уокенбах Д. Exel 2016. Библия пользователя / Д. Уокенбах. – М.:Вильямс, – 2018. – 1040 с.
Аграновский, А. В. Обработка данных средствами электронных таблиц Microsoft Excel / А.В. Аграновский, Д.М. Ильинская, Е.Л. Турнецкая // Методические указания по выполнению лабораторных работ по курсу «Информационные системы и технологии». – СПб.: ГУАП. – 2016. – 55 с.
Функции Excel [Электронный ресурс]
URL: https://support.office.com/ru-ru/article/Функции-Excel-по-категориям-5f91f4e9-7b42-46d2-9bd1-63f26a86c0eb.