Excel ile Faiz Hesaplama Kodu
26 Aralık 2020
27 Aralık 2020
1037
Excel ile Faiz Hesaplama Kodu ile Excel sayfalarınızda yazacağınız rakamların faizini makro ile kolayca hesaplayabilirsiniz.
Sub hesapla()
k = 4
Do While Cells(k, 7) <> ""
tutar = Cells(k, 7)
bastar = Cells(k, 8)
sontar = Cells(k, 9)
tmpbastar = bastar
j = 4
faiz = 0
devam = True
Do Until devam = False
faiztar = Cells(j, 3)
If Cells(j, 3) = "" Or faiztar > sontar Then faiztar = sontar: devam = False
If bastar > faiztar Then GoTo 20
faizor = Cells(j - 1, 4)
faiz = faiz + ((faiztar - tmpbastar) * tutar * faizor) / 36500
tmpbastar = faiztar
20
j = j + 1
Loop
Cells(k, 10) = faiz
k = k + 1: faiz = 0
Loop
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Faiz hesaplamak yapmak için öncelikle bir Excel sayfasındaki hücrelere rakamlar eklemeniz gerekir.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Seçimi Ekle veya Kaldır | Shift F8 |
| Üstü Çizgili Yazdırma | Ctrl 5 |
| Baskı Önizleme | Ctrl F2 |
| Bul Penceresini Açma / Alternatif | Shift F5 |
| Sayfa Sonları Ekleme | Alt P O E |