Šis puslapis moko, kaip sukurti paprastą paskolos skaičiuoklė į Excel VBA. Darbo lape yra šie „ActiveX“ valdikliai: dvi slinkties juostos ir du parinkčių mygtukai.
Pastaba: toliau pateiktos instrukcijos nemoko, kaip formatuoti darbalapį. Manome, kad žinote, kaip pakeisti šriftų tipus, įterpti eilutes ir stulpelius, pridėti kraštines, pakeisti fono spalvas ir kt.
Norėdami sukurti paskolos skaičiuoklę, atlikite šiuos veiksmus:
1. Pridėkite du slinkties juostos valdiklius. Skirtuke „Kūrėjas“ spustelėkite „Įterpti“, tada „ActiveX“ valdiklių skyriuje spustelėkite slinkties juostą.
2. Pridėkite du parinkčių mygtukus. Skirtuke „Kūrėjas“ spustelėkite „Įterpti“, tada „ActiveX“ valdiklių skyriuje spustelėkite parinkties mygtuką.
Pakeiskite šias slinkties juostos valdiklių savybes (įsitikinkite, kad pasirinktas dizaino režimas).
3. Dešiniuoju pelės mygtuku spustelėkite pirmąjį slinkties juostos valdiklį, tada spustelėkite Ypatybės. Nustatykite Min į 0, Max į 20, SmallChange į 0 ir LargeChange į 2.
4. Dešiniuoju pelės mygtuku spustelėkite antrą slinkties juostos valdiklį, tada spustelėkite Ypatybės. Nustatykite Min iki 5, Max į 30, SmallChange į 1, LargeChange į 5 ir LinkedCell į F8.
Paaiškinimas: spustelėjus rodyklę, slinkties juostos vertė „SmallChange“ padidėja arba sumažėja. Spustelėjus tarp slankiklio ir rodyklės, slinkties juostos vertė padidėja arba sumažėja „LargeChange“.
Sukurkite darbalapio keitimo įvykį. Į darbalapio keitimo įvykį įtrauktas kodas bus vykdomas naudojant „Excel VBA“, kai pakeisite darbalapio langelį.
5. Atidarykite „Visual Basic“ redaktorių.
6. „Project Explorer“ dukart spustelėkite Sheet1 (Sheet1).
7. Kairiajame išskleidžiamajame sąraše pasirinkite Darbo lapas ir dešinėje išskleidžiamajame sąraše pasirinkite Keisti.
8. Darbo lapo keitimo įvykis išklauso visus 1 lapo pakeitimus. Mes tik norime, kad „Excel VBA“ paleistų „Calculate“ antrinę dalį, jei kas nors pasikeis ląstelėje D4. Norėdami tai pasiekti, pridėkite šią kodo eilutę prie darbalapio keitimo įvykio (daugiau apie „Calculate sub“ vėliau).
Jei Target.Address = "$ D $ 4", tada Application.Run "Apskaičiuoti"
9. Gaukite tinkamą procentą langelyje F6 (pakeiskite langelio F6 formatą į procentą). Dešiniuoju pelės mygtuku spustelėkite pirmąjį slinkties juostos valdiklį, tada spustelėkite Peržiūrėti kodą. Pridėkite šias kodo eilutes:
Privati antrinė slinkties juosta1_Change ()
Diapazonas („F6“). Vertė = „ScrollBar1.Value“ / 100
Application.Vykdyti "Apskaičiuoti"
Pabaiga Sub
10. Dešiniuoju pelės mygtuku spustelėkite antrą slinkties juostos valdiklį, tada spustelėkite Peržiūrėti kodą. Pridėkite šią kodo eilutę:
Privatus poslinkisBar2_Change ()
Application.Vykdyti "Apskaičiuoti"
Pabaiga Sub
11. Dešiniuoju pelės mygtuku spustelėkite pirmosios parinkties mygtuko valdiklį, tada spustelėkite Peržiūrėti kodą. Pridėkite šią kodo eilutę:
Private Sub OptionButton1_Click ()
Jei OptionButton1.Value = Tiesa tada diapazonas ("C12"). Vertė = "Mėnesinis mokėjimas"
Application.Vykdyti "Apskaičiuoti"
Pabaiga Sub
12. Dešiniuoju pelės mygtuku spustelėkite antrojo pasirinkimo mygtuko valdiklį, tada spustelėkite Peržiūrėti kodą. Pridėkite šią kodo eilutę:
„Private Sub OptionButton2_Click“ ()
Jei OptionButton2.Value = Tiesa tada diapazonas ("C12"). Vertė = "Metinis mokėjimas"
Application.Vykdyti "Apskaičiuoti"
Pabaiga Sub
13. Laikas sukurti sub. Norėdami sužinoti daugiau apie abonentus, galite pereiti į skyrių „Funkcija ir antrinis skyrius“. Jei skubate, tiesiog įdėkite antraštę Apskaičiuoti į modulį („Visual Basic“ redaktoriuje spustelėkite Įterpti, Modulis).
Sub Apskaičiuoti ()
Nepakankama paskola, palūkanų norma kaip dviguba, nper kaip sveikasis skaičius
paskola = diapazonas („D4“). Vertė
norma = diapazonas ("F6"). Reikšmė
nper = Diapazonas ("F8"). Reikšmė
Jei Sheet1.OptionButton1.Value = Tiesa tada
norma = norma / 12
nper = nper * 12
Pabaiga Jei
Diapazonas („D12“). Vertė = -1 * WorksheetFunction.Pmt (norma, nper, paskola)
Pabaiga Sub
Paaiškinimas: antrinis gauna tinkamus parametrus darbalapio funkcijai Pmt. „Excel“ PMT funkcija apskaičiuoja paskolos mokėjimus pagal pastovius mokėjimus ir pastovią palūkanų normą. Jei mokate mėnesinius mokėjimus („Sheet1.OptionButton1.Value = True“), „Excel VBA“ naudoja normą / 12 rodikliui ir nper *12 - nper (bendras mokėjimų skaičius). Rezultatas yra neigiamas skaičius, nes mokėjimai laikomi debetu. Padauginus rezultatą iš -1, gaunamas teigiamas rezultatas.
