300 Exempel

Lånekalkylator

Loan Calculator

Den här sidan lär dig hur du skapar en enkel lånekalkylator i Excel VBA . Arbetsbladet innehåller följande ActiveX -kontroller: två rullningslister och två alternativknappar.



Lånekalkylator i Excel VBA

Obs: instruktionerna nedan lär dig inte hur du formaterar kalkylbladet. Vi antar att du vet hur du ändrar typsnitt, infogar rader och kolumner, lägger till ramar, ändrar bakgrundsfärger etc.





Utför följande steg för att skapa lånekalkylatorn:

1. Lägg till de två rullningslistkontrollerna. Klicka på Infoga från fliken Utvecklare och klicka sedan på rullningsfältet i avsnittet ActiveX -kontroller.



Skapa rullningslister

2. Lägg till de två alternativknapparna. Klicka på Infoga från fliken Utvecklare och klicka sedan på alternativknappen i avsnittet ActiveX -kontroller.

Skapa alternativknappar

Ändra följande egenskaper för rullningslistkontrollerna (se till att Designläge är valt).

3. Högerklicka på den första rullningslisten och klicka sedan på Egenskaper. Sätt Min till 0, Max till 20, SmallChange till 0 och LargeChange till 2.

4. Högerklicka med musen på den andra rullningslisten och klicka sedan på Egenskaper. Sätt Min till 5, Max till 30, SmallChange till 1, LargeChange till 5 och LinkedCell till F8.

Förklaring: när du klickar på pilen går rullningsfältets värde upp eller ner med SmallChange. När du klickar mellan skjutreglaget och pilen går rullningsfältets värde upp eller ner med LargeChange.

Skapa en ändringshändelse för kalkylblad. Kod som läggs till i kalkylbladets ändringshändelse körs av Excel VBA när du ändrar en cell i ett kalkylblad.

hur man visar en total rad i Excel

5. Öppna Visual Basic Editor .

6. Dubbelklicka på Sheet1 (Sheet1) i Project Explorer.

7. Välj kalkylblad från den vänstra listrutan och välj Ändra från den högra listrutan.

Arbetsbladshändelse i Excel VBA

8. Arbetsbladets ändringshändelse lyssnar på alla ändringar på Sheet1. Vi vill bara att Excel VBA ska köra beräkningsundern om något ändras i cell D4. För att uppnå detta lägger du till följande kodrad i ändringshändelsen för kalkylblad (mer om beräkningsundern senare).

OmTarget.Address = '$ D $ 4'SedanKör 'Beräkna'

9. Få rätt procentandel i cell F6 (ändra formatet på cell F6 till procent). Högerklicka på den första rullningslisten och klicka sedan på Visa kod. Lägg till följande kodrader:

Privat SubScrollBar1_Change ()

Område ('F6'). Värde = ScrollBar1.Value / 100
Kör 'Beräkna'

Slutet Sub

10. Högerklicka på den andra rullningslisten och klicka sedan på Visa kod. Lägg till följande kodrad:

Privat SubScrollBar2_Change ()

Kör 'Beräkna'

Slutet Sub

11. Högerklicka på den första alternativknappen och klicka sedan på Visa kod. Lägg till följande kodrad:

Privat SubOptionButton1_Click ()

OmOptionButton1.Value =Sann SedanOmråde ('C12'). Värde = 'Månadsbetalning'
Kör 'Beräkna'

Slutet Sub

12. Högerklicka med musen på den andra alternativknappen och klicka sedan på Visa kod. Lägg till följande kodrad:

Privat SubOptionButton2_Click ()

OmOptionButton2.Value =Sann SedanOmråde ('C12'). Värde = 'Årlig betalning'
Kör 'Beräkna'

Slutet Sub

13. Dags att skapa sub. Du kan gå igenom vår Funktion och sub kapitel för att lära dig mer om subs. Om du har bråttom placerar du helt enkelt undernamnet Calculate i en modul (klicka på Infoga, modul i Visual Basic Editor).

SubBeräkna()

IngenlånSom Lång, BetygsättaSom Dubbel, nperSom Heltal

lån = intervall ('D4'). Värde
rate = Range ('F6'). Värde
nper = Område ('F8'). Värde

OmSheet1.OptionButton1.Value =Sann Sedan
ränta = ränta / 12
nper = nper * 12
Slutet Om

Område ('D12'). Värde = -1 * WorksheetFunction.Pmt (ränta, nper, lån)

Slutet Sub

Förklaring: sub får rätt parametrar för kalkylbladets funktion Pmt. De PMT -funktion i Excel beräknar betalningarna för ett lån baserat på konstanta betalningar och en konstant ränta. Om du gör månatliga betalningar (Sheet1.OptionButton1.Value = True) använder Excel VBA ränta / 12 för ränta och nper *12 för nper (totalt antal betalningar). Resultatet är ett negativt tal, eftersom betalningar betraktas som en debitering. Multiplicera resultatet med -1 ger ett positivt resultat.

Lånekalkylatorresultat

8/8 klar! Läs mer om activex -kontroller>
Gå till nästa kapitel: Användarform



^