Використання макросів в Excel

Хід роботи:

1. Відкрити з персональної папки робочий файл.
2. Перейти на лист “Розрахунок ЗП”.
3. Під таблицею “Розрахункова відомість” вставити гістограму з накопиченням по даним – “До видачі” та всі види утримань із заробітної плати:

- - встановити курсор під таблицею;

- - виконати пункт меню “ВставкаÞДиаграмма...”;

- - у вікні “Мастер диаграмм” вибрати тип – гістограма, вид – гістограма з накопиченням та натиснути “Далее”;

- - перейти на закладу “Ряд”;

- - натиснути кнопку “Добавить” для додання нового ряду даних;

- - для поля “Имя” вказати адресу клітинки, яка містить назву першого ряду – “До видачі” (заголовок стовпчика таблиці);

- - для поля “Значения” вказати діапазон клітинок, в яких розміщено дані по видачі для кожного з співробітників (дані стовпчика “До видачі”);

- - аналогічно додати нові ряди для наступних даних: Прибутковий податок, Пенсійний фонд, Страхування по безробіттю, Соціальне страхування;

- - встановити для поля “Підписи оси Х” посилання на діапазон клітинок, який містить прізвища співробітників;

- - натиснути “Далее”;

- - на наступному кроці вказати назву гістограми – “Структура місячної зарплати співробітників”, підпис осі х – “співробітники”, підпис осі у – “зарплати та податки”, натиснути “Далее”;

- - в наступному вікні вказати місце розташування гістограми – на цьому ж листі, що й таблиця даних (“имеющемся”);

1. Відформатувати створену гістограму, а саме – збільшити її розмір, повернути підписи даних осі Х на 90⁰, для осі У – зняти знаки після коми, розмір шрифту для осей та легенди встановити в значення 10 пунктів, розмістити її безпосередньо після таблиці. Отримана гістограма повинна мати наступний вигляд:

1. Між таблицею даних та гістограмою встановити примусовий розрив сторінки:

- - встановити курсор перед гістограмою;

- - вибрати команду “ВставкаÞРазрыв страницы”.

1. Записати макроси для переходу від перегляду таблиці до перегляду діаграми:

- - викликати панель “Visual Basic”;

- - натиснути кнопку “Записать макрос” на панелі “Visual Basic”;

- - у вікні “Запись макроса” написати ім’я макросу – “На_гістограму” та натиснути “Ок”:

- - з’явиться панель зупинки запису макросу “Остан…”:

- - встановити курсор в клітинку А1;

- - за допомогою вертикальної полоси прокрутки перейти до гістограми та встановити курсор в клітинку, розташовану безпосередньо перед гістограмою;

- - зупинити запис макросу при допомозі натискання кнопки “Остановить запись” на панелі “Остан…”;

1. Аналогічно записати макрос під ім’ям “На_таблицю” для переходу з гістограми до таблиці.
2. Перейти у редактор Visual Basic та переглянути код щойно створених макросів:

- - у вікні проекту знайти папку Modules;

- - у одному з модулів (Module2) переглянути код макросів, який матиме приблизно наступний вигляд:

1. Перейти в Excel та викликати панель інструментів “Элементы управления”.

1. На панелі “Элементы управления” включити режим конструктора.
2. Перед заголовком таблиці (“Розрахункова відомість”) встановити командну кнопку:

- - на панелі “Элементы управления” натиснути на “Кнопка”;

- - при допомозі миші встановити кнопку в необхідному місці;

- - на панелі “Элементы управления” натиснути на “Свойства”, як результат з’явиться вікно властивостей створеної кнопки (Properties);

- - змінити деякі властивості кнопки: колір кнопки (BackColor) – синій; колір тексту кнопки (ForeColor) – жовтий; шрифт тексту кнопки (Font) – Arial, напівжирний; текст кнопки (Caption) – Перегляд гістограми;

- - закрити вікно властивостей;

- - змінити розмір кнопки.

1. Перейти до редагування коду дії, яка буде виконуватися по натисненні на кнопці:

- - двічі натиснути лівою кнопкою миші на створеній кнопці;

- - у процедурі обробки натиснення кнопки написати код виклику макросу для переходу на гістограму – “На_гістограму”:

Private Sub CommandButton1_Click()

Module2.На_гістограму

End Sub

* Private Sub... та End Sub генеруються автоматично, їх записувати не потрібно!;

* ім’я модулю, де знаходиться потрібний макрос може бути іншим (у нашому випадку це – Module1).

1. Закрити вікно Visual Basic, перейти у Excel, на панелі “Элементы управления” виключити режим конструктора та перевірити роботу кнопки.
2. Аналогічно вищеописаній процедурі створення кнопки, створити кнопку “Перегляд таблиці” перед гістограмою для перегляду таблиці.

Поиск по сайту: