/ / Lånekalkulator i Excel VBA

Lånekalkulator i Excel VBA

Denne side lærer dig, hvordan du opretter en enkel lån lommeregner i Excel VBA. Regnearket indeholder følgende ActiveX-kontroller: to scrollbars og to valgknapper.

Lånekalkulator i Excel VBA

Bemærk: instruktionerne nedenfor lærer dig ikke, hvordan du skal formatere regnearket. Vi antager, at du ved, hvordan du ændrer skrifttyper, indsætter rækker og kolonner, tilføjer grænser, ændrer baggrundsfarver osv.

Udfør følgende trin for at oprette låneberegner:

1. Tilføj de to rullepanelkontroller. Klik på Indsæt fra fanen Udvikler, og klik derefter på Scroll Bar i afsnittet ActiveX Controls.

Opret rullestenger

2. Tilføj de to valgknapper. Klik på Indsæt fra fanen Udvikler, og klik derefter på Option Button i afsnittet ActiveX Controls.

Opret valgknapper

Skift de følgende egenskaber for rullepanelets kontroller (sørg for, at designtilstand er valgt).

3. Højreklik med den første rullepanel kontrol, og klik derefter på Egenskaber. Indstil Min til 0, Max til 20, Lilleændring til 0 og Storændring til 2.

4. Højreklik med den anden rullepanel kontrol, og klik derefter på Egenskaber. Angiv Min til 5, Max til 30, Lilleændring til 1, Storændring til 5 og LinkedCell til F8.

Forklaring: Når du klikker på pilen, går rullebjælkens værdi op eller ned ved SmallChange. Når du klikker mellem skyderen og pilen, går rulleværdien op eller ned ved LargeChange.

Opret et regnearkændringsbegivenhed. Kode føjet til regnearkets ændringshændelse udføres af Excel VBA, når du ændrer en celle på et regneark.

5. Åbn Visual Basic Editor.

6. Dobbeltklik på Sheet1 (Sheet1) i Project Explorer.

7. Vælg Arbejdsark fra den venstre rullemenu og vælg Skift fra den højre rulleliste.

Arbejdsark Skift begivenhed i Excel VBA

8. Arbejdsarkskiftehændelsen lytter til alle ændringer på ark1. Vi vil kun have Excel VBA til at køre beregningsunderdelen, hvis noget ændrer sig i celle D4. For at opnå dette skal du føje følgende kode linje til regnearkets ændringshændelse (mere om beregningsdelen senere).

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

9. Få den rigtige procentdel i celle F6 (skift formatet af celle F6 til procent). Højre museklik på den første rullestyringskontrol, og klik derefter på Vis kode. Tilføj følgende kode linjer:

Private Sub ScrollBar1_Change()

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

End Sub

10. Højre museklik på den anden rullepanel kontrol, og klik derefter på Vis kode. Tilføj følgende kode linje:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. Højreklik med den første valgknappskontrol, og klik derefter på Vis kode. Tilføj følgende kode linje:

Private Sub OptionButton1_Click()

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

End Sub

12. Højre museklik på den anden valgknappskontrol, og klik derefter på Vis kode. Tilføj følgende kode linje:

Private Sub OptionButton2_Click()

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

End Sub

13. Tid til at oprette sub. Du kan gennemgå vores Funktion og Under kapitel for at lære mere om subs. Hvis du har travlt, skal du blot placere den under, der hedder Beregn i et modul (I Visual Basic Editor skal du klikke på Insert, 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

Forklaring: underen får de rigtige parametre til regnearkfunktionen Pmt. Pmt-funktionen i Excel beregner betalingerne for et lån baseret på konstante betalinger og en konstant rente. Hvis du foretager månedlige betalinger (Sheet1.OptionButton1.Value = True), bruger Excel VBA rate / 12 for rate og nper * 12 for nper (samlet antal betalinger). Resultatet er et negativt tal, fordi betalinger betragtes som en debet. Multiplicering af resultatet med -1 giver et positivt resultat.

Lånekalkulator Resultat

Læs også: