Excel ile Faiz Hesaplama Kodu
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 | |
|---|---|
| Çalışma Sayfasının Tümünü Seçme / Alternatif | Ctrl Shift Space |
| Bir önceki sonucu bulma | Ctrl Shift F4 |
| Kes İşlemi Kısayolu | Ctrl X |
| Bir Hücre Sağa Git | → |
| Eğik Yazdırma | Ctrl T |
Yazdığınız uzunca Excel formülleri, formül çubuğumuza sığmıyorsa, farenizi formül çubuğunun alt kısmına getirip basılı tutmak suretiyle, aşağı doğru çekerek formül çubuğunuzu genişletebilirsiniz.
Bu işlemi daha hızlı yapmak için Ctrl + Shift + U kısayolunu kullanabilirsiniz.
Bu işlemi daha hızlı yapmak için Ctrl + Shift + U kısayolunu kullanabilirsiniz.