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.
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.
2. Lägg till de två alternativknapparna. Klicka på Infoga från fliken Utvecklare och klicka sedan på alternativknappen i avsnittet ActiveX -kontroller.
Ä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.
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.
Gå till nästa kapitel: Användarform