/ / Калкулатор кредита у Екцел ВБА

Калкулатор кредита у Екцел ВБА

Ова страница вас учи како креирати једноставну калкулатор кредита ин Екцел ВБА. Радни лист садржи следеће АцтивеКс контроле: два сцроллбарс-а и два опциона дугмета.

Калкулатор кредита у Екцел ВБА

Напомена: доле наведене инструкције не подучавају вас како форматирати радни лист. Претпостављамо да знате како промијенити типове фонтова, убацити редове и ступце, додавати границе, променити боје позадине итд.

Извршите следеће кораке за креирање калкулатора кредита:

1. Додајте две контроле померањем траке. Кликните на ставку Уметни на картици "Програмер", а затим кликните на сцролл траку у одељку "АцтивеКс контрола".

Креирајте траке за помицање

2. Додајте два дугмета опције. Кликните на ставку Уметни на картици "Програмер", а затим кликните на дугме Оптион у одељку "Контроле АцтивеКс".

Креирајте опције дугмади

Промените следећа својства контролних тастера за претрагу (проверите да ли је изабран Десигн Моде).

3. Десним тастером миша кликните на прву контролу шипке, а затим кликните на Пропертиес (Својства). Подеси Мин на 0, Максимално на 20, Мањи Промени на 0 и Велики Промени на 2.

4. Десним тастером миша кликните на другу контролу шипке, а затим кликните на Пропертиес (Својства). Подесите Мин на 5, Мак на 30, СмаллЦханге на 1, ЛаргеЦханге на 5, и ЛинкедЦелл на Ф8.

Објашњење: када кликнете на стрелицу, вредност померања траке помиче горе или доље помоћу СмаллЦханге-а. Када кликнете између клизача и стрелице, вредност померања пролази горе или доље од стране ЛаргеЦханге.

Креирајте догађај за промјену радног листа. Код који је додат на радни лист Цханге Евент ће извршити Екцел ВБА када промените ћелију на радном листу.

5. Отворите Висуал Басиц Едитор.

6. Двапут кликните на Схеет1 (Схеет1) у Пројецт Екплорер.

7. Изаберите Радни лист са леве падајуће листе и изаберите Промени са десне падајуће листе.

Радни лист Промените догађај у Екцелу ВБА

8. Случај промене радног листа послуша све промјене на Схеет1. Желимо само Екцел ВБА да покреће Цалцулате суб ако нешто промијени у ћелији Д4. Да бисте то постигли, додајте следећу линију кода на догађај Цханге Схеет (више о Цалцулате суб касније).

If Target.Address = "$D$4" Then Application.Run "Calculate"

9. Добијте прави проценат у ћелији Ф6 (промените формат ћелије Ф6 у проценту). Десни клик миша на прву контролу шипке, а затим кликните на Прикажи код. Додајте следеће линије кода:

Private Sub ScrollBar1_Change()

Range("F6").Value = ScrollBar1.Value / 100
Application.Run "Calculate"

End Sub

10. Десним кликом миша на другу контролу шипке, а затим кликните на Прикажи код. Додајте следећу линију кода:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. Десним тастером миша кликните на контролу дугмади прве опције, а затим кликните на Прикажи код. Додајте следећу линију кода:

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then Range("C12").Value = "Monthly Payment"
Application.Run "Calculate"

End Sub

12. Десним кликом миша на контролу друге опције, а затим кликните на Прикажи код. Додајте следећу линију кода:

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then Range("C12").Value = "Yearly Payment"
Application.Run "Calculate"

End Sub

13. Време је да се креира под. Можете проћи кроз нашу функцију и под поглавље како бисте сазнали више о субс. Ако сте у журби, једноставно поставите под назив под називом Израчунајте у модул (у Висуал Басиц Едитор, кликните Инсерт, Модуле).

Sub Calculate()

Dim loan As Long, rate As Double, nper As Integer

loan = Range("D4").Value
rate = Range("F6").Value
nper = Range("F8").Value

If Sheet1.OptionButton1.Value = True Then
    rate = rate / 12
    nper = nper * 12
End If

Range("D12").Value = -1 * WorksheetFunction.Pmt(rate, nper, loan)

End Sub

Објашњење: суб добива праве параметре за функцију радног листа Пмт. Функција Пмт у Екцелу израчунава исплате за кредит на основу константних плаћања и константне каматне стопе. Ако вршите месечна плаћања (Схеет1.ОптионБуттон1.Валуе = Труе), Екцел ВБА користи стопу / 12 за стопу и нпер * 12 за нпер (укупан број плаћања). Резултат је негативан број, јер се плаћања сматрају дебитним. Мултипликовање резултата са -1 даје позитиван резултат.

Резултат калкулације кредита

Такође прочитајте: