Ez az oldal megtanítja, hogyan lehet egyszerűt készíteni hitel kalkulátor ban ben Excel VBA. A munkalap a következő ActiveX -vezérlőket tartalmazza: két görgetősáv és két lehetőséggomb.
Megjegyzés: az alábbi utasítások nem tanítják meg a munkalap formázását. Feltételezzük, hogy tudja, hogyan módosíthatja a betűtípusokat, beszúrhat sorokat és oszlopokat, hozzáadhat szegélyeket, módosíthatja a háttérszíneket stb.
A hitelkalkulátor elkészítéséhez hajtsa végre az alábbi lépéseket:
1. Adja hozzá a két görgetősáv vezérlőt. Kattintson a Beszúrás gombra a Fejlesztő lapon, majd kattintson a Gördítősáv elemre az ActiveX -vezérlők részben.
2. Adja hozzá a két opciógombot. Kattintson a Beszúrás gombra a Fejlesztő lapon, majd kattintson az Opció gombra az ActiveX -vezérlők részben.
Módosítsa a görgetősáv vezérlőinek alábbi tulajdonságait (győződjön meg arról, hogy a Tervezési mód van kiválasztva).
3. Kattintson a jobb egérgombbal az első görgetősáv -vezérlőre, majd kattintson a Tulajdonságok elemre. Állítsa a Min értéket 0 -ra, a Max értékét 20 -ra, a SmallChange -t 0 -ra és a LargeChange -t 2 -re.
4. Kattintson a jobb egérgombbal a második görgetősáv -vezérlőre, majd kattintson a Tulajdonságok elemre. Állítsa a Min értéket 5 -re, a Max értéket 30 -ra, a SmallChange -t 1 -re, a LargeChange -t 5 -re, a LinkedCell -t pedig F8 -ra.
Magyarázat: a nyílra kattintva a görgetősáv értéke felfelé vagy lefelé csökken a SmallChange segítségével. Ha a csúszka és a nyíl közé kattint, a görgetősáv értéke a LargeChange segítségével felfelé vagy lefelé emelkedik.
Hozzon létre egy munkalap -változási eseményt. A munkalap módosítási eseményéhez hozzáadott kódot az Excel VBA hajtja végre, amikor módosít egy cellát a munkalapon.
5. Nyissa meg a Visual Basic Editor programot.
6. Kattintson duplán a Sheet1 (Sheet1) elemre a Project Explorerben.
7. Válassza a Munkalap lehetőséget a bal oldali legördülő listából, majd válassza a Módosítás lehetőséget a jobb oldali legördülő listából.
8. A Munkalap módosítási esemény meghallgatja az 1. lapon található összes módosítást. Csak azt szeretnénk, ha az Excel VBA futtatná a Calculate alszámítást, ha valami megváltozik a D4 cellában. Ennek eléréséhez adja hozzá a következő kód sort a Munkalap módosítási eseményhez (bővebben a Calculate alról később).
If Target.Address = "$ D $ 4" then Application.Run "Calculate"
9. Válassza ki a megfelelő százalékot az F6 cellában (módosítsa az F6 cella formátumát százalékra). Kattintson a jobb egérgombbal az első görgetősáv -vezérlőre, majd kattintson a Kód megtekintése elemre. Adja hozzá a következő kódsorokat:
Privát Sub ScrollBar1_Change ()
Tartomány ("F6"). Érték = ScrollBar1.Value / 100
Application.Run "Calculate"
End Sub
10. Kattintson a jobb egérgombbal a második görgetősáv -vezérlőre, majd kattintson a Kód megtekintése elemre. Adja hozzá a következő kód sort:
Privát Sub ScrollBar2_Change ()
Application.Run "Calculate"
End Sub
11. Kattintson a jobb egérgombbal az első opciógomb vezérlőjére, majd kattintson a Kód megtekintése elemre. Adja hozzá a következő kód sort:
Privát alopcióButton1_Click ()
Ha OptionButton1.Value = Igaz, akkor tartomány ("C12"). Érték = "Havi fizetés"
Application.Run "Calculate"
End Sub
12. Kattintson a jobb egérgombbal a második opciógombra, majd kattintson a Kód megtekintése elemre. Adja hozzá a következő kód sort:
Privát alopcióButton2_Click ()
Ha OptionButton2.Value = Igaz, akkor tartomány ("C12"). Érték = "Éves fizetés"
Application.Run "Calculate"
End Sub
13. Ideje létrehozni az al. Funkció és alfejezetünkben további információkat tudhat meg a feliratkozókról. Ha siet, egyszerűen helyezze a Calculate (Alkalmazás) nevű almodult egy modulba (A Visual Basic Editorban kattintson a Insert, Module elemre).
Részszámítás ()
Halvány hitel, hosszú, kamatozás dupla, nper egész
kölcsön = Tartomány ("D4"). Érték
arány = tartomány ("F6"). Érték
nper = Tartomány ("F8"). Érték
Ha Sheet1.OptionButton1.Value = Igaz akkor
arány = arány / 12
nper = nper * 12
Vége Ha
Tartomány ("D12"). Érték = -1 * WorksheetFunction.Pmt (arány, nper, kölcsön)
End Sub
Magyarázat: az alkapja a megfelelő paramétereket a Pmt munkalapfüggvényhez. Az Excel PMT függvénye állandó kölcsönök és állandó kamatláb alapján számítja ki a kölcsön kifizetéseit. Ha havi befizetéseket hajt végre (Sheet1.OptionButton1.Value = True), az Excel VBA a rate / 12 értéket használja az árfolyamhoz, és nper *12 értéket használ a nper (a fizetések teljes száma) értékhez. Az eredmény negatív szám, mert a kifizetések terhelésnek minősülnek. Az eredmény -1 -gyel való megszorzása pozitív eredményt ad.
