Ова страница вас учи како да креирате једноставан калкулатор кредита у Екцел ВБА. Радни лист садржи следеће АцтивеКс контроле: две траке за померање и два дугмета са опцијама.
Напомена: доле наведена упутства вас не уче како да форматирате радни лист. Претпостављамо да знате како да промените врсте фонтова, уметнете редове и колоне, додате ивице, промените боје позадине итд.
Извршите следеће кораке за креирање калкулатора кредита:
1. Додајте две контроле траке за померање. На картици Девелопер кликните на Инсерт, а затим на секцију АцтивеКс Цонтролс кликните на Сцролл Бар.
2. Додајте два дугмета са опцијама. Кликните на Уметни са картице Развојни програмер, а затим кликните на дугме Опције у одељку Контроле АцтивеКс -а.
Промените следећа својства контрола траке за померање (уверите се да је изабран режим за дизајн).
3. Десним тастером миша кликните на прву контролу траке за померање, а затим кликните на Својства. Подесите Мин на 0, Мак на 20, СмаллЦханге на 0 и ЛаргеЦханге на 2.
4. Десним тастером миша кликните на другу контролу траке за померање, а затим кликните на Својства. Подесите Мин на 5, Мак на 30, СмаллЦханге на 1, ЛаргеЦханге на 5 и ЛинкедЦелл на Ф8.
Објашњење: када кликнете на стрелицу, вриједност траке за помицање се повећава или смањује помоћу СмаллЦханге. Када кликнете између клизача и стрелице, вредност траке за померање се повећава или смањује помоћу Велике промене.
Направите догађај промене радног листа. Код додан догађају промене радног листа извршиће Екцел ВБА када промените ћелију на радном листу.
5. Отворите Висуал Басиц Едитор.
6. Двапут кликните на Схеет1 (Схеет1) у Пројецт Екплореру.
7. Одаберите Радни лист са леве падајуће листе, а затим изаберите Промени са десне падајуће листе.
8. Догађај промене радног листа слуша све промене на листу 1. Желимо само да Екцел ВБА покрене подрачун Израчунај ако се нешто промени у ћелији Д4. Да бисте то постигли, додајте следећи ред кода у Догађај промене радног листа (касније о подрачуну Израчунај више).
Ако је Таргет.Аддресс = "$ Д $ 4" Затим Апплицатион.Рун "Израчунај"
9. Добијте прави проценат у ћелији Ф6 (промените формат ћелије Ф6 у проценат). Десним тастером миша кликните на прву контролу траке за померање, а затим кликните на Виев Цоде. Додајте следеће редове кода:
Привате Суб СцроллБар1_Цханге ()
Опсег ("Ф6"). Вредност = СцроллБар1.Валуе / 100
Апплицатион.Рун "Израчунај"
Енд Суб
10. Десним тастером миша кликните на другу контролу траке за померање, а затим кликните на Виев Цоде. Додајте следећу линију кода:
Привате Суб СцроллБар2_Цханге ()
Апплицатион.Рун "Израчунај"
Енд Суб
11. Десним тастером миша кликните на дугме за контролу прве опције, а затим кликните на Виев Цоде. Додајте следећу линију кода:
Привате Суб ОптионБуттон1_Цлицк ()
Иф ОптионБуттон1.Валуе = Труе тхен Ранге ("Ц12"). Валуе = "Месечна уплата"
Апплицатион.Рун "Израчунај"
Енд Суб
12. Десним тастером миша кликните на дугме контроле друге опције, а затим кликните на Виев Цоде. Додајте следећу линију кода:
Привате Суб ОптионБуттон2_Цлицк ()
Иф ОптионБуттон2.Валуе = Труе тхен Ранге ("Ц12"). Валуе = "Иеарли Паимент"
Апплицатион.Рун "Израчунај"
Енд Суб
13. Време је за стварање подморнице. Можете да прођете кроз наше поглавље Функција и Суб да бисте сазнали више о претплатницима. Ако сте у журби, једноставно поставите подименат Израчунај у модул (У уређивачу Висуал Басиц -а кликните на Уметни, Модул).
Подрачунај ()
Дим кредит као дуг, стопа као двоструко, н као цео број
зајам = распон ("Д4"). Вредност
рате = Ранге ("Ф6"). Вредност
нпер = Опсег ("Ф8"). Вредност
Ако је Схеет1.ОптионБуттон1.Валуе = Тачно
стопа = стопа / 12
нпер = нпер * 12
Крај Ако
Опсег ("Д12"). Вредност = -1 * Функција радног листа.Пмт (стопа, нпер, позајмица)
Енд Суб
Објашњење: суб добија праве параметре за функцију радног листа Пмт. Функција ПМТ у Екцелу израчунава плаћања за кредит на основу сталних плаћања и сталне каматне стопе. Ако плаћате месечно (Схеет1.ОптионБуттон1.Валуе = Труе), Екцел ВБА користи рате / 12 за рате и нпер *12 за нпер (укупан број плаћања). Резултат је негативан број, јер се плаћања сматрају задужењем. Множење резултата са -1 даје позитиван резултат.
