Tämä sivu opettaa sinulle yksinkertaisen luomisen lainalaskuri sisään Excel VBA. Laskentataulukko sisältää seuraavat ActiveX -komponentit: kaksi vierityspalkkia ja kaksi asetuspainiketta.
Huomaa: alla olevat ohjeet eivät opeta laskentataulukon muotoilua. Oletamme, että osaat muuttaa kirjasintyyppejä, lisätä rivejä ja sarakkeita, lisätä reunuksia, muuttaa taustavärejä jne.
Luo lainalaskuri seuraavasti:
1. Lisää kaksi vierityspalkin ohjainta. Napsauta Lisää kehittäjä -välilehdestä ja valitse sitten vierityspalkki ActiveX -komponentit -osiossa.
2. Lisää kaksi vaihtoehtopainiketta. Napsauta Lisää kehittäjä -välilehdestä ja napsauta sitten vaihtoehtopainiketta ActiveX -komponentit -osiossa.
Muuta vierityspalkin säätimien seuraavia ominaisuuksia (varmista, että Suunnittelutila on valittuna).
3. Napsauta ensimmäistä vierityspalkin ohjainta hiiren kakkospainikkeella ja valitse sitten Ominaisuudet. Aseta Min -arvoksi 0, Max -arvoon 20, SmallChange -asetukseksi 0 ja LargeChange -asetukseksi 2.
4. Napsauta hiiren kakkospainikkeella toista vierityspalkin ohjainta ja valitse sitten Ominaisuudet. Aseta Min -arvoksi 5, Max -arvoksi 30, SmallChange -asetukseksi 1, LargeChange -asetukseksi 5 ja LinkedCell -asetukseksi F8.
Selitys: kun napsautat nuolta, vierityspalkin arvo nousee tai laskee SmallChange -toiminnolla. Kun napsautat liukusäätimen ja nuolen välissä, vierityspalkin arvo nousee tai laskee LargeChange -toiminnolla.
Luo laskentataulukon muutostapahtuma. Laskentataulukon muutostapahtumaan lisätyn koodin suorittaa Excel VBA, kun muutat laskentataulukon solua.
5. Avaa Visual Basic Editor.
6. Kaksoisnapsauta Sheet1 (Sheet1) Project Explorerissa.
7. Valitse laskentataulukko vasemmasta avattavasta luettelosta ja valitse Muuta oikeasta avattavasta luettelosta.
8. Laskentataulukon muutostapahtuma kuuntelee kaikki taulukon 1 muutokset. Haluamme, että Excel VBA suorittaa vain Laske -ali, jos jotain muuttuu solussa D4. Tämän saavuttamiseksi lisää seuraava koodirivi laskentataulukon muutostapahtumaan (lisätietoja Laske -aliosasta myöhemmin).
Jos Target.Address = "$ D $ 4" Sitten Application.Run "Laske"
9. Hae oikea prosenttiosuus solusta F6 (muuta solun F6 muoto prosentteiksi). Napsauta hiiren kakkospainikkeella ensimmäistä vierityspalkin ohjainta ja napsauta sitten Näytä koodi. Lisää seuraavat koodirivit:
Yksityinen vierityspalkki1_Change ()
Alue ("F6"). Arvo = ScrollBar1.Value / 100
Application.Run "Laske"
End Sub
10. Napsauta toista vierityspalkin ohjainta hiiren kakkospainikkeella ja valitse sitten Näytä koodi. Lisää seuraava koodirivi:
Yksityinen vierityspalkki2_Change ()
Application.Run "Laske"
End Sub
11. Napsauta hiiren kakkospainikkeella ensimmäistä vaihtoehtopainiketta ja valitse sitten Näytä koodi. Lisää seuraava koodirivi:
Yksityinen alavaihtoehtoButton1_Click ()
Jos OptionButton1.Value = Tosi sitten -alue ("C12"). Arvo = "Kuukausimaksu"
Application.Run "Laske"
End Sub
12. Napsauta hiiren kakkospainikkeella toisen vaihtoehtopainikkeen ohjainta ja napsauta sitten Näytä koodi. Lisää seuraava koodirivi:
Yksityinen alavaihtoehtoButton2_Click ()
Jos OptionButton2.Value = Tosi sitten -alue ("C12"). Arvo = "Vuosimaksu"
Application.Run "Laske"
End Sub
13. Aika luoda osa. Voit käydä läpi toimintomme ja aliosamme saadaksesi lisätietoja sub -toiminnoista. Jos sinulla on kiire, aseta vain Laske osa -osa moduuliksi (Valitse Visual Basic Editorissa Lisää, Moduuli).
Alalaskenta ()
Dim laina niin pitkä, korko kaksinkertainen, nper kuin kokonaisluku
laina = alue ("D4"). Arvo
rate = Range ("F6"). Arvo
nper = Alue ("F8"). Arvo
Jos Sheet1.OptionButton1.Value = Tosi sitten
korko = korko / 12
nper = nper * 12
Loppu Jos
Alue ("D12"). Arvo = -1 * laskentataulukkofunktio.Pmt (korko, nper, laina)
End Sub
Selitys: ali saa oikeat parametrit laskentataulukkofunktiolle Pmt. Excelin PMT -toiminto laskee lainan maksut jatkuvien maksujen ja kiinteän koron perusteella. Jos suoritat kuukausimaksuja (Sheet1.OptionButton1.Value = True), Excel VBA käyttää korkoa / 12 korolle ja nper *12 maksulle (maksujen kokonaismäärä). Tulos on negatiivinen luku, koska maksuja pidetään veloituksina. Tuloksen kertominen -1 antaa positiivisen tuloksen.
