Ova stranica uči vas kako stvoriti jednostavan kalkulator kredita u Excel VBA. Radni list sadrži sljedeće ActiveX kontrole: dvije trake za pomicanje i dva gumba s opcijama.
Napomena: donje upute vas ne uče kako oblikovati radni list. Pretpostavljamo da znate promijeniti vrste fontova, umetnuti retke i stupce, dodati obrube, promijeniti boje pozadine itd.
Izvršite sljedeće korake za izradu kalkulatora kredita:
1. Dodajte dvije kontrole trake za pomicanje. Pritisnite Umetni na kartici Razvojni programer, a zatim kliknite Traka za pomicanje u odjeljku Kontrole ActiveX.
2. Dodajte dva gumba za opcije. Pritisnite Umetni na kartici Razvojni programer, a zatim kliknite gumb Opcije u odjeljku Kontrole ActiveX.
Promijenite sljedeća svojstva kontrola klizne trake (provjerite je li odabran način dizajna).
3. Desnom tipkom miša kliknite prvu kontrolu trake za pomicanje, a zatim kliknite Svojstva. Postavite Min na 0, Max na 20, SmallChange na 0 i LargeChange na 2.
4. Desnom tipkom miša kliknite drugu kontrolu trake za pomicanje, a zatim kliknite Svojstva. Postavite Min na 5, Max na 30, SmallChange na 1, LargeChange na 5 i LinkedCell na F8.
Objašnjenje: kad kliknete na strelicu, vrijednost trake za pomicanje se povećava ili smanjuje pomoću SmallChange. Kada kliknete između klizača i strelice, vrijednost trake za pomicanje se povećava ili smanjuje pomoću LargeChange.
Napravite događaj promjene radnog lista. Kôd dodan događaju 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. Odaberite Radni list s lijevog padajućeg popisa i odaberite Promijeni s desnog padajućeg popisa.
8. Događaj promjene radnog lista preslušava sve promjene na listu 1. Želimo samo da Excel VBA pokrene podračun Izračunaj ako se nešto promijeni u ćeliji D4. Da biste to postigli, dodajte sljedeći kodni redak u Događaj promjene radnog lista (kasnije o podračunu Izračunaj više).
Ako je Target.Address = "$ D $ 4" Zatim Application.Run "Izračunaj"
9. Dobijte pravi postotak u ćeliji F6 (promijenite format ćelije F6 u postotak). Desnom tipkom miša kliknite prvu kontrolu trake za pomicanje, a zatim kliknite Prikaz koda. Dodajte sljedeće retke koda:
Private Sub ScrollBar1_Change ()
Raspon ("F6"). Vrijednost = ScrollBar1.Vrijednost / 100
Application.Pokrenite "Izračunaj"
Kraj podm
10. Desnom tipkom miša kliknite drugu kontrolu klizne trake, a zatim kliknite View Code. Dodajte sljedeći kodni redak:
Privatna pomoćna traka ScrollBar2_Change ()
Application.Pokrenite "Izračunaj"
Kraj podm
11. Desnom tipkom miša kliknite kontrolu prve opcije, a zatim kliknite View Code. Dodajte sljedeći kodni redak:
Privatna pomoćna opcija Button1_Click ()
Ako je OptionButton1.Value = True onda raspon ("C12"). Vrijednost = "Mjesečna uplata"
Application.Pokrenite "Izračunaj"
Kraj podm
12. Desnom tipkom miša kliknite drugu tipku kontrole, a zatim kliknite Prikaz koda. Dodajte sljedeći kodni redak:
Privatna podopcijaButton2_Click ()
Ako je OptionButton2.Value = True then Range ("C12"). Value = "Yearly Payment"
Application.Pokrenite "Izračunaj"
Kraj podm
13. Vrijeme za stvaranje podmornice. Možete saznati više o pretplatnicima kroz poglavlje Funkcija i Podpoglavlje. Ako ste u žurbi, jednostavno postavite podimenat Izračunaj u modul (u uređivaču programa Visual Basic kliknite Umetni, modul).
Podračunaj ()
Dim zajam kao dug, stopa kao dvostruka, n kao cjelobrojna
zajam = raspon ("D4"). Vrijednost
rate = Raspon ("F6"). Vrijednost
nper = Raspon ("F8"). Vrijednost
Ako je Sheet1.OptionButton1.Value = Tačno
stopa = stopa / 12
nper = nper * 12
Završi ako
Raspon ("D12"). Vrijednost = -1 * Funkcija radnog lista.Pmt (stopa, nper, posudba)
Kraj podm
Objašnjenje: podpoglavlje dobiva prave parametre za funkciju radnog lista Pmt. Funkcija PMT u Excelu izračunava plaćanja za zajam na temelju stalnih plaćanja i stalne kamatne stope. Ako plaćate mjesečno (Sheet1.OptionButton1.Value = True), Excel VBA koristi rate / 12 za rate i nper *12 za nper (ukupan broj plaćanja). Rezultat je negativan broj jer se plaćanja smatraju zaduženjem. Pomnoženje rezultata s -1 daje pozitivan rezultat.
