/ / Paskolų skaičiuoklė Excel VBA

Paskolų skaičiuoklė Excel VBA

Šiame puslapyje mokoma, kaip sukurti paprastą paskolos skaičiuoklė in Excel VBA. Darbalapyje yra šios "ActiveX" valdikliai: dvi slinkties juostos ir du pasirinkimo mygtukai.

Paskolų skaičiuoklė Excel VBA

Pastaba: toliau pateiktose instrukcijose nėra išmokyti, kaip formatuokite darbo lapą. Mes manome, kad žinote, kaip pakeisti šrifto tipus, įterpti eilutes ir stulpelius, pridėti ribas, pakeisti fono spalvas ir tt

Paskolos skaičiuoklio sukūrimui atlikite šiuos veiksmus:

1. Pridėkite du slinkties juostos valdiklius. Spustelėkite Įterpti iš skirtuko Kūrėjas ir tada spustelėkite skirtuką "ActiveX Controls", esančią naršymo juostoje.

Sukurti slinkties juostas

2. Įtraukite du pasirinkčių mygtukus. Spustelėkite Insert (Įterpti) skirtuke Developer (kūrėjas) ir tada spustelėkite Option Button ActiveX Controls skyriuje.

Sukurkite pasirinkimo mygtukus

Pakeiskite šias slinkties juostos valdiklių savybes (įsitikinkite, kad pasirinktas "Design Mode").

3. Dešiniu pelės klavišu spustelėkite pirmąjį slinkties juostos valdiklį, tada spustelėkite Ypatybės. Nustatykite "Min" iki 0, maks. 20, "SmallChange to 0" ir "LargeChange to 2".

4. Dešiniu pelės klavišu spustelėkite antrąjį slinkties juostos valdiklį, tada spustelėkite Ypatybės. Nustatykite "Min" iki 5, maks. 30, "SmallChange to 1", "LargeChange to 5", "LinkedCell" ir "F8".

Paaiškinimas: spustelėjus rodyklę, slinkties juostos reikšmė didėja arba mažėja, naudojant "SmallChange". Kai paspausite tarp slankiklio ir rodyklės, slinkties juostos reikšmė padidės arba sumažės iki LargeChange.

Sukurkite darbo lapo keitimo įvykį. Kodą, pridėtą prie darbų sąrašo pakeitimo įvykio, atliks "Excel VBA", kai pakeisite ląstelę darbalapyje.

5. Atidarykite "Visual Basic" redaktorių.

6. Dukart spustelėkite "Sheet1" (Sheet1) "Project Explorer".

7. Iš kairės išskleidžiamojo sąrašo pasirinkite Darbo lapą ir iš dešinės išplečiamojo sąrašo pasirinkite Keisti.

Darbalaukio keitimo įvykis programoje "Excel VBA"

8 Darbų sąrašo keitimo įvykis klauso visų pakeitimų "Sheet1". Mes tik norime, kad "Excel VBA" paleistumėte "Calculate sub", jei kažkas pasikeistų ląstelėje D4. Norėdami tai pasiekti, pridėkite šią darbo linijos lapą į darbų sąrašo keitimo įvykį (daugiau apie Apskaičiuoti žemiau pateiktą toliau).

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

9. Gaukite tinkamą procentinį dydį ląstelėje F6 (pakeiskite ląstelių F6 formatą į procentinę dalį). Dešiniu pelės klavišu spustelėkite pirmąjį slinkties juostos valdiklį, tada spustelėkite Rodyti kodą. Įtraukite šias kodo eilutes:

Private Sub ScrollBar1_Change()

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

End Sub

10. Dešiniu pelės klavišu spustelėkite antrąjį slinkties juostos valdiklį, tada spustelėkite Rodyti kodą. Įtraukite šią kodo eilutę:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. Dešiniu pelės klavišu spustelėkite pirmojo pasirinkimo mygtuko valdymą, tada spustelėkite Rodyti kodą. Įtraukite šią kodo eilutę:

Private Sub OptionButton1_Click()

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

End Sub

12. Dešiniu pelės klavišu spustelėkite antrojo pasirinkimo mygtuko valdymą, tada spustelėkite Rodyti kodą. Įtraukite šią kodo eilutę:

Private Sub OptionButton2_Click()

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

End Sub

13. Laikas sukurti sub. Galite pereiti per mūsų funkciją ir pogrupį, kad sužinotumėte daugiau apie sub. Jei skubate, paprasčiausiai įdiekite pogrupį Apskaičiuoti į modulį (redaktoriuje Visual Basic spustelėkite Įterpti, modulis).

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

Paaiškinimas: sub gauna tinkamus parametrus darbalapio funkcijai Pmt. "Excel" funkcija "Pmt" apskaičiuoja mokėjimus už paskolą, pagrįstą pastoviais mokėjimais ir nuolatine palūkanų norma. Jei atliksite mėnesinius mokėjimus (Sheet1.OptionButton1.Value = True), "Excel VBA" naudoja normą "12", o "nper * 12" - "nper" (bendras mokėjimų skaičius). Rezultatas yra neigiamas skaičius, nes mokėjimai laikomi debetu. Rezultatą dauginant iš -1 gaunamas teigiamas rezultatas.

Paskolų skaičiuoklio rezultatas

Taip pat perskaitykite: