See leht õpetab teile, kuidas lihtsat luua laenu kalkulaator sisse Exceli VBA. Tööleht sisaldab järgmisi ActiveX -juhtelemente: kaks kerimisriba ja kaks valikunuppu.
Märkus. Alltoodud juhised ei õpeta töölehe vormindamist. Eeldame, et teate, kuidas muuta fonditüüpe, lisada ridu ja veerge, lisada ääriseid, muuta taustavärve jne.
Laenukalkulaatori loomiseks toimige järgmiselt.
1. Lisage kaks kerimisriba juhtelementi. Klõpsake vahekaardil Arendaja nuppu Sisesta ja seejärel klõpsake jaotises ActiveX -juhtelemendid kerimisriba.
2. Lisage kaks valikunuppu. Klõpsake vahekaardil Arendaja nuppu Sisesta ja seejärel klõpsake jaotises ActiveX -juhtelemendid suvandit Valikunupp.
Muutke kerimisriba juhtelementide järgmisi omadusi (veenduge, et valitud on kujundusrežiim).
3. Paremklõpsake esimest kerimisriba juhtelementi ja seejärel klõpsake nuppu Atribuudid. Valige Min 0, Max 20, SmallChange 0 ja LargeChange 2.
4. Paremklõpsake teist kerimisriba juhtelementi ja seejärel klõpsake nuppu Atribuudid. Valige Min 5, Max 30, SmallChange 1, LargeChange 5 ja LinkedCell F8.
Selgitus: noolele klõpsates liigub kerimisriba väärtus SmallChange abil üles või alla. Kui klõpsate liuguri ja noole vahel, liigub kerimisriba väärtus suure muutmise abil üles või alla.
Töölehe muutmise sündmuse loomine. Töölehe muutmise sündmusele lisatud kood käivitatakse Exceli VBA abil, kui muudate töölehe lahtrit.
5. Avage Visual Basic Editor.
6. Topeltklõpsake Project Exploreris Sheet1 (Sheet1).
7. Valige vasakpoolsest ripploendist Tööleht ja paremalt ripploendist Muuda.
8. Töölehe muutmise sündmus kuulab kõiki muudatusi lehel1. Tahame, et Excel VBA käivitaks alamarvutuse, kui lahtris D4 midagi muutub. Selle saavutamiseks lisage töölehe muutmise sündmusele järgmine koodirida (lisateavet alamarvutuse kohta leiate hiljem).
Kui Target.Address = "$ D $ 4" Siis Application.Run "Arvuta"
9. Hankige õige protsent lahtrisse F6 (muutke lahtri F6 vorming protsendiks). Paremklõpsake esimest kerimisriba juhtelementi ja seejärel nuppu Kuva kood. Lisage järgmised koodiridad:
Privaatne alamkerimineBar1_Change ()
Vahemik ("F6"). Väärtus = ScrollBar1.Value / 100
Application.Run "Arvuta"
End Sub
10. Paremklõpsake teist kerimisriba juhtelementi ja seejärel klõpsake käsku Kuva kood. Lisage järgmine koodirida:
Privaatne alamkerimineBar2_Change ()
Application.Run "Arvuta"
End Sub
11. Paremklõpsake esimese valikunupu juhtelementi ja seejärel nuppu Kuva kood. Lisage järgmine koodirida:
Privaatne alamvalikButton1_Click ()
Kui OptionButton1.Value = Tõene siis vahemik ("C12"). Väärtus = "Kuumakse"
Application.Run "Arvuta"
End Sub
12. Paremklõpsake teise suvandi juhtnuppu ja seejärel nuppu Kuva kood. Lisage järgmine koodirida:
Privaatne alamvalikButton2_Click ()
Kui OptionButton2.Value = Tõene siis vahemik ("C12"). Väärtus = "Iga -aastane makse"
Application.Run "Arvuta"
End Sub
13. Alamosa loomise aeg. Lisateavet alamprogrammide kohta leiate meie peatükist Funktsioon ja alam. Kui teil on kiire, asetage lihtsalt alamosa nimega Arvuta moodulisse (Visual Basic Editoris klõpsake nuppu Lisa, Moodul).
Alamarvutus ()
Hämardage laenu nii kaua, hinnake kui kahekordne, nper nagu täisarv
laen = vahemik ("D4"). Väärtus
määr = vahemik ("F6"). Väärtus
nper = Vahemik ("F8"). Väärtus
If Sheet1.OptionButton1.Value = Tõene siis
määr = määr / 12
nper = nper * 12
Lõpp Kui
Vahemik ("D12"). Väärtus = -1 * TöölehtFunktsioon.Pmt (määr, nper, laen)
End Sub
Selgitus: alam saab töölehe funktsiooni Pmt jaoks õiged parameetrid. Exceli funktsioon PMT arvutab laenumaksed püsimaksete ja püsiva intressimäära alusel. Kui teete igakuiseid makseid (Sheet1.OptionButton1.Value = True), kasutab Excel VBA määra / 12 määra ja nper *12 nper (maksete koguarv) jaoks. Tulemuseks on negatiivne arv, sest makseid peetakse deebetiks. Tulemuse korrutamine -1 -ga annab positiivse tulemuse.
