Тази страница ви учи как да създадете прост кредитен калкулатор в Excel VBA. Работният лист съдържа следните ActiveX контроли: две ленти за превъртане и два бутона за опции.
Забележка: инструкциите по -долу не ви учат как да форматирате работния лист. Предполагаме, че знаете как да променяте типовете шрифтове, да вмъквате редове и колони, да добавяте граници, да променяте цветовете на фона и т.н.
Изпълнете следните стъпки, за да създадете калкулатор на заема:
1. Добавете двата контрола за превъртане. Щракнете върху Вмъкване от раздела Разработчик и след това щракнете върху лентата за превъртане в секцията за контроли на ActiveX.
2. Добавете двата бутона за опции. Щракнете върху Вмъкване от раздела Разработчик и след това щракнете върху Бутон с опции в секцията ActiveX Controls.
Променете следните свойства на контролите за превъртане (уверете се, че е избран режим на проектиране).
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) в Project Explorer.
7. Изберете Работен лист от левия падащ списък и изберете Промяна от десния падащ списък.
8. Събитието за смяна на работния лист изслушва всички промени на Sheet1. Искаме Excel VBA да изпълнява само подсчитане, ако нещо се промени в клетка D4. За да постигнете това, добавете следния код в събитието за смяна на работния лист (по -нататък по -подробно за подсчитане на изчислението).
Ако Target.Address = "$ D $ 4", тогава Application.Run "Изчислете"
9. Вземете правилния процент в клетка F6 (променете формата на клетка F6 на процент). Щракнете с десния бутон на мишката върху първия контрол на лентата за превъртане и след това щракнете върху Преглед на кода. Добавете следните кодови редове:
Частен подвижник ScrollBar1_Change ()
Диапазон ("F6"). Стойност = ScrollBar1.Value / 100
Application.Run "Изчислете"
End Sub
10. Щракнете с десния бутон на мишката върху втория контрол на лентата за превъртане и след това щракнете върху Преглед на кода. Добавете следния код:
Частен подвижник ScrollBar2_Change ()
Application.Run "Изчислете"
End Sub
11. Щракнете с десния бутон на мишката върху бутона за управление на първата опция, след което щракнете върху Преглед на кода. Добавете следния код:
Private Sub OptionButton1_Click ()
Ако OptionButton1.Value = Вярно, тогава диапазон ("C12"). Стойност = "Месечно плащане"
Application.Run "Изчислете"
End Sub
12. Щракнете с десния бутон на мишката върху бутона за управление на втората опция, след което щракнете върху Преглед на кода. Добавете следния код:
Private Sub OptionButton2_Click ()
Ако OptionButton2.Value = True then Range ("C12"). Value = "Годишно плащане"
Application.Run "Изчислете"
End Sub
13. Време за създаване на подс. Можете да преминете през нашата глава Функции и Под, за да научите повече за абонатите. Ако бързате, просто поставете подмодула Изчисляване в модул (В редактора на Visual Basic щракнете върху Вмъкване, модул).
Под изчисление ()
Ограничете заема толкова дълго, оценете като двоен, nper като цяло число
заем = Обхват ("D4"). Стойност
rate = Range ("F6"). Стойност
nper = Диапазон ("F8"). Стойност
Ако Sheet1.OptionButton1.Value = Вярно Тогава
курс = процент / 12
nper = nper * 12
Край Ако
Диапазон ("D12"). Стойност = -1 * Работен лист Функция.Pmt (лихвен процент, nper, заем)
End Sub
Обяснение: подсистемата получава правилните параметри за функцията на работния лист Pmt. Функцията PMT в Excel изчислява плащанията за заем въз основа на постоянни плащания и постоянен лихвен процент. Ако правите месечни плащания (Sheet1.OptionButton1.Value = True), Excel VBA използва rate / 12 за rate и nper *12 за nper (общ брой плащания). Резултатът е отрицателно число, тъй като плащанията се считат за дебит. Умножаването на резултата с -1 дава положителен резултат.
