Această pagină vă învață cum să creați un simplu calculator de împrumut în Excel VBA. Foaia de lucru conține următoarele controale ActiveX: două bare de derulare și două butoane de opțiune.
Notă: instrucțiunile de mai jos nu vă învață cum să formatați foaia de lucru. Presupunem că știți cum să schimbați tipurile de fonturi, să inserați rânduri și coloane, să adăugați margini, să schimbați culorile de fundal etc.
Executați pașii următori pentru a crea calculatorul de împrumut:
1. Adăugați cele două controale ale barei de derulare. Faceți clic pe Inserare din fila Dezvoltator și apoi faceți clic pe Bara de derulare în secțiunea Control ActiveX.
2. Adăugați cele două butoane de opțiune. Faceți clic pe Inserare din fila Dezvoltator și apoi faceți clic pe butonul Opțiune din secțiunea Control ActiveX.
Modificați următoarele proprietăți ale comenzilor barei de derulare (asigurați-vă că este selectat Modul de proiectare).
3. Faceți clic dreapta pe primul control al barei de derulare, apoi faceți clic pe Proprietăți. Setați Min la 0, Max la 20, SmallChange la 0 și LargeChange la 2.
4. Faceți clic dreapta cu mouse-ul pe al doilea control al barei de derulare, apoi faceți clic pe Properties. Setați Min la 5, Max la 30, SmallChange la 1, LargeChange la 5 și LinkedCell la F8.
Explicație: când faceți clic pe săgeată, valoarea barei de defilare crește sau scade cu SmallChange. Când faceți clic între glisor și săgeată, valoarea barei de derulare crește sau scade cu LargeChange.
Creați un eveniment de schimbare a foii de lucru. Codul adăugat la evenimentul de modificare a foii de lucru va fi executat de Excel VBA atunci când schimbați o celulă pe o foaie de lucru.
5. Deschideți Editorul Visual Basic.
6. Faceți dublu clic pe Sheet1 (Sheet1) în Project Explorer.
7. Alegeți Foaie de lucru din lista verticală din stânga și alegeți Modificare din lista verticală din dreapta.
8. Evenimentul de schimbare a foii de lucru ascultă toate modificările din Sheet1. Vrem ca Excel VBA să ruleze sub Calculare dacă se schimbă ceva în celula D4. Pentru a realiza acest lucru, adăugați următoarea linie de cod la Evenimentul de schimbare a foii de lucru (mai multe despre subsolul Calculați mai târziu).
Dacă Target.Address = "$ D $ 4" atunci Application.Run "Calculate"
9. Obțineți procentajul potrivit în celula F6 (modificați formatul celulei F6 în procent). Faceți clic dreapta pe primul control al barei de derulare, apoi faceți clic pe Vizualizare cod. Adăugați următoarele linii de cod:
Private Sub ScrollBar1_Change ()
Gama („F6”). Valoare = ScrollBar1.Value / 100
Application.Run "Calculate"
Sfârșitul Sub
10. Faceți clic dreapta pe al doilea control al barei de derulare, apoi faceți clic pe Vizualizare cod. Adăugați următoarea linie de cod:
Private Sub ScrollBar2_Change ()
Application.Run "Calculate"
Sfârșitul Sub
11. Faceți clic dreapta pe butonul de control al primei opțiuni, apoi faceți clic pe Vizualizare cod. Adăugați următoarea linie de cod:
Private Option OptionButton1_Click ()
Dacă OptionButton1.Value = True Then Range („C12"). Valoare = „Plata lunară"
Application.Run "Calculate"
Sfârșitul Sub
12. Faceți clic dreapta pe butonul de control al celui de-al doilea buton, apoi faceți clic pe Vizualizare cod. Adăugați următoarea linie de cod:
Private Sub OptionButton2_Click ()
Dacă OptionButton2.Value = True Then Range („C12”). Valoare = „Plată anuală”
Application.Run "Calculate"
Sfârșitul Sub
13. Este timpul să creați sub. Puteți accesa capitolul Funcții și Sub pentru a afla mai multe despre subs. Dacă vă grăbiți, pur și simplu plasați subnumele Calculați într-un modul (în Editorul Visual Basic, faceți clic pe Inserare, Modul).
Sub Calculați ()
Împrumutul este lung, rata este dublă, mai mare decât numărul întreg
împrumut = Interval ("D4"). Valoare
rate = Range ("F6"). Valoare
nper = Interval ("F8"). Valoare
Dacă Sheet1.OptionButton1.Value = Adevărat atunci
rata = rata / 12
nper = nper * 12
End If
Interval ("D12"). Valoare = -1 * WorksheetFunction.Pmt (rata, nper, împrumut)
Sfârșitul Sub
Explicație: sub-ul obține parametrii corecți pentru funcția de foaie de lucru Pmt. Funcția PMT din Excel calculează plățile pentru un împrumut pe baza plăților constante și a unei rate a dobânzii constante. Dacă efectuați plăți lunare (Sheet1.OptionButton1.Value = True), Excel VBA folosește rata / 12 pentru rata și nper * 12 pentru nper (numărul total de plăți). Rezultatul este un număr negativ, deoarece plățile sunt considerate un debit. Înmulțirea rezultatului cu -1 dă un rezultat pozitiv.
