Ta stran vas uči, kako ustvariti preprosto kalkulator posojila v Excel VBA. Delovni list vsebuje naslednje kontrolnike ActiveX: dve drsni vrstici in dva gumba z možnostmi.
Opomba: spodnja navodila vas ne naučijo, kako oblikovati delovni list. Predvidevamo, da veste, kako spremeniti vrste pisav, vstaviti vrstice in stolpce, dodati obrobe, spremeniti barve ozadja itd.
Za izdelavo kalkulatorja posojila izvedite naslednje korake:
1. Dodajte dva kontrolnika drsnega traku. Na zavihku Razvijalec kliknite Vstavi in nato v razdelku Kontrole ActiveX kliknite Vrstico za pomikanje.
2. Dodajte dva gumba z možnostmi. Na zavihku Razvijalec kliknite Vstavi in nato v razdelku Kontrolniki ActiveX kliknite gumb Možnosti.
Spremenite naslednje lastnosti kontrolnikov drsnega traku (preverite, ali je izbran način za oblikovanje).
3. Z desno miškino tipko kliknite prvi kontrolnik drsnega traku in nato kliknite Lastnosti. Nastavite Min na 0, Max na 20, SmallChange na 0 in LargeChange na 2.
4. Z desno miškino tipko kliknite drugi kontrolnik drsnega traku in nato kliknite Lastnosti. Nastavite Min na 5, Max na 30, SmallChange na 1, LargeChange na 5 in LinkedCell na F8.
Pojasnilo: Ko kliknete puščico, se vrednost drsne vrstice poveča ali zmanjša za SmallChange. Ko kliknete med drsnikom in puščico, se vrednost drsne vrstice poveča ali zmanjša za LargeChange.
Ustvarite dogodek spremembe delovnega lista. Kodo, dodano dogodku spremembe delovnega lista, bo Excel VBA izvedel, ko spremenite celico na delovnem listu.
5. Odprite urejevalnik Visual Basic.
6. Dvokliknite Sheet1 (Sheet1) v Raziskovalcu projektov.
7. Na levem spustnem seznamu izberite Delovni list in na desnem spustnem seznamu izberite Spremeni.
8. Dogodek spremembe delovnega lista posluša vse spremembe na listu1. Želimo, da Excel VBA zažene podrazdelek Izračunaj le, če se v celici D4 kaj spremeni. Da bi to dosegli, v dogodek spremembe delovnega lista dodajte naslednjo kodno vrstico (več o podmeni Izračunaj kasneje).
Če je Target.Address = "$ D $ 4" Nato Application.Run "Izračunaj"
9. Dobite pravi odstotek v celici F6 (spremenite obliko celice F6 v odstotek). Z desno miškino tipko kliknite prvi kontrolnik drsnega traku in nato kliknite Ogled kode. Dodajte naslednje kodne vrstice:
Zasebni podvig ScrollBar1_Change ()
Obseg ("F6"). Vrednost = ScrollBar1.Vrednost / 100
Application.Run "Izračunaj"
End Sub
10. Z desno miškino tipko kliknite drugi kontrolnik drsnega traku in nato kliknite Ogled kode. Dodajte naslednjo kodno vrstico:
Zasebni podvig ScrollBar2_Change ()
Application.Run "Izračunaj"
End Sub
11. Z desno miškino tipko kliknite prvi gumb gumba možnosti in nato kliknite Pogled kode. Dodajte naslednjo kodno vrstico:
Zasebna podmenska možnost Button1_Click ()
Če je OptionButton1.Value = True Potem obseg ("C12"). Vrednost = "Mesečno plačilo"
Application.Run "Izračunaj"
End Sub
12. Z desno miškino tipko kliknite drugo tipko za upravljanje možnosti in nato kliknite Pogled kode. Dodajte naslednjo kodno vrstico:
Zasebna podmenska možnost Button2_Click ()
Če je OptionButton2.Value = True Potem obseg ("C12"). Vrednost = "Letno plačilo"
Application.Run "Izračunaj"
End Sub
13. Čas za ustvarjanje podmornice. Če želite izvedeti več o podplatih, pojdite skozi naše poglavje Funkcije in Pod. Če se vam mudi, preprosto postavite podimeno Izračunaj v modul (v urejevalniku Visual Basic kliknite Vstavi, modul).
Podračun ()
Zatemni posojilo tako dolgo, kot dvojno, n kot kot celo število
posojilo = obseg ("D4"). Vrednost
rate = Range ("F6"). Vrednost
nper = Razpon ("F8"). Vrednost
Če je Sheet1.OptionButton1.Value = True Potem
stopnja = stopnja / 12
nper = nper * 12
Konec Če
Razpon ("D12"). Vrednost = -1 * Funkcija delovnega lista.Pmt (stopnja, nper, posojilo)
End Sub
Pojasnilo: podnaprava dobi prave parametre za funkcijo delovnega lista Pmt. Funkcija PMT v Excelu izračuna plačila za posojilo na podlagi stalnih plačil in konstantne obrestne mere. Če opravljate mesečna plačila (Sheet1.OptionButton1.Value = True), Excel VBA uporablja rate / 12 za stopnjo in nper *12 za nper (skupno število plačil). Rezultat je negativno število, ker se plačila štejejo za bremenitev. Če rezultat pomnožite z -1, dobite pozitiven rezultat.
