Tato stránka vás naučí, jak vytvořit jednoduchý kalkulačka půjček v Excel VBA. List obsahuje následující ovládací prvky ActiveX: dva posuvníky a dvě tlačítka možností.
Poznámka: níže uvedené pokyny vás nenaučí formátovat list. Předpokládáme, že víte, jak změnit typy písem, vkládat řádky a sloupce, přidávat ohraničení, měnit barvy pozadí atd.
Chcete -li vytvořit kalkulačku půjčky, proveďte následující kroky:
1. Přidejte dva ovládací prvky posuvníku. Klikněte na Vložit na kartě Vývojář a poté klikněte na posuvník v části Ovládací prvky ActiveX.
2. Přidejte dvě tlačítka možností. Klikněte na Vložit na kartě Vývojář a poté klikněte na tlačítko Možnosti v části Ovládací prvky ActiveX.
Změňte následující vlastnosti ovládacích prvků posuvníku (zkontrolujte, zda je vybrán režim návrhu).
3. Klikněte pravým tlačítkem myši na první ovládací prvek posuvníku a poté klikněte na Vlastnosti. Nastavte Min na 0, Max na 20, SmallChange na 0 a LargeChange na 2.
4. Klikněte pravým tlačítkem myši na druhý ovládací prvek posuvníku a poté klikněte na Vlastnosti. Nastavte Min na 5, Max na 30, SmallChange na 1, LargeChange na 5 a LinkedCell na F8.
Vysvětlení: když kliknete na šipku, hodnota posuvníku se zvýší nebo sníží o SmallChange. Když kliknete mezi posuvníkem a šipkou, hodnota posuvníku se zvýší nebo sníží o LargeChange.
Vytvořte událost změny listu. Kód přidaný do události změny pracovního listu provede Excel VBA, když změníte buňku na listu.
5. Otevřete editor jazyka.
6. Poklepejte na List1 (List1) v Průzkumníku projektů.
7. Z levého rozevíracího seznamu vyberte List a z pravého rozevíracího seznamu vyberte Změnit.
8. Událost změny listu poslouchá všechny změny v Listu1. Chceme, aby aplikace Excel VBA spustila dílčí část Vypočítat, pokud se v buňce D4 něco změní. Chcete -li toho dosáhnout, přidejte následující řádek kódu do události změny pracovního listu (více o podskupině Calculate dále).
Pokud Target.Address = "$ D $ 4", pak Application.Run "Vypočítat"
9. Získejte správné procento v buňce F6 (změňte formát buňky F6 na procenta). Klikněte pravým tlačítkem myši na první ovládací prvek posuvníku a poté klikněte na Zobrazit kód. Přidejte následující řádky kódu:
Soukromý Sub ScrollBar1_Change ()
Rozsah ("F6"). Hodnota = ScrollBar1.Hodnota / 100
Application.Run "Vypočítat"
End Sub
10. Klikněte pravým tlačítkem myši na druhý ovládací prvek posuvníku a poté klikněte na Zobrazit kód. Přidejte následující řádek kódu:
Private Sub ScrollBar2_Change ()
Application.Run "Vypočítat"
End Sub
11. Klepněte pravým tlačítkem myši na ovládací prvek tlačítka první možnosti a poté klikněte na Zobrazit kód. Přidejte následující řádek kódu:
Soukromá podvolba Tlačítko1_Klik ()
Pokud OptionButton1.Value = True Then Range („C12“). Value = „Monthly Payment“
Application.Run "Vypočítat"
End Sub
12. Klepněte pravým tlačítkem myši na ovládací prvek druhé možnosti a poté klikněte na Zobrazit kód. Přidejte následující řádek kódu:
Možnost soukromého dílčího tlačítkaButton2_Click ()
Pokud OptionButton2.Value = True Then Range („C12“). Hodnota = „Roční platba“
Application.Run "Vypočítat"
End Sub
13. Čas na vytvoření sub. Můžete si projít naši kapitolu Funkce a podkapitoly, kde se dozvíte více o subs. Pokud spěcháte, jednoduše umístěte dílčí část s názvem Vypočítat do modulu (V editoru jazyka klepněte na Vložit, modul).
Dílčí výpočet ()
Dim půjčka jako dlouhá, sazba jako dvojnásobek, nper jako celé číslo
půjčka = Rozsah („D4“). Hodnota
rate = Range ("F6"). Hodnota
nper = Rozsah ("F8"). Hodnota
If Sheet1.OptionButton1.Value = True Then
kurz = sazba / 12
nper = nper * 12
Konec If
Rozsah ("D12"). Hodnota = -1 * WorksheetFunction.Pmt (sazba, nper, půjčka)
End Sub
Vysvětlení: dílčí získá správné parametry pro funkci listu Pmt. Funkce PMT v aplikaci Excel vypočítá 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á sazbu / 12 pro sazbu 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ím výsledku -1 získáte kladný výsledek.