/ / Kalkulator kredita u programu Excel VBA

Kreditni kalkulator u programu Excel VBA

Ova stranica vas uči kako stvoriti jednostavan kalkulator kredita u Excel VBA, Radni list sadrži sljedeće ActiveX kontrole: dvije trake za pomicanje i dvije opcijske tipke.

Kreditni kalkulator u programu Excel VBA

Napomena: niže navedene upute ne upućuju na to kako formatirati radni list. Pretpostavljamo da znate izmijeniti vrste fonta, umetnuti retke i stupce, dodati granice, promijeniti pozadinske boje itd.

Izvršite sljedeće korake za izradu kreditnog kalkulatora:

1. Dodajte dvije kontrole za pomicanje pomaka. Kliknite Umetni s kartice Developer, a zatim kliknite traku za pomicanje u odjeljku ActiveX kontrola.

Izradi trake za pomicanje

2. Dodajte dvije opcijske tipke. Kliknite Umetni s kartice Developer, a zatim kliknite gumb Option u odjeljku ActiveX Controls.

Izradite gumbe opcija

Promijenite sljedeća svojstva upravljača za pomicanje pomaka (provjerite je li odabran način rada Dizajn).

3. Desnim klikom miša kliknite na prvu kontrolu pomake za pomicanje, a zatim kliknite Svojstva. Postavite Min na 0, Max do 20, SmallChange na 0 i LargeChange na 2.

4. Desnom tipkom miša kliknite drugu kontrolu pomake za pomicanje, a zatim kliknite Svojstva. Postavite Min na 5, Max do 30, SmallChange na 1, LargeChange na 5 i LinkedCell do F8.

Objašnjenje: kada kliknete strelicu, vrijednost pomaka za pomicanje pomiče se gore ili dolje pomoću SmallChange. Kada kliknete između klizača i strelice, vrijednost pomaka za pomicanje pomiče se prema gore ili prema dolje pomoću opcije Velika promjena.

Izradite događaj promjene radnog lista. Kôd dodan u događaj promjene radnog lista izvršit će Excel VBA kada promijenite ćeliju na radnom listu.

5. Otvorite Visual Basic Editor.

6. Dvaput kliknite na Sheet1 (Sheet1) u Project Exploreru.

7. S padajućeg popisa lijevo odaberite Radni list i odaberite Promijeni s desnog padajućeg popisa.

Radni list Promjena događaja u programu Excel VBA

8. Radni list Promjena događaja sluša sve promjene na Sheet1. Želimo da Excel VBA izvodi izračunati pod ako nešto promijeni u ćeliji D4. Da biste to postigli, dodajte sljedeću liniju koda u događaj Promjena radnoga lista (više o naknadnom izračunu).

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

9. Dobijte pravi postotak u ćeliji F6 (promijenite format ćelije F6 u postotak). Desnim klikom miša kliknite na prvu kontrolu pomake za pomicanje, a zatim kliknite Prikazni kod. Dodajte sljedeće retke kôda:

Private Sub ScrollBar1_Change()

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

End Sub

10. Desnom tipkom miša kliknite drugu kontrolu pomake za pomicanje, a zatim kliknite View Code. Dodajte sljedeću liniju koda:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. Desnom tipkom miša kliknite kontrolni gumb Prve opcije, a zatim kliknite Prikazni kod. Dodajte sljedeću liniju koda:

Private Sub OptionButton1_Click()

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

End Sub

12. Desnom tipkom miša kliknite kontrolni gumb druge opcije, a zatim kliknite View Code. Dodajte sljedeću liniju koda:

Private Sub OptionButton2_Click()

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

End Sub

13. Vrijeme za stvaranje suba. Možete proći kroz našu funkciju i pod poglavlje da biste saznali više o subs. Ako ste žurili, jednostavno stavite pod nazivom Izračunaj u modul (U Visual Basic Editoru kliknite Insert, Module).

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

Obrazloženje: pod dobiva odgovarajuće parametre za funkciju radnog lista Pmt. Funkcija Pmt u Excelu izračunava isplate za zajam na temelju stalnih plaćanja i stalne kamatne stope. Ako izvršite mjesečna plaćanja (Sheet1.OptionButton1.Value = True), Excel VBA koristi stopu / 12 za stopu i nper * 12 za nper (ukupan broj plaćanja). Rezultat je negativan broj jer se plaćanja smatraju teretom. Množenje rezultata za -1 daje pozitivan rezultat.

Kreditni rezultat kredita

Također pročitajte: