Хід роботи. Тема: Створення макросів в Visual Basic.

Лабораторна робота№7

Тема: Створення макросів в Visual Basic.

Мета: навчитися створювати макроси.

Методичне забезпечення: ПК з програмою Excel, інструкції.

Хід роботи

Уявіть собі, що Ви отримали довгостроковий кредит в банку на покупку квартири. Необхідно розрахувати розмір щомісячних відрахувань, якщо відомо:

Ø розмір кредиту – 10000 грн.

Ø процентна ставка – 6, 75 %

Ø час повернення кредиту – 180 місяців.

Для рішення цієї задачі зручно розробити макрос, результатом якого є таблиця такого вигляду:

Cтворення таблиці

Для підготовки створення макросу «Таблиця погашення кредиту» виконайте слідуючі дії:

1. Запустіть Microsoft Excel. Для цього виконайте команду Пуск/Програми/ Microsoft Excel (або подвійним клацанням миші по даній піктограмі на робочому столі);

2. Виберіть директиву Сервис/Запись макроса/Начать запись. Після виконання цієї команди на екрані з’явиться діалогове вікно “Запись макроса”

У стрічці “ Имя макроса” запишіть “ Таблиця_погашення_кредиту”. В стрічці Поле “Имя макроса” містить ім’я макроса, який буде створюватись. Використовуйте короткі, але інформативні імена. Ім’я повинно складатися з одного або кількох слів, об’єднаних символом (_). У полі “Описание” можна описати, що буде виконувати даний макрос. Поле “Сохранить в “ дає можливість трьох варіантів вибору місця збереження макросу.

“ Описание” введіть “ Створення таблиці погашення кредиту за 180 місяців “ Діалогове вікно буде мати вигляд

Найбільш загальний варіант – “Эта книга“. Він дозволяє помістити даний макрос в новий модуль, який зв’язаний з поточною папкою. Варіант “Личная книга макросов” містить макрос у спеціальну робочу папку, яка завжди відкривається після запуску Microsoft Excel.Третій варіант “Новая книга” містить макрос у новому модулі нової робочої папки.

Щоб записати створення таблиці погашення кредиту, виконайте слідуючі дії:

- Натисніть кнопку ОК, щоб закрити діалогове вікно. У плаваючому вікні з’явиться командна кнопка STOP. Цю кнопку Ви натисніть при кінці роботи для закінчення запису даного макроса.

Мал. 2.

- Внесіть у комірку А1 текст “Таблиця погашення кредиту”;

- Внесіть у комірку D1 текст “Процентна ставка”;

- Внесіть у комірку D2 текст “Розмір кредиту”;

- Внесіть у комірку D3 текст “ Сума платежу”;

- Для того, щоб встановити процентний формат числа у чарунці Е1 виберіть пункт меню Формат/Ячейка/Число. З числових форматів виберіть процентний формат числа і натисніть кнопку Ок. Таким чином, ви перетворите комірку в процентний формат.

- Виберіть комірку Е2 і внесіть число 10000. Це розмір кредиту.

- Виберіть команду Формат/Ячейка, потім виберіть вкладку Число/Все форматы/Денежный. Натисніть кнопку Ок. Таким чином, число 10000 буде представлено, як грошова одиниця.

- Виберіть комірку Е3 і внесіть функцію для розрахунку щомісячного платежу для погашення кредиту за 180 місяців.

Процентна ставка, записана в чарунціЕ1, ділиться на 12, що дає середньомісячну процентну ставку. Excel означає, що результат розрахунку цієї функції – грошова одиниця, і автоматично перетворює його у формат представлення грошових одиниць. Комірка Е3 має негативне значення тому, що погашення кредиту – це збиток.

- Виберіть комірку В5 і внесіть текст”Місяць”

- Виберіть комірку С5 і внесіть текст”Інтерес”

- Виберіть коміркуD5 і внесіть текст “Погашення кредиту”

- Виберіть комірку Е5 і внесіть текст “Дебетове сальдо”.

- Виберіть комірку В6 і внесіть “1”.Для того, щоб Excel знала, як виконати вибір у випадку застосування маніпулятора заповнення. Для цього будуть потрібні два початкових числа.

- Виберіть комірку В7 і внесіть “2”.

Виберіть комірки В6: В7, потім натисніть маніпулятор заповнення і утримуючи кнопку миші перетащіть його до комірки В185. Це створить в колонці В послідовність цілих чисел від 1 до 180.

Виберіть комірку С6 і внесіть =ОКРУГЛ(Е1*Е2/12; 2) (чи =ROUND(Е1*Е2/12; 2)).Шляхом помноження 1/12 частини річної процентної ставки на розмір кредиту, розраховується місячний процент кредиту (інтерес банку).

- Виберіть коміркуD6 і внесіть =-($E$3+С6). Розмір суми, яка направляється в рахунок погашення кредиту, розраховується як різниця між розміром платежу і процентом по кредиту. Вбудована в Excel функція РМТ розраховує платежі, як негативні значення (оскільки гроші йдуть на збиток), тому необхідно використовувати знак (-).

- Виберіть комірку Е6 і внесіть=Е2-D6– дебетове сальдо даного місяця розраховується, як різниця між несплаченим та виплаченим капіталами.

- Виберіть комірку С7 та внесіть = ОКРУГЛ ($Е$1*Е6/12; 2)чи ROUND($Е$1*Е6/12; 2).

- Виберіть комірку D6, натисніть маніпулятор заповнення у правому нижньому кутку вибраної зони, і утримуючи кнопку миші натиснутою, перетягніть його вниз до коміркиD7.

- Виберіть комірку Е7 та введіть “=Е6-D7”.

-Виберіть комірку С7: Е7, натисніть маніпулятор заповнення, і утримуючи кнопку миші натиснутою, перетягніть його вниз до комірки 185.

Для того, щоб таблиця прийняла зручний вигляд треба:

- Виберіть коміркиD1: Е3, дайте команду Формат/Ячейка, виберіть вкладку Рамка, відзначте контрольні індикатори Слева, Справа, Снизу и Сверху, а потім натисніть командну кнопку Ок.

- Виберіть комірки В5: Е5, виберіть команду Формат/Ячейка – вкладку Рамка, відзначьте контрольний індикатор Вокруг, натисніть кнопку Ок.

- Виберіть комірки В6: Е185, виконайте команду Формат/Ячейка – вкладка Рамка, відзначте індикатор Вокруг, натисніть Ок.

- Виберіть комірку А1.

- Виберіть командуСервис/Параметры – вкладка Вид. Потім відключіть контрольні індикатори Сетка та Заголовки строк и столбцов.

потім натисніть кнопку Ок.

Таблиця набуде вигляду малюнка 4.

Малюнок 4.

Зверніть увагу на командну кнопку Stop у плаваючому вікні, яка міститься у кутку таблиці. Натисніть цю кнопку для припинення запису макроса. Збережіть робочу папку під іменемAMORT.XLS. Серед вкладок, які містяться внизу робочої папки, знайдіть та виберіть вкладку Модуль1, ви побачити лістинг вашого макроса.

Виконання макроса.

Коли ми створили макрос можна виконати операцію по відновленню таблиці погашення кредиту. Для цього перейдіть на нову таблицю, наприклад Лист2, і виберіть:

Команду Сервис/Макрос. В діалогому вікні “Макрос” виберіть макрос кредиту” і натисніть командну кнопку Выполнить. Після цього автоматично буде відновлена Таблиця погашення кредиту.

Висновок: Навчилась створювати макроси в Visual Basic.