Bu dosya, girilen kredi miktarı, yıllık faiz oranı, kredi süresi ve ödeme türüne göre taksit tutarını VBA makrosuyla hesaplayan bir şablondur. Ödeme türü olarak aylık veya yıllık seçilebilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Hesaplamalar Excel yöntemiyle yapılır ve bankaların gerçek hesaplamalarıyla birebir uyumlu olmayabilir. Sonuçlar referans olarak değerlendirilmelidir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sheet1: Tek sayfadan oluşur (A1:G12). Sayfada "Kredi Hesaplama" başlığı ile şu alanlar bulunur:
- Kredi Miktarı: D3 hücresine girilir.
- Yıllık Faiz Oranı: F5 hücresinde tutulur; başlangıç değeri 0,13'tür.
- Kredi Süresi: F7 hücresinde tutulur; başlangıç değeri 24'tür.
- Ödeme Türü: Aylık veya yıllık seçimi için iki seçenek düğmesi yer alır.
- Aylık Ödeme: Sonuç D11 hücresine yazılır.
Makrolar
- Calculate (Module1): D3, F5 ve F7 hücrelerindeki kredi tutarı, faiz oranı ve süreyi okur. Aylık seçeneği işaretliyse faizi 12'ye böler, süreyi 12 ile çarpar. Ardından Pmt fonksiyonuyla ödemeyi hesaplar ve pozitif değer olarak D11 hücresine yazar.
- Worksheet_Change: D3 hücresi değiştiğinde Calculate makrosunu çalıştırır.
- ScrollBar1_Change: Kaydırma çubuğu değerini 100'e bölerek F5 hücresine faiz oranı olarak yazar ve hesaplamayı yeniler.
- ScrollBar2_Change: Süre çubuğu değiştiğinde hesaplamayı yeniler.
- OptionButton1_Click ve OptionButton2_Click: Seçime göre C11 hücresindeki etiketi "Aylık Ödeme" veya "Yıllık Ödeme" olarak değiştirir ve hesaplamayı yeniler.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- D3 hücresine kredi miktarını girin.
- Yıllık faiz oranını ve kredi süresini kaydırma çubuklarıyla ayarlayın.
- Ödeme türü olarak aylık veya yıllık seçeneğini işaretleyin.
- Sonucu D11 hücresinde okuyun; değerler değiştikçe sonuç otomatik yenilenir.