/ / Kalkulator pożyczkowy w Excelu VBA

Kalkulator pożyczkowy w Excelu VBA

Ta strona uczy, jak utworzyć proste kalkulator pożyczek w Excel VBA. Arkusz roboczy zawiera następujące kontrolki ActiveX: dwa paski przewijania i dwa przyciski opcji.

Kalkulator pożyczkowy w Excelu VBA

Uwaga: poniższe instrukcje nie uczą formatowania arkusza roboczego. Zakładamy, że wiesz, jak zmieniać typy czcionek, wstawiać wiersze i kolumny, dodawać obramowania, zmieniać kolory tła itp.

Wykonaj następujące kroki, aby utworzyć kalkulator pożyczek:

1. Dodaj dwa elementy sterujące paska przewijania. Kliknij przycisk Wstaw na karcie Deweloper, a następnie kliknij przycisk Przewiń pasek w sekcji Formanty ActiveX.

Utwórz paski przewijania

2. Dodaj dwa przyciski opcji. Kliknij Wstaw na karcie Deweloper, a następnie kliknij przycisk Opcja w sekcji Formanty ActiveX.

Utwórz przyciski opcji

Zmień następujące właściwości kontrolek paska przewijania (upewnij się, że wybrano Tryb projektowania).

3. Kliknij prawym klawiszem myszy na pierwszym pasku kontrolnym paska przewijania, a następnie kliknij Właściwości. Ustaw Min na 0, Max na 20, SmallChange na 0 i LargeChange na 2.

4. Kliknij prawym klawiszem myszy na drugim pasku kontrolnym paska przewijania, a następnie kliknij Właściwości. Ustaw Min na 5, Max na 30, SmallChange na 1, LargeChange na 5, a LinkedCell na F8.

Objaśnienie: po kliknięciu strzałki wartość paska przewijania zwiększa się lub zmniejsza o SmallChange. Kiedy klikniesz między suwakiem a strzałką, wartość paska przewijania zwiększa się lub zmniejsza o duży podział.

Utwórz zdarzenie zmiany arkusza roboczego. Kod dodany do zdarzenia zmiany arkusza roboczego zostanie wykonany przez Excel VBA po zmianie komórki w arkuszu.

5. Otwórz Edytor Visual Basic.

6. Kliknij dwukrotnie Arkusz1 (Arkusz1) w Eksploratorze projektu.

7. Wybierz Arkusz roboczy z lewej listy rozwijanej i wybierz Zmień z prawej listy rozwijanej.

Arkusz Zmień wydarzenie w programie Excel VBA

8. Zdarzenie Zmień arkusz roboczy nasłuchuje wszystkich zmian w Arkusz1. Chcemy, aby Excel VBA uruchamiał subskrybcję Oblicz, jeśli coś zmieni się w komórce D4. Aby to osiągnąć, dodaj następującą linię kodu do Event zmiany arkusza (więcej informacji na temat Oblicz później).

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

9. Uzyskaj odpowiednią wartość procentową w komórce F6 (zmień format komórki F6 na wartość procentową). Kliknij prawym przyciskiem myszy pierwszą kontrolkę paska przewijania, a następnie kliknij opcję Wyświetl kod. Dodaj następujące linie kodu:

Private Sub ScrollBar1_Change()

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

End Sub

10. Kliknij prawym klawiszem myszy na drugim pasku kontrolnym paska przewijania, a następnie kliknij przycisk Wyświetl kod. Dodaj następującą linię kodu:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. Kliknij prawym przyciskiem myszy kontrolkę pierwszego przycisku opcji, a następnie kliknij przycisk Wyświetl kod. Dodaj następującą linię kodu:

Private Sub OptionButton1_Click()

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

End Sub

12. Kliknij prawym przyciskiem myszy drugi przycisk sterowania opcjami, a następnie kliknij przycisk Wyświetl kod. Dodaj następującą linię kodu:

Private Sub OptionButton2_Click()

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

End Sub

13. Czas stworzyć sub. Możesz przejść do rozdziału "Funkcja i podrzędny", aby dowiedzieć się więcej o subsach. Jeśli się spieszysz, po prostu umieść podkręcony o nazwie Oblicz w module (w Edytorze Visual Basic kliknij Wstaw, Moduł).

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

Wyjaśnienie: sub otrzymuje prawidłowe parametry dla funkcji arkusza roboczego Pmt. Funkcja Pmt w programie Excel oblicza płatności dla pożyczki na podstawie stałych płatności i stałej stopy procentowej. Jeśli dokonujesz płatności miesięcznych (Arkusz1.OptionButton1.Value = True), Excel VBA używa stawki / 12 dla stawki i nper * 12 dla nper (całkowita liczba płatności). Wynik jest liczbą ujemną, ponieważ płatności są traktowane jako debet. Mnożenie wyniku przez -1 daje wynik dodatni.

Wynik kalkulatora kredytowego

Przeczytaj również: