4 . Отчёт о проделанной работе

Процедуры заданий 1,2.

Лабораторная работа 10 Создание макросов построения диаграмм

1. Цель работы

Изучение основ построения диаграмм с использованием редактора макросов.

2. Основные теоретические положения

При построении диаграмм с помощью макросов редактор макросов (макрорекодер) запоминает адрес диапазона, где расположены исходные данные диаграмм. Поэтому для изменения места расположения исходных данных следует ввести соответствующие изменения в код макроса.

3. Порядок выполнения работы

Задания

Задание 1. Создать макрос для построения круговой диаграммы.

Задание 2. Ввести в макрос изменение для построения диаграммы любой выделенной области.

3.1. Выполнение задания 1

3.1.1. Создайте таблицу данных согласно образцу (табл.11).

3.1.2. Выделите диапазон ячеек А1:В6.

3.1.3. Создайте макрос построения диаграммы:

• Сервис – Макрос – Начать запись;

• Введите имя макроса

«КруговаяДиаграмма», Ок;

Разместите ее на том же листе (рис. 22);

Таблица 11

• 	А	В
  1	ТОВАР	ОБЪЕМ ПРОДАЖ
  2	Яблоки	1250
  3	Груши	795
  4	Апельсины	1400
  5	Лимоны	1000
  6	Персики	1500

  Остановите запись макроса.

3.1.4. Выделите диапазон ячеек а5:в6 и запустите макрос:

• Сервис – Макрос – КруговаяДиаграмма – Выполнить.

Убедитесь, что диаграмма не изменилась. Посмотрите на текст макроса (сервис – макрос – изменить), убедитесь, что адрес записан как А1:В6.

Sub КруговаяДиаграмма( )

‘Круговая диаграмма макрос

Charts.Add

ActiveChart.ChartTape = xlPie

ActiveChart.SetSourceData Source:=Sheets(“Лист1”).Range(“A1:B6”), PlotBy: XlColumns

ActiveChart.Location

Where:=xlLocationAsObject, Name:= “Лист1”

With ActiveChart

.HasTitle = True

.CartTitle.Characters.Text = “ОБЪЕМ ПРОДАЖ”

End With

End Sub

Первоначальная диаграмма

Рис. 22

3.2. Выполнение задания 2

3.2.1. Чтобы получить возможность построения диаграммы для любой выделенной области, введите в текст макроса изменения:

а) в начале макроса введите описание переменной, где будет храниться область выделения

Dim x As Range

Set x = Selection

б) в части программы, где указывается адрес диапазона, вместо оператора

ActiveChart.SetSourceData Source:= Sheets(“Лист1”).Range(“A1:B6”)

введите оператор

ActiveChart.SetSourceData Source:= х

Программа приобретает вид:

Sub КруговаяДиаграммаИсправленная( )

‘Описание переменной для хранения выделенной области

Dim x As Range

Set x = Selection

Charts.Add

ActiveChart.ChartTape = xlPie

ActiveChart.SetSourceData Source:= х, PlotBy:XlColumns

ActiveChart.Location Where:=xlLocationAsObject, Name:= “Лист1”

With ActiveChart

.HasTitle = True

.CartTitle.Characters.Text = “ОБЪЕМ ПРОДАЖ”

End With

End Sub

3.2.2. Вновь выделите диапазон ячеек А5:В6 и запустить макрос. Убедитесь, что теперь макрос работает правильно (рис. 23).