Denne side lærer dig, hvordan du opretter en simpel låneberegner i Excel VBA. Regnearket indeholder følgende ActiveX -kontroller: to rullepaneler og to valgknapper.
Bemærk: instruktionerne herunder lærer dig ikke, hvordan du formaterer regnearket. Vi antager, at du ved, hvordan du ændrer skrifttyper, indsætter rækker og kolonner, tilføjer kanter, ændrer baggrundsfarver osv.
Udfør følgende trin for at oprette låneberegneren:
1. Tilføj de to rullepanelkontroller. Klik på Indsæt på fanen Udvikler, og klik derefter på Rullepanel i sektionen ActiveX -kontroller.
2. Tilføj de to valgknapper. Klik på Indsæt på fanen Udvikler, og klik derefter på Optionsknap i sektionen ActiveX -kontroller.
Skift følgende egenskaber for rullepanelets kontroller (sørg for, at Designtilstand er valgt).
3. Højreklik på den første rullepanelkontrol, og klik derefter på Egenskaber. Indstil Min til 0, Max til 20, SmallChange til 0 og LargeChange til 2.
4. Højreklik på den anden rullepanelkontrol, og klik derefter på Egenskaber. Indstil Min til 5, Max til 30, SmallChange til 1, LargeChange til 5 og LinkedCell til F8.
Forklaring: Når du klikker på pilen, stiger rulleværdien med SmallChange. Når du klikker mellem skyderen og pilen, stiger rulleværdien med LargeChange.
Opret en regnearksændringshændelse. Kode tilføjet til regnearksændringshændelsen udføres af Excel VBA, når du ændrer en celle i et regneark.
5. Åbn Visual Basic Editor.
6. Dobbeltklik på Sheet1 (Sheet1) i Project Explorer.
7. Vælg Regneark i venstre rulleliste, og vælg Skift fra højre rulleliste.
8. Arbejdsarkændringshændelsen lytter til alle ændringer på Sheet1. Vi vil kun have Excel VBA til at køre Subtitlen Beregn, hvis noget ændrer sig i celle D4. For at opnå dette skal du tilføje følgende kodelinje til regnearksændringshændelsen (mere om underdelen Beregn senere).
Hvis Target.Address = "$ D $ 4" derefter Application.Run "Beregn"
9. Få den rigtige procentdel i celle F6 (skift formatet på celle F6 til procent). Højreklik på den første rullepanelkontrol, og klik derefter på Vis kode. Tilføj følgende kodelinjer:
Privat under ScrollBar1_Change ()
Område ("F6"). Værdi = ScrollBar1.Value / 100
Application.Run "Beregn"
Afslut Sub
10. Højreklik på den anden rullepanelkontrol, og klik derefter på Vis kode. Tilføj følgende kodelinje:
Privat under ScrollBar2_Change ()
Application.Run "Beregn"
Afslut Sub
11. Højreklik på musen med den første knap, og klik derefter på Vis kode. Tilføj følgende kodelinje:
Privat undermulighedButton1_Click ()
Hvis OptionButton1.Value = True Then Range ("C12"). Value = "Monthly Payment"
Application.Run "Beregn"
Afslut Sub
12. Højreklik på musen med den anden knap, og klik derefter på Vis kode. Tilføj følgende kodelinje:
Privat underindstillingButton2_Click ()
Hvis OptionButton2.Value = True Then Range ("C12"). Value = "Årlig betaling"
Application.Run "Beregn"
Afslut Sub
13. Tid til at oprette sub. Du kan gå igennem vores funktion og underkapitel for at lære mere om subs. Hvis du har travlt, skal du blot placere undernavnet Beregn i et modul (Klik på Indsæt, modul i Visual Basic Editor).
Sub Beregn ()
Dim lån så længe, sats som dobbelt, nper som heltal
lån = Range ("D4"). Værdi
rate = Range ("F6"). Værdi
nper = Range ("F8"). Værdi
Hvis Sheet1.OptionButton1.Value = True derefter
sats = sats / 12
nper = nper * 12
Afslut Hvis
Område ("D12"). Værdi = -1 * WorksheetFunction.Pmt (rate, nper, lån)
Afslut Sub
Forklaring: suben får de rigtige parametre for regnearksfunktionen 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.
