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.
XD Destek İsteSub 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
Daha önce yorum yapılmamış!
| YARARLI KISAYOLLAR | |
|---|---|
| Çalışma Sayfası İstatistikleri | Ctrl G |
| Anlık Sistem Saatini Yazma | Ctrl Shift : |
| Hücreyi Kopyalama/Çoğaltma | Ctrl Sürükle |
| Bir Ekran Sağa Git | Alt PgDn |
| Aktif Pencereyi Kapatma | Ctrl W |
Alttaki gibi bir tablonuz olduğunu varsayalım.
Normal şartlarda B2:B7 aralığını kopyala deyip, C2 hücresine yapıştırdığımızda; B2:B8 aralığındaki verilerin aynısı C2:C8 aralığına yapıştırılır ve C4 hücresinde bulunan HAYIR değeri silinir. B2:B8 aralığında bulunan EVET değerlerini HAYIR değerini koruyarak yapıştırmak istersek;
Kopyala -> Özel Yapıştır seçeneklerinden -> Boş Olanları Atla seçeneğini işaretlememiş yeterli olacaktır.
Normal şartlarda B2:B7 aralığını kopyala deyip, C2 hücresine yapıştırdığımızda; B2:B8 aralığındaki verilerin aynısı C2:C8 aralığına yapıştırılır ve C4 hücresinde bulunan HAYIR değeri silinir. B2:B8 aralığında bulunan EVET değerlerini HAYIR değerini koruyarak yapıştırmak istersek;
Kopyala -> Özel Yapıştır seçeneklerinden -> Boş Olanları Atla seçeneğini işaretlememiş yeterli olacaktır.