Создать макросы для построения сводных таблиц. Назначить их элементу управления Список

Создание макроса для перехода с листа на лист. Назначение его командной кнопке

1.1 Откройте рабочую книгу Корреспонденция.

 

1.2 Добавьте в рабочую книгу лист Сводная_Таблица.

 

1.3 Создайте макрос для перехода с листа Отправленная_кор на лист Сводная_Таблица.

 

· Для этого, находясь на листе Отправленная_кор, выберите команду Разработчик – Запись макроса. Появится диалоговое окно Запись макроса. В поле Имя макроса введите имя макроса К_листу_сводная.

· Выполните действия для перехода на лист Сводная_таблица. Для этого щелкните по ярлыку листа Сводная_таблица.

· Выполните команду Разработчик – Остановить запись.

 

1.4 Выполните команду Разработчик – Вставить – Элемент управления формы.

 

1.5 Щелкните на инструменте Кнопка. Нарисуйте кнопку в столбце А листа Отправленная_кор. Назначьте ей макрос К_листу_сводная. Измените надпись на кнопке.

 

1.6 Самостоятельно создайте макрос для перехода с листа Сводная_таблица на лист Отправленная_кор. Назначьте его кнопке на листе Сводная_таблица. Кнопку расположите в столбце А .

 

Создать макросы для построения сводных таблиц. Назначить их элементу управления Список

 

2.1 Для таблицы на рабочем листе Отправленная_кор необходимо:

· составить ежедневный отчет о весе посылок для каждого направления, используя сводную таблицу;

· сводную таблицу расположить на листе Сводная_таблица;

· создать макрос Вес_корр.

 

2.2 Для создания макроса, выполните следующие действия:

· Перейдите на лист Сводная_таблица.

· Выберите команду Разработчик – Запись макроса. Появится диалоговое окно Запись макроса.

· В поле Имя макроса введите имя макроса Вес_корр. Поле Сочетание клавиш: оставим пустым. Сохраним новый макрос в этой книге. Введите необходимый текст в поле Описание.

 

· Выполните действия по созданию сводной таблицы:

 

А) Перейдите на лист Отправленная_кор.

Б) Выделите ячейку внутри таблицы Отправленная корреспонденция.

С) Выполните команду Вставка / Сводная таблица. Выберите таблицу или диапазон. Укажите, куда следует поместить отчет сводной таблицы. ОК.

 

 

Сформируйте ежедневный отчет о весе посылок для каждого направления.

Д) Выполните команду Разработчик – Остановить запись.

 

2.3 Создайте макрос, который удаляет сводную таблицу любого размера. Для этого:

· Перейдите на лист Сводная_таблица.

· Выберите команду Разработчик – Запись макроса. Появится диалоговое окно Запись макроса.

· В поле Имя макроса введите имя макроса Удалить_св_табл. Поле Сочетание клавиш: оставим пустым. Сохраним новый макрос в этой книге. Введите необходимый текст в поле Описание.

· Выделите максимально большой диапазон для возможного варианта сводной таблицы.

· В контекстном меню выделенного диапазона выберите команду Удалить.

· Разработчик – Остановить запись.

2.4 Самостоятельно для таблицы на рабочем листе Отправленная_кор

· составить отчет о стоимости корреспонденции для каждого направления, используя сводную таблицу;

· сводную таблицу расположить на листе Сводная_таблица;

· создать макрос Стоимость_корр.

2.5 Назначьте макросы Удалить_св_табл, Вес_корр и Стоимость_корр элементу управления «Список», который расположите в столбце А листа Сводная_таблица . Для этого:

· Выполните команду Разработчик – Вставить – Элемент управления формы.Щелкните на инструменте Поле со списком панели инструментов Формы.Расположите Поле со списком в столбце А.

· В ячейках ниже Поля со списком, например, в А7:А9 напишите: В А7 – Вес корреспонденции, в А8 – Стоимость корреспонденции, в А9 – Удаление сводной таблицы.

· Правой кнопкой мыши вызовите контекстное меню элемента управления Список, в котором выберите команду Формат объекта. В открывшемся диалоговом окне перейдите на вкладку Элемент управления.В полеФормировать список по диапазону введите $А$7:$А$9, в поле Связь с ячейкой – $А$4, Количество строк списка – 3.

· Перейдите в редактор Visual Basic (Разработчик / Visual Basic). Расположите макросы Удалить_св_табл, Вес_корр и Стоимость_корр в одном модуле. Для этого, предварительно выделив процедуру, используйте команды контекстного меню Cut и Paste.

· В том же модуле, где находятся процедуры Вес_корр и Стоимость_корр напишите следующую процедуру Сводные_табл:

Public Sub Сводные_табл()

Удалить_св_табл

Select Case Range("A4").Value

Case 1

Вес_корр

Case 2

Стоимость_корр

End Select

End Sub

· Перейдите на лист Сводная_таблица. Вызовите контекстное меню элемента управления Список, в котором выберите команду Назначить макрос.В открывшемся диалоговом окне выбрать Сводные_табл. ОК.

2.6 Необходимо проверить выполнение макросов.