Táto stránka vás naučí, ako vytvoriť jednoduchý kalkulačka pôžičky v Excel VBA. Pracovný list obsahuje nasledujúce ovládacie prvky ActiveX: dva posúvače a dve tlačidlá možností.
Poznámka: nižšie uvedené pokyny vás nenaučia formátovať pracovný hárok. Predpokladáme, že viete, ako zmeniť typy písma, vkladať riadky a stĺpce, pridávať okraje, meniť farby pozadia atď.
Na vytvorenie kalkulačky pôžičiek vykonajte nasledujúce kroky:
1. Pridajte dva ovládacie prvky posúvača. Kliknite na položku Vložiť na karte Vývojár a potom kliknite na posúvač v časti Ovládacie prvky ActiveX.
2. Pridajte dve tlačidlá možností. 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.
Zmeňte nasledujúce vlastnosti ovládacích prvkov posúvača (uistite sa, že je vybratý režim návrhu).
3. Kliknite pravým tlačidlom 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. Kliknite pravým tlačidlom myši 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: keď kliknete na šípku, hodnota posúvača sa po SmallChange posunie nahor alebo nadol. Keď kliknete medzi posúvačom a šípkou, hodnota posúvača sa posunie nahor alebo nadol o LargeChange.
Vytvorte udalosť zmeny pracovného hárka. Kód pridaný do udalosti zmeny pracovného hárka vykoná Excel VBA, keď zmeníte bunku v hárku.
5. Otvorte editor jazyka Visual Basic.
6. Dvakrát kliknite na Sheet1 (Sheet1) v programe Project Explorer.
7. V ľavom rozbaľovacom zozname vyberte pracovný hárok a v pravom rozbaľovacom zozname vyberte položku Zmeniť.
8. Udalosť zmeny pracovného hárka počúva všetky zmeny v hárku1. Chceme, aby Excel VBA spustil čiastkový výpočet, ak sa v bunke D4 niečo zmení. Aby ste to dosiahli, pridajte do udalosti zmeny pracovného hárka nasledujúci riadok kódu (viac o podčísle Vypočítať neskôr).
Ak Target.Address = "$ D $ 4", potom Application.Run "Vypočítať"
9. Získajte správne percento v bunke F6 (zmeňte formát 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 ()
Rozsah ("F6"). Hodnota = ScrollBar1.Hodnota / 100
Aplikácia. Spustite „Vypočítať“
Koniec pod
10. Kliknite pravým tlačidlom myši na druhý ovládací prvok posúvača a potom kliknite na položku Zobraziť kód. Pridajte nasledujúci riadok kódu:
Súkromný sub ScrollBar2_Change ()
Aplikácia. Spustite „Vypočítať“
Koniec pod
11. Kliknite pravým tlačidlom myši na ovládací prvok tlačidla prvej možnosti a potom kliknite na položku Zobraziť kód. Pridajte nasledujúci riadok kódu:
Súkromná podponukaButton1_Click ()
If OptionButton1.Value = True Then Range ("C12"). Value = "Monthly Payment"
Aplikácia. Spustite „Vypočítať“
Koniec pod
12. Pravým tlačidlom myši kliknite na ovládací prvok druhej možnosti 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"
Aplikácia. Spustite „Vypočítať“
Koniec pod
13. Čas na vytvorenie sub. Môžete si prejsť našu kapitolu Funkcie a podkapitoly a dozvedieť sa viac o podstránkach. Ak sa ponáhľate, jednoducho umiestnite podpoložku s názvom Vypočítať do modulu (V editore jazyka Visual Basic kliknite na položku Vložiť, modul).
Spočítať ()
Dim pôžička ako dlhá, sadzba ako dvojitá, ako celočíselná
pôžička = rozsah („D4“). Hodnota
rate = Range ("F6"). Hodnota
nper = rozsah ("F8"). Hodnota
Ak Sheet1.OptionButton1.Value = True Then
sadzba = sadzba / 12
nper = nper * 12
Koniec Ak
Rozsah ("D12"). Hodnota = -1 * WorksheetFunction.Pmt (sadzba, ročné, pôžička)
Koniec pod
Vysvetlenie: podpoložka získa správne parametre pre funkciu pracovného hárka Pmt. Funkcia PMT v Exceli vypočítava platby za pôžičku 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é. Vynásobením výsledku hodnotou -1 získate pozitívny výsledok.
