Ця сторінка вчить вас створювати прості кредитний калькулятор в Excel VBA. Робочий аркуш містить такі елементи керування ActiveX: дві смуги прокрутки та дві кнопки опцій.
Примітка: наведені нижче інструкції не вчать вас відформатувати аркуш. Ми припускаємо, що ви знаєте, як змінити типи шрифтів, вставити рядки та стовпці, додати рамки, змінити колір фону тощо.
Щоб створити калькулятор позики, виконайте наведені нижче дії.
1. Додайте два елементи керування смугою прокрутки. Натисніть Вставити на вкладці Розробник, а потім клацніть на Панель прокрутки в розділі Елементи керування ActiveX.
2. Додайте дві кнопки опцій. Натисніть Вставити на вкладці Розробник, а потім натисніть кнопку Параметри в розділі Елементи керування ActiveX.
Змініть наведені нижче властивості елементів керування смугою прокрутки (переконайтеся, що вибрано режим проектування).
3. Клацніть правою кнопкою миші на першому елементі керування прокруткою, а потім клацніть «Властивості». Встановіть Min на 0, Max на 20, SmallChange на 0 та LargeChange на 2.
4. Клацніть правою кнопкою миші на другому елементі керування прокруткою, а потім клацніть «Властивості». Встановіть Min на 5, Max на 30, SmallChange на 1, LargeChange на 5 і LinkedCell на F8.
Пояснення: при натисканні на стрілку значення смуги прокрутки збільшується або зменшується за допомогою SmallChange. Коли ви натискаєте між повзунком та стрілкою, значення смуги прокрутки збільшується або зменшується за допомогою LargeChange.
Створіть подію зміни робочого аркуша. Код, доданий до події зміни робочого аркуша, буде виконуватися Excel VBA при зміні комірки на аркуші.
5. Відкрийте редактор Visual Basic.
6. Двічі клацніть на Sheet1 (Sheet1) у Провіднику проектів.
7. Виберіть «Робочий аркуш» у розкривному списку ліворуч і виберіть «Змінити» у правому розкривному списку.
8. Подія зміни робочого аркуша прослуховує всі зміни на аркуші1. Ми хочемо, щоб Excel VBA запускав підрахунок «Обчислити», якщо щось зміниться у клітинці D4. Щоб досягти цього, додайте наступний рядок коду до події зміни робочого аркуша (докладніше про підрахунок «Розрахувати» пізніше).
Якщо Target.Address = "$ D $ 4", то Application.Run "Обчислити"
9. Отримайте потрібний відсоток у комірці F6 (змініть формат комірки F6 на відсоток). Клацніть правою кнопкою миші на першому елементі керування прокруткою, а потім клацніть на Переглянути код. Додайте такі рядки коду:
Приватна підкатка ScrollBar1_Change ()
Діапазон ("F6"). Значення = ScrollBar1.Value / 100
Application.Запустіть "Розрахувати"
End Sub
10. Клацніть правою кнопкою миші на другому елементі керування прокруткою, а потім клацніть на Переглянути код. Додайте наступний рядок коду:
Приватна підкатка ScrollBar2_Change ()
Application.Запустіть "Розрахувати"
End Sub
11. Клацніть правою кнопкою миші на елементі керування першої опції, а потім клацніть на Переглянути код. Додайте наступний рядок коду:
Опція приватного підрозділу Button1_Click ()
Якщо OptionButton1.Value = True Тоді діапазон ("C12"). Значення = "Щомісячний платіж"
Application.Запустіть "Розрахувати"
End Sub
12. Клацніть правою кнопкою миші на другому елементі управління, а потім клацніть на Переглянути код. Додайте наступний рядок коду:
Опція приватного підрозділу Button2_Click ()
Якщо OptionButton2.Value = True Тоді діапазон ("C12"). Значення = "Річний платіж"
Application.Запустіть "Розрахувати"
End Sub
13. Час створення підп. Ви можете переглянути наш розділ Функції та Підрозділи, щоб дізнатися більше про підписки. Якщо ви поспішаєте, просто помістіть підзаголовок Calculate у модуль (у редакторі Visual Basic натисніть Insert, Module).
Підрахунок ()
Погашення кредиту як довго, ставка як подвійне, nper як ціле число
позика = Діапазон ("D4"). Вартість
rate = Діапазон ("F6"). Значення
nper = Діапазон ("F8"). Значення
Якщо Sheet1.OptionButton1.Value = True Тоді
курс = ставка / 12
nper = nper * 12
Закінчити Якщо
Діапазон ("D12"). Значення = -1 * Функція робочого аркуша.Pmt (ставка, nper, позика)
End Sub
Пояснення: підрозділ отримує правильні параметри для функції аркуша Pmt. Функція PMT в Excel розраховує платежі за кредит на основі постійних платежів та постійної процентної ставки. Якщо ви здійснюєте щомісячні платежі (Sheet1.OptionButton1.Value = True), Excel VBA використовує курс / 12 для курсу та nper *12 для nper (загальна кількість платежів). В результаті виходить від’ємне число, оскільки платежі вважаються дебетом. Помноження результату на -1 дає позитивний результат.
