/ / Lainalaskuri Excel VBA: ssa

Lainalaskuri Excel VBA: ssa

Tämä sivu opettaa sinulle, kuinka luoda yksinkertainen laina laskin sisään Excel VBA. Työtaso sisältää seuraavat ActiveX-komponentit: kaksi rullauspainiketta ja kaksi vaihtoehtoista painiketta.

Lainalaskuri Excel VBA: ssa

Huomaa: Alla olevat ohjeet eivät opna, miten laskentataulukko muotoillaan. Oletetaan, että tiedät, miten voit muuttaa fonttityyppejä, lisätä rivit ja sarakkeet, lisätä reunuksia, muuttaa taustavärejä jne.

Suorita seuraavat vaiheet luottolaskimen luomiseksi:

1. Lisää kaksi vierityspalkin ohjainta. Napsauta Lisää-painiketta Kehittäjä-välilehdeltä ja napsauta sitten Scroll Bar -ruutua ActiveX Controls -osiossa.

Luo vierityspalkkeja

2. Lisää kaksi vaihtoehtoista painiketta. Napsauta Lisää-painiketta Kehittäjä-välilehdestä ja napsauta sitten Lisäasetukset-painiketta ActiveX-komponentit-osiossa.

Luo vaihtoehtopainikkeet

Muuta vierityspalkin ohjainten seuraavia ominaisuuksia (varmista, että Suunnittelutila on valittuna).

3. Napsauta hiiren kakkospainikkeella ensimmäistä vierityspalkin ohjausta ja valitse sitten Ominaisuudet. Aseta Min arvoon 0, maksimi 20, pieni vaihda arvoon 0 ja suuruusvaihtoehto 2.

4. Napsauta hiiren kakkospainikkeella toista vierityspalkin ohjausta ja valitse sitten Ominaisuudet. Aseta Min 5, Max 30, Small Change 1, LargeChange to 5 ja LinkedCell to F8.

Selitys: kun napsautat nuolta, vierityspalkin arvo nousee ylös tai alas SmallChange. Kun napsautat liukusäätimen ja nuolen välillä, vierityspalkin arvo nousee ylös tai alas Suurenna Vaihto.

Luo laskentataulukko Muuta tapahtumaa. Excel VBA suorittaa Excel-VBA-tietueeseen lisätyn koodin lisäämisen koodiksi, kun muutat solua laskentataulukossa.

5. Avaa Visual Basic -editori.

6. Kaksoisnapsauta Project Explorer -ohjelman Sheet1 (Sheet1) -kohtaa.

7. Valitse vasemmalla olevasta avattavasta luettelosta Worksheet ja valitse oikealta pudotusvalikosta Change.

Työkirja Muuta tapahtumaa Excel VBA: ssa

8. Worksheet Muuta tapahtuma kuuntelee kaikkia Sheet1: n muutoksia. Haluamme vain, että Excel VBA suorittaa Calculate-alin jos jotain muuttuu solussa D4. Voit tehdä tämän lisäämällä seuraavan koodin rivin Työtilamuutos-tapahtumaan (lisätietoja laskemisesta myöhemmin).

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

9. Hanki oikea prosenttiosuus soluun F6 (muuta solun F6 muotoa prosentteina). Napsauta hiiren kakkospainikkeella ensimmäistä vierityspalkin ohjausta ja valitse sitten Näytä koodi. Lisää seuraavat koodiluokat:

Private Sub ScrollBar1_Change()

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

End Sub

10. Napsauta hiiren kakkospainikkeella toisella vierityspalkin ohjaimella ja napsauta sitten Näytä koodi. Lisää seuraava koodirivi:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. Napsauta hiiren kakkospainikkeella ensimmäisellä painikkeella ja valitse sitten Näytä koodi. Lisää seuraava koodirivi:

Private Sub OptionButton1_Click()

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

End Sub

12. Napsauta hiiren kakkospainikkeella toisella vaihtoehtopainikkeella ja napsauta sitten View Code. Lisää seuraava koodirivi:

Private Sub OptionButton2_Click()

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

End Sub

13. Aika luodaan osa. Voit siirtyä toiminto- ja alaryhmän läpi saadaksesi lisätietoja subsista. Jos sinulla on kiire, laita laskettu osa nimeltä moduuli (Visual Basic Editorissa, napsauta Lisää, moduuli).

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

Selitys: ali saa oikeat parametrit laskentataulukon toiminnolle Pmt. Excelissä oleva Pmt-funktio laskee kiinteän maksun maksut ja jatkuva korko. Jos teet kuukausittaisia ​​maksuja (Sheet1.OptionButton1.Value = True), Excel VBA käyttää nopeutta / 12 nopeutta ja nper * 12 nper (maksujen kokonaismäärä). Tulos on negatiivinen luku, koska maksuja pidetään veloituksina. Tuloksen moninkertaistaminen -1: llä antaa myönteisen tuloksen.

Lainalaskurin tulos

Lue myös: