/ / Hitel számológép Excel VBA

Hitel számológép Excel VBA-ban

Ez az oldal megtanítja, hogyan lehet egyszerűen létrehozni kölcsön számológép ban ben Excel VBA. A munkalap az alábbi ActiveX vezérlőket tartalmazza: két görgetősávot és két opcionális gombot.

Hitel számológép Excel VBA-ban

Megjegyzés: az alábbi utasítások nem tanítják meg a munkalap formázását. Feltételezzük, hogy tudja megváltoztatni a betűtípusokat, sorokat és oszlopokat beszúrni, határokat adni, háttérszíneket változtatni stb.

Hajtsa végre a következő lépéseket a kölcsönt kalkulátor létrehozásához:

1. Adja hozzá a két görgetősáv vezérlőit. Kattintson a Beszúrás lehetőségre a Fejlesztői lapon, majd kattintson a görgetősávra az ActiveX-vezérlők részben.

Görgetőgombok létrehozása

2. Adja hozzá a két opcionális gombot. Kattintson a Beszúrás lehetőségre a Fejlesztői lapon, majd kattintson az Opciók gombra az ActiveX-vezérlők részben.

Opcióbillentyűk létrehozása

Módosítsa a gördítősáv vezérlőinek következő tulajdonságait (győződjön meg róla, hogy a Tervezési mód van kiválasztva).

3. Jobb egérgombbal kattintson az első görgetősáv vezérlőre, majd kattintson a Tulajdonságok parancsra. Állítsa a Min értéket 0-ra, Max-20-ra, SmallChange-re 0-ra és LargeChange-re 2-re.

4. Jobb egérgombbal kattintson a második gördítősáv vezérlőre, majd kattintson a Tulajdonságok parancsra. Állítsa a Min értéket 5-re, Max-30-ra, SmallChange-re 1-re, LargeChange-re 5-re, és LinkedCell-re az F8-ra.

Magyarázat: ha rákattint a nyílra, a gördítősáv értéke felfelé vagy lefelé a SmallChange értékkel. Amikor a csúszkára és a nyílra kattint, a gördítősáv értéke felfelé vagy lefelé NagyChange értékkel.

Munkafüzet-változási esemény létrehozása. A Munkalap változás eseményhez hozzáadott kódot az Excel VBA hajtja végre, amikor egy munkalapon lévő cellát módosít.

5. Nyissa meg a Visual Basic szerkesztőt.

6. Kattintson duplán a Sheet1 (Sheet1) lapra a Project Explorerben.

7. A bal oldali legördülő listából válassza ki a Munkalapot, és válassza a jobb oldali legördülő listából a Változtatás lehetőséget.

Munkalap Változás esemény Excel VBA-ban

8. A Munkalap megváltoztatási esemény figyeli az 1. lap összes módosítását. Csak azt szeretnénk, hogy az Excel VBA futtassa a Calculate sub-t, ha valami megváltozik a D4 cellában. Ehhez a következő kódsorba kell beillesztenie a Munkalap megváltoztatási eseményt (többet a Kalkuláció későbbi részéről).

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

9. Határozza meg a megfelelő százalékot az F6 cellában (változtassa meg az F6 cellátum formátumát százalékban). Kattintson jobb egérgombbal az első görgetősáv vezérlőre, majd kattintson a Kód megtekintése parancsra. Adja hozzá a következő kódsorokat:

Private Sub ScrollBar1_Change()

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

End Sub

10. Jobb egérgombbal kattintson a második görgetősáv vezérlőre, majd kattintson a Kód megtekintése parancsra. Adja hozzá a következő kódot:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. Jobb egérgombbal kattintson az első opciógombra, majd kattintson a Kód megtekintése parancsra. Adja hozzá a következő kódot:

Private Sub OptionButton1_Click()

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

End Sub

12. Jobb egérgombbal kattintson a második opciógombra, majd kattintson a Kód megtekintése parancsra. Adja hozzá a következő kódot:

Private Sub OptionButton2_Click()

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

End Sub

13. Az alkalom létrehozása. A Funkció és a Sub fejezeten keresztül tudhat meg többet a subsről. Ha siet, egyszerűen helyezze el a Calculate nevű részt egy modulba (a Visual Basic szerkesztőben kattintson a Beszúrás, modul lehetőségre).

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

Magyarázat: a sub megkapja a megfelelő paramétereket a Pmt munkalap funkcióhoz. Az Excel-ben található Pmt függvény az állandó fizetésekre és állandó kamatlábra alapozott kölcsön kifizetését számolja ki. Ha havi fizetéseket hajt végre (Sheet1.OptionButton1.Value = True), az Excel VBA a sebességet / 12-et használja, a nper * 12 pedig a nper (a kifizetések teljes számát). Az eredmény egy negatív szám, mert a befizetéseket terhelésnek kell tekinteni. Az eredmény -1-gyel való szorzása pozitív eredményt ad.

Hitel számológép eredménye

Szintén olvasható: