Šī lapa māca, kā izveidot vienkāršu aizdevuma kalkulators iekšā Excel VBA. Darblapā ir šādas ActiveX vadīklas: divas ritjoslas un divas iespēju pogas.
Piezīme. Tālāk sniegtajos norādījumos nav mācīts, kā formatēt darblapu. Mēs pieņemam, ka jūs zināt, kā mainīt fontu veidus, ievietot rindas un kolonnas, pievienot apmales, mainīt fona krāsas utt.
Lai izveidotu aizdevuma kalkulatoru, veiciet tālāk norādītās darbības.
1. Pievienojiet abas ritjoslas vadīklas. Cilnē Izstrādātājs noklikšķiniet uz Ievietot un pēc tam noklikšķiniet uz Ritjosla sadaļā ActiveX vadīklas.
2. Pievienojiet abas opciju pogas. Cilnē Izstrādātājs noklikšķiniet uz Ievietot un pēc tam noklikšķiniet uz Opcijas poga sadaļā ActiveX vadīklas.
Mainiet šādus ritjoslas vadīklu rekvizītus (pārliecinieties, vai ir atlasīts dizaina režīms).
3. Ar peles labo pogu noklikšķiniet uz pirmās ritjoslas vadīklas un pēc tam noklikšķiniet uz Rekvizīti. Iestatiet Min uz 0, Max uz 20, SmallChange uz 0 un LargeChange uz 2.
4. Ar peles labo pogu noklikšķiniet uz otrās ritjoslas vadīklas un pēc tam noklikšķiniet uz Rekvizīti. Iestatiet Min uz 5, Max uz 30, SmallChange uz 1, LargeChange uz 5 un LinkedCell uz F8.
Paskaidrojums: noklikšķinot uz bultiņas, ritināšanas joslas vērtība palielinās vai samazinās, izmantojot SmallChange. Noklikšķinot starp slīdni un bultiņu, ritjoslas vērtība palielinās vai samazināsies par LargeChange.
Izveidojiet darblapas maiņas notikumu. Darblapas maiņas notikumam pievienoto kodu izpildīs Excel VBA, mainot darblapas šūnu.
5. Atveriet Visual Basic redaktoru.
6. Veiciet dubultklikšķi uz Sheet1 (Sheet1) Project Explorer.
7. Kreisajā nolaižamajā sarakstā izvēlieties Darblapa un labajā nolaižamajā sarakstā izvēlieties Mainīt.
8. Darblapas maiņas notikums uzklausa visas 1. lapas izmaiņas. Mēs vēlamies, lai Excel VBA palaistu apakškalkulāciju, ja šūnā D4 kaut kas mainās. Lai to panāktu, pievienojiet darblapas maiņas notikumam šādu koda rindu (vairāk par apakškalkulācijas aprēķinu vēlāk).
Ja Target.Address = "$ D $ 4", tad Application.Run "Aprēķināt"
9. Iegūstiet pareizo procentu šūnā F6 (mainiet šūnas F6 formātu uz procentu). Ar peles labo pogu noklikšķiniet uz pirmās ritjoslas vadīklas un pēc tam noklikšķiniet uz Skatīt kodu. Pievienojiet šādas koda rindiņas:
Privāta apakšritināšanas josla1_Change ()
Diapazons ("F6"). Vērtība = ScrollBar1.Value / 100
Lietojumprogramma. Palaidiet "Aprēķināt"
Beigu apakš
10. Ar peles labo pogu noklikšķiniet uz otrās ritjoslas vadīklas un pēc tam noklikšķiniet uz Skatīt kodu. Pievienojiet šādu koda rindiņu:
Privāta apakšritināšanas josla2_Change ()
Lietojumprogramma. Palaidiet "Aprēķināt"
Beigu apakš
11. Ar peles labo pogu noklikšķiniet uz pirmās opcijas pogas vadības pogas un pēc tam noklikšķiniet uz Skatīt kodu. Pievienojiet šādu koda rindiņu:
Privāta apakš opcijaButton1_Click ()
Ja OptionButton1.Value = True, tad diapazons ("C12"). Vērtība = "Ikmēneša maksājums"
Lietojumprogramma. Palaidiet "Aprēķināt"
Beigu apakš
12. Ar peles labo pogu noklikšķiniet uz otrās opcijas pogas vadības pogas un pēc tam noklikšķiniet uz Skatīt kodu. Pievienojiet šādu koda rindiņu:
Privāta apakš opcijaButton2_Click ()
Ja OptionButton2.Value = True, tad diapazons ("C12"). Vērtība = "Gada maksājums"
Lietojumprogramma. Palaidiet "Aprēķināt"
Beigu apakš
13. Laiks izveidot apakš. Jūs varat apmeklēt mūsu nodaļu Funkcija un apakšnodaļa, lai uzzinātu vairāk par apakšsadaļām. Ja jūs steidzaties, vienkārši ievietojiet apakšnosaukumu Aprēķināt modulī (Visual Basic redaktorā noklikšķiniet uz Ievietot, Modulis).
Apakšaprēķināt ()
Dim aizdevums tik ilgi, likme kā dubultā, nper kā vesels skaitlis
aizdevums = diapazons ("D4"). Vērtība
likme = diapazons ("F6"). Vērtība
nper = Diapazons ("F8"). Vērtība
Ja Sheet1.OptionButton1.Value = True Tad
likme = likme / 12
nper = nper * 12
Beigas Ja
Diapazons ("D12"). Vērtība = -1 * WorksheetFunction.Pmt (likme, nper, aizdevums)
Beigu apakš
Paskaidrojums: apakšprogramma iegūst pareizos parametrus darblapas funkcijai Pmt. Programmas Excel PMT funkcija aprēķina maksājumus par aizdevumu, pamatojoties uz nemainīgiem maksājumiem un nemainīgu procentu likmi. Ja veicat ikmēneša maksājumus (Sheet1.OptionButton1.Value = True), Excel VBA izmanto likmi / 12 likmei un nper *12 - nper (kopējais maksājumu skaits). Rezultāts ir negatīvs skaitlis, jo maksājumi tiek uzskatīti par debetu. Reizinot rezultātu ar -1, tiek iegūts pozitīvs rezultāts.
