/ / Úvěrová kalkulačka v aplikaci Excel VBA

Úvěrová kalkulačka v aplikaci Excel VBA

Tato stránka vás naučí, jak vytvořit jednoduchý úvěrová kalkulačka v Excel VBA. Pracovní list obsahuje následující ovládací prvky ActiveX: dvě posuvníky a dvě tlačítka možností.

Úvěrová kalkulačka v aplikaci Excel VBA

Poznámka: Následující pokyny vás nenaučí, jak formátovat list. Předpokládáme, že víte, jak změnit typy písma, vložit řádky a sloupce, přidat hranice, změnit barvy pozadí atd.

Pro vytvoření kalkulačky použijte následující kroky:

1. Přidejte dva ovládací prvky posuvníku. Klepněte na kartu Vložit z karty Vývojář a pak klepněte na Posuvník v části Ovládací prvky ActiveX.

Vytvořte posuvníky

2. Přidejte dvě tlačítka možností. Klepněte na kartu Vložit z karty Vývojář a potom klepněte na tlačítko Možnosti v části Ovládací prvky ActiveX.

Vytvořte tlačítka možností

Změňte následující vlastnosti ovládacích prvků posuvníku (zkontrolujte, zda je vybrán režim návrhu).

3. Pravým tlačítkem myši klepněte na první ovládací prvek posuvníku a potom klepněte na příkaz Vlastnosti. Nastavte Min na 0, Max na 20, SmallChange na 0 a LargeChange na 2.

4. Pravým tlačítkem myši na druhém ovládacím panelu posuvníku klepněte na položku Vlastnosti. Nastavte Min na 5, Max na 30, SmallChange na 1, LargeChange na 5 a LinkedCell na F8.

Vysvětlení: po kliknutí na šipku se hodnota posuvníku pohybuje nahoru nebo dolů pomocí funkce SmallChange. Když kliknete mezi posuvníkem a šipkou, hodnota posuvníku se posune nahoru nebo dolů pomocí funkce LargeChange.

Vytvořit událost Změna pracovního listu. Kód přidaný do události Změna pracovního listu bude proveden pomocí aplikace Excel VBA při změně buňky v listu.

5. Otevřete editor jazyka.

6. Poklepejte na list1 (list1) v Průzkumníku projektu.

7. V levé rozevírací nabídce vyberte pracovní list a v pravém rozevíracím seznamu vyberte možnost Změnit.

Změna události pracovního listu v aplikaci Excel VBA

8. Změna události pracovního listu naslouchá všem změnám v listu1. Chceme, aby aplikace Excel VBA spouštěla ​​část Výpočet, pokud se něco změní v buňce D4. Chcete-li to dosáhnout, přidejte následující kódový řádek do události Změna pracovního listu (více o výpočtu později).

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

9. Získejte správné procento v buňce F6 (změňte formát buňky F6 na procento). Klepněte pravým tlačítkem myši na první ovládací prvek posuvníku a klepněte na tlačítko Zobrazit kód. Přidejte následující řádky kódu:

Private Sub ScrollBar1_Change()

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

End Sub

10. Klepněte pravým tlačítkem myši na druhý ovládací prvek posuvníku a klepněte na tlačítko Zobrazit kód. Přidejte následující řádek kódu:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. Klepněte pravým tlačítkem myši na první volbu ovládacího prvku tlačítka a potom klepněte na tlačítko Zobrazit kód. Přidejte následující řádek kódu:

Private Sub OptionButton1_Click()

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

End Sub

12. Klikněte pravým tlačítkem myši na druhé tlačítko ovládacího prvku a klikněte na tlačítko Zobrazit kód. Přidejte následující řádek kódu:

Private Sub OptionButton2_Click()

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

End Sub

13. Čas pro vytvoření submenu. Můžete se podívat na naši kapitolu Funkce a kapitola a dozvědět se více o subs. Pokud máte spěch, stačí umístit podmenu Vypočítat do modulu (V Editoru jazyka klepněte na Vložit, Modul).

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

Vysvětlení: Sub má správné parametry pro funkci listu Pmt. Funkce Pmt v aplikaci Excel vypočítává platby za půjčku na základě konstantních plateb a konstantní úrokové sazby. Pokud provádíte měsíční platby (Sheet1.OptionButton1.Value = True), Excel VBA používá rychlost / 12 pro rychlost a nper * 12 pro nper (celkový počet plateb). Výsledkem je záporné číslo, protože platby jsou považovány za debet. Vynásobení výsledku o -1 dává pozitivní výsledek.

Výsledek úvěrové kalkulace

Také si přečtěte: