Denne siden lærer deg hvordan du lager en enkel lånekalkulator i Excel VBA. Regnearket inneholder følgende ActiveX -kontroller: to rullefelt og to alternativknapper.
Merk: instruksjonene nedenfor lærer deg ikke hvordan du formaterer regnearket. Vi antar at du vet hvordan du endrer skrifttyper, setter inn rader og kolonner, legger til rammer, endrer bakgrunnsfarger, etc.
Utfør følgende trinn for å lage lånekalkulatoren:
1. Legg til de to rullefeltkontrollene. Klikk på Sett inn fra kategorien Utvikler, og klikk deretter på rullefeltet i seksjonen ActiveX -kontroller.
2. Legg til de to alternativknappene. Klikk på Sett inn fra kategorien Utvikler, og klikk deretter på Alternativknapp i seksjonen ActiveX -kontroller.
Endre følgende egenskaper for rullefeltkontrollene (sørg for at Designmodus er valgt).
3. Høyreklikk på den første rullefeltkontrollen, og klikk deretter på Egenskaper. Sett Min til 0, Max til 20, SmallChange til 0 og Large Change til 2.
4. Høyreklikk på den andre rullefeltkontrollen, og klikk deretter på Egenskaper. Sett Min til 5, Max til 30, SmallChange til 1, LargeChange til 5 og LinkedCell til F8.
Forklaring: Når du klikker på pilen, går rullefeltverdien opp eller ned med SmallChange. Når du klikker mellom glidebryteren og pilen, går rullefeltverdien opp eller ned med LargeChange.
Lag en hendelsesendringshendelse. Koden som er lagt til i regnearksendringshendelsen, blir utført av Excel VBA når du endrer en celle i et regneark.
5. Åpne Visual Basic Editor.
6. Dobbeltklikk på Sheet1 (Sheet1) i Project Explorer.
7. Velg Regneark fra venstre nedtrekksliste og velg Endre fra rullegardinlisten til høyre.
8. Endringshendelsen i regnearket lytter til alle endringene på Sheet1. Vi vil bare at Excel VBA skal kjøre undermenyen Beregn hvis noe endres i celle D4. For å oppnå dette, legg til følgende kodelinje i regnearkendringshendelsen (mer om beregningsunderen senere).
Hvis Target.Address = "$ D $ 4" deretter Application.Run "Beregn"
9. Få riktig prosentandel i celle F6 (endre formatet på celle F6 til prosent). Høyreklikk på den første rullefeltkontrollen, og klikk deretter på Vis kode. Legg til følgende kodelinjer:
Private sub ScrollBar1_Change ()
Område ("F6"). Verdi = ScrollBar1.Value / 100
Application.Run "Calculate"
Slutt Sub
10. Høyreklikk på den andre rullefeltkontrollen, og klikk deretter på Vis kode. Legg til følgende kodelinje:
Private sub ScrollBar2_Change ()
Application.Run "Calculate"
Slutt Sub
11. Høyreklikk på den første alternativknappkontrollen, og klikk deretter på Vis kode. Legg til følgende kodelinje:
Private Sub OptionButton1_Click ()
Hvis OptionButton1.Value = True Then Range ("C12"). Value = "Monthly Payment"
Application.Run "Calculate"
Slutt Sub
12. Høyreklikk på den andre alternativknappkontrollen, og klikk deretter på Vis kode. Legg til følgende kodelinje:
Private Sub OptionButton2_Click ()
Hvis OptionButton2.Value = True Then Range ("C12"). Value = "Årlig betaling"
Application.Run "Calculate"
Slutt Sub
13. På tide å lage suben. Du kan gå gjennom vårt funksjon- og underkapittel for å lære mer om subs. Hvis du har det travelt, plasserer du bare underdelen Calculate i en modul (klikk på Sett inn, modul i Visual Basic Editor).
Delberegning ()
Dim lån så lenge, rate As Double, nper As Integer
lån = Range ("D4"). Verdi
rate = Range ("F6"). Verdi
nper = Område ("F8"). Verdi
If Sheet1.OptionButton1.Value = True Then
rate = rate / 12
nper = nper * 12
Slutt om
Område ("D12"). Verdi = -1 * WorksheetFunction.Pmt (rate, nper, lån)
Slutt Sub
Forklaring: suben får de riktige parameterne for regnearksfunksjonen Pmt. PMT -funksjonen i Excel beregner betalingene for et lån basert på faste betalinger og en konstant rente. Hvis du foretar månedlige utbetalinger (Sheet1.OptionButton1.Value = True), bruker Excel VBA rate / 12 for rate og nper *12 for nper (totalt antall betalinger). Resultatet er et negativt tall, fordi betalinger anses som debet. Å multiplisere resultatet med -1 gir et positivt resultat.
