/ / Úverová kalkulačka v programe Excel VBA

Úverová kalkulačka v programe Excel VBA

Táto stránka vás naučí, ako vytvoriť jednoduchý úverová kalkulačka v Excel VBA, Pracovný hárok obsahuje nasledujúce ovládacie prvky ActiveX: dve posuvné lišty a dve voľby.

Úverová kalkulačka v programe Excel VBA

Poznámka: Nasledujúce pokyny vás nenaučia formátovať pracovný hárok. Predpokladáme, že viete, ako zmeniť typy písma, vložiť riadky a stĺpce, pridať hranice, zmeniť farby pozadia atď.

Vykonajte nasledujúce kroky na vytvorenie úverovej kalkulačky:

1. Pridajte dve ovládacie prvky posuvnej lišty. Kliknite na položku Vložiť na karte Vývojár a potom kliknite na posuvník v časti Ovládacie prvky ActiveX.

Vytvoriť posúvače

2. Pridajte dve voľby. Kliknite na položku Vložiť na karte Vývojár a potom kliknite na tlačidlo Možnosti v časti Ovládacie prvky ActiveX.

Vytvorte tlačidlá možností

Zmeňte nasledujúce vlastnosti ovládacích prvkov posúvača (uistite sa, že je vybratý režim návrhu).

3. Pravým kliknutím myši na prvý ovládací prvok posúvača a potom kliknite na položku Vlastnosti. Nastavte Min na 0, Max na 20, SmallChange na 0 a LargeChange na 2.

4. Pravým tlačidlom myši kliknite na druhý ovládací prvok posúvača a potom kliknite na položku Vlastnosti. Nastavte Min na 5, Max na 30, SmallChange na 1, LargeChange na 5 a LinkedCell na F8.

Vysvetlenie: po kliknutí na šípku sa hodnota posúvača posúva nahor alebo nadol pomocou SmallChange. Keď kliknete medzi posúvačom a šípkou, hodnota posúvača sa posunie nahor alebo nadol pomocou funkcie LargeChange.

Vytvorte udalosť zmeny pracovného hárka. Kód, ktorý bol pridaný k udalosti zmeny pracovného hárka, bude vykonaný programom Excel VBA pri zmene bunky na pracovnom hárku.

5. Otvorte Editor jazyka.

6. Dvakrát kliknite na Sheet1 (Sheet1) v Project Explorer.

7. V ľavom rozbaľovacom zozname vyberte položku Pracovný hárok a zvoľte možnosť Zmeniť v pravom rolovacom zozname.

Zmeniť udalosť pracovného hárka v programe Excel VBA

8. Zmenená udalosť pracovného hárku počúva všetky zmeny v hárku 1. Chceme, aby Excel VBA spustil výpočtový submenu, ak sa niečo zmení v bunke D4. Ak to chcete dosiahnuť, pridajte nasledujúci riadok kódu do udalosti zmeny pracovného hárka (viac informácií o výpočte nižšie).

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

9. Získajte správne percento v bunke F6 (zmena formátu bunky F6 na percento). Kliknite pravým tlačidlom myši na prvý ovládací prvok posúvača a potom kliknite na položku Zobraziť kód. Pridajte nasledujúce riadky kódu:

Private Sub ScrollBar1_Change()

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

End Sub

10. Pravým kliknutím myši na druhom ovládacom paneli posuvníka a potom kliknite na položku Zobraziť kód. Pridajte nasledujúci riadok kódu:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. Kliknite pravým tlačidlom myši na prvú voľbu ovládacieho prvku a potom kliknite na položku Zobraziť kód. Pridajte nasledujúci riadok kódu:

Private Sub OptionButton1_Click()

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

End Sub

12. Kliknite pravým tlačidlom myši na druhú voľbu ovládacieho prvku a potom kliknite na položku Zobraziť kód. Pridajte nasledujúci riadok kódu:

Private Sub OptionButton2_Click()

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

End Sub

13. Čas na vytvorenie submenu. Môžete si prečítať kapitolu Funkcia a Sub, aby ste sa dozvedeli viac o podpore. Ak sa ponáhľate, jednoducho umiestnite podmenu Vypočítať do modulu (V editore jazyka kliknite na položku Vložiť, 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

vysvetlenie: Sub má správne parametre pre funkciu pracovného hárka Pmt. Funkcia Pmt v programe Excel vypočíta platby za úver na základe konštantných platieb a konštantnej úrokovej sadzby. Ak vykonávate mesačné platby (Sheet1.OptionButton1.Value = True), Excel VBA používa sadzbu / 12 pre sadzbu a nper * 12 pre nper (celkový počet platieb). Výsledkom je záporné číslo, pretože platby sa považujú za debetné. Násobenie výsledku o -1 dáva pozitívny výsledok.

Výsledok úverovej kalkulačky

Tiež si prečítajte: