Na tej stronie dowiesz się, jak stworzyć prosty kalkulator pożyczek w Excel VBA. Arkusz zawiera następujące kontrolki ActiveX: dwa paski przewijania i dwa przyciski opcji.
Uwaga: poniższe instrukcje nie nauczą Cię, jak sformatować arkusz. 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 kredytowy:
1. Dodaj dwie kontrolki paska przewijania. Kliknij Wstaw na karcie Deweloper, a następnie kliknij Pasek przewijania w sekcji Formanty ActiveX.
2. Dodaj dwa przyciski opcji. Kliknij Wstaw na karcie Deweloper, a następnie kliknij przycisk opcji w sekcji Formanty ActiveX.
Zmień następujące właściwości kontrolek paska przewijania (upewnij się, że wybrano Tryb projektowania).
3. Kliknij prawym przyciskiem myszy pierwszą kontrolkę 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 przyciskiem myszy drugą kontrolkę paska przewijania, a następnie kliknij Właściwości. Ustaw Min na 5, Max na 30, SmallChange na 1, LargeChange na 5 i LinkedCell na F8.
Wyjaśnienie: po kliknięciu strzałki wartość paska przewijania zwiększa się lub zmniejsza o SmallChange. Po kliknięciu między suwakiem a strzałką wartość paska przewijania zwiększa się lub zmniejsza o wartość LargeChange.
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 projektów.
7. Wybierz Arkusz roboczy z lewej listy rozwijanej i wybierz Zmień z prawej listy rozwijanej.
8. Zdarzenie zmiany arkusza roboczego nasłuchuje wszystkich zmian w arkuszu Arkusz1. Chcemy, aby Excel VBA uruchamiał podrzędną Oblicz, jeśli coś zmieni się w komórce D4. Aby to osiągnąć, dodaj następującą linię kodu do zdarzenia zmiany arkusza roboczego (więcej o podrzędnym Obliczanie w dalszej części).
Jeśli Target.Address = "$D$4" Następnie Application.Run "Oblicz"
9. Uzyskaj odpowiedni procent w komórce F6 (zmień format komórki F6 na procent). Kliknij prawym przyciskiem myszy pierwszą kontrolkę paska przewijania, a następnie kliknij Wyświetl kod. Dodaj następujące wiersze kodu:
Prywatny podrzędny pasek przewijania1_Zmień()
Zakres("F6").Value = ScrollBar1.Value / 100
Aplikacja.Uruchom "Oblicz"
Napis końcowy
10. Kliknij prawym przyciskiem myszy drugą kontrolkę paska przewijania, a następnie kliknij Wyświetl kod. Dodaj następującą linię kodu:
Private Sub ScrollBar2_Change()
Aplikacja.Uruchom "Oblicz"
Napis końcowy
11. Kliknij prawym przyciskiem myszy pierwszą kontrolkę przycisku opcji, a następnie kliknij Wyświetl kod. Dodaj następującą linię kodu:
Prywatna opcja podrzędnaPrzycisk1_Click()
If OptionButton1.Value = True Then Range("C12").Value = "Miesięczna płatność"
Aplikacja.Uruchom "Oblicz"
Napis końcowy
12. Kliknij prawym przyciskiem myszy kontrolkę drugiego przycisku opcji, a następnie kliknij Wyświetl kod. Dodaj następującą linię kodu:
Prywatna opcja Sub OptionButton2_Click()
If OptionButton2.Value = True Then Range("C12").Value = "Płatność roczna"
Aplikacja.Uruchom "Oblicz"
Napis końcowy
13. Czas stworzyć sub. Możesz przejrzeć nasz rozdział Funkcje i Sub, aby dowiedzieć się więcej o subs. Jeśli się spieszysz, po prostu umieść sub o nazwie Oblicz w module (w Edytorze Visual Basic kliknij Wstaw, Moduł).
Oblicz podrzędne()
Pożyczka Dim As Long, stopa As Double, liczba NPER As Integer
pożyczka = Zakres("D4").Wartość
szybkość = Zakres("F6").Wartość
nper = Zakres("F8").Wartość
Jeśli Sheet1.OptionButton1.Value = True Wtedy
stawka = stawka / 12
liczba_liczba = liczba_liczba * 12
Zakończ, jeśli
Range("D12").Value = -1 * WorksheetFunction.Pmt(stopa, liczba_rat, pożyczka)
Napis końcowy
Wyjaśnienie: sub pobiera odpowiednie parametry dla funkcji arkusza roboczego Pmt. Funkcja PMT w programie Excel oblicza płatności pożyczki na podstawie stałych płatności i stałej stopy procentowej. Jeśli dokonujesz płatności miesięcznych (Sheet1.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. Pomnożenie wyniku przez -1 daje wynik dodatni.
