/ / Calculator de împrumut în Excel VBA

Calculator de împrumut în Excel VBA

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țiuni.

Calculator de împrumut în Excel VBA

Notă: instrucțiunile de mai jos nu vă învață cum să formatați foaia de lucru. Presupunem că știți cum să modificați tipurile de fonturi, să inserați rânduri și coloane, să adăugați muchii, să modificați culorile de fundal etc.

Executați următorii pași pentru a crea calculatorul de împrumut:

1. Adăugați cele două comenzi ale barei de derulare. Faceți clic pe Insert din fila Developer și apoi faceți clic pe butonul de derulare în secțiunea Controale ActiveX.

Creați barele de derulare

2. Adăugați cele două butoane de opțiuni. Faceți clic pe Insert din fila Developer și apoi faceți clic pe butonul Option în secțiunea Controale ActiveX.

Creați butoane opționale

Schimbați următoarele proprietăți ale comenzilor din bara de derulare (asigurați-vă că este selectat Modul de Design).

3. Faceți clic dreapta pe primul control al barei de derulare, apoi faceți clic pe Proprietăți. Setați Min la 0, Maxim la 20, Micșorare la 0 și Mare schimbare la 2.

4. Faceți clic cu butonul din dreapta al mouse-ului pe cel de-al doilea control al barei de derulare, apoi faceți clic pe Proprietăți. Setați Min la 5, Maxim la 30, Micșorare la 1, Mare schimbare la 5 și LinkedCell la F8.

Explicație: când faceți clic pe săgeată, valoarea barei de derulare crește în sus sau în jos prin SmallChange. Când faceți clic între glisor și săgeată, valoarea barei de derulare crește în sus sau în jos prin intermediul LargeChange.

Creați un eveniment de schimbare a foii de lucru. Codul adăugat la evenimentul schimbare foaia de lucru va fi executat de Excel VBA atunci când modificaț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 foaia de lucru din lista verticală din stânga și alegeți Schimbare din lista derulantă din dreapta.

Schimbarea evenimentelor în Excel VBA

8. Evenimentul Schimbare foaie de lucru ascultă toate modificările din Foaia1. Vrem doar ca Excel VBA să ruleze subsolul Calculate 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 Calculate mai jos).

If Target.Address = "$D$4" Then Application.Run "Calculate"

9. Obțineți procentul corect în celula F6 (modificați formatul celulei F6 la 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()

Range("F6").Value = ScrollBar1.Value / 100
Application.Run "Calculate"

End Sub

10. Faceți clic dreapta pe al doilea buton de derulare, apoi faceți clic pe Vizualizare cod. Adăugați următoarea linie de cod:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11. Faceți clic dreapta pe butonul de comandă pentru prima opțiune, apoi faceți clic pe Vizualizare cod. Adăugați următoarea linie de cod:

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then Range("C12").Value = "Monthly Payment"
Application.Run "Calculate"

End Sub

12. Faceți clic dreapta pe butonul de control al celei de-a doua opțiuni, apoi faceți clic pe Vizualizare cod. Adăugați următoarea linie de cod:

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then Range("C12").Value = "Yearly Payment"
Application.Run "Calculate"

End Sub

13. Timpul pentru a crea sub. Puteți trece prin capitolul Funcții și capitole pentru a afla mai multe despre subs. Dacă vă grăbiți, pur și simplu plasați sub numele Calculate într-un modul (în Editorul Visual Basic, faceți clic pe Insert, Module).

Sub Calculate()

Dim loan As Long, rate As Double, nper As Integer

loan = Range("D4").Value
rate = Range("F6").Value
nper = Range("F8").Value

If Sheet1.OptionButton1.Value = True Then
    rate = rate / 12
    nper = nper * 12
End If

Range("D12").Value = -1 * WorksheetFunction.Pmt(rate, nper, loan)

End Sub

Explicaţie: subparametrul are parametrii potriviți pentru funcția foaie de lucru Pmt. Funcția Pmt din Excel calculează plățile pentru un împrumut bazat pe plăți constante și o rată constantă a dobânzii. Dacă efectuați plăți lunare (Sheet1.OptionButton1.Value = True), Excel VBA utilizează 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 debit. Înmulțirea rezultatului cu -1 dă un rezultat pozitiv.

Calculator rezultat împrumut

De asemenea, citiți: