Excel VBA'da # 1 Kredi Hesaplama
Net üzerinde Excel öğretici / 300 örnek / Excel VBA'da Kredi Hesaplayıcısı
Bu sayfa basit bir şekilde nasıl oluşturulacağını öğretir kredi hesaplayıcısı içinde Excel VBA. Çalışma sayfası aşağıdaki ActiveX denetimlerini içerir: iki kaydırma çubuğu ve iki seçenek düğmesi.
Not: Aşağıdaki talimatlar çalışma sayfasının nasıl biçimlendirileceğini öğretmiyor. Yazı tipi türlerini nasıl değiştireceğinizi, satır ve sütunları nasıl ekleyeceğinizi, kenarlıklar ekleyeceğinizi, arka plan renklerini nasıl değiştireceğinizi vs. bildiğinizi varsayarız.
Kredi hesaplayıcısını oluşturmak için aşağıdaki adımları yürütün:
1. İki kaydırma çubuğu kontrolünü ekleyin. Geliştirici sekmesinden Ekle'yi tıklatın ve sonra ActiveX Denetimleri bölümünde Kaydırma Çubuğu'nu tıklatın.
2. İki seçenek tuşunu ekleyin. Geliştirici sekmesinden Ekle'ye tıklayın ve ardından ActiveX Denetimleri bölümündeki Seçenek Düğmesine tıklayın.
Kaydırma çubuğu kontrollerinin aşağıdaki özelliklerini değiştirin (Tasarım Modunun seçildiğinden emin olun).
3. İlk kaydırma çubuğu kontrolüne sağ tıklayın ve ardından Özellikler'e tıklayın. Min'i 0'a, Maks. 20'ye, SmallChange'e 0 ve LargeChange'e 2'ye ayarlayın.
4. İkinci kaydırma çubuğu kontrolüne sağ tıklayın ve ardından Özellikler'e tıklayın. Min ile 5, Maks. 30, SmallChange - 1, LargeChange - 5 ve LinkedCell - F8 seçeneklerini ayarlayın.
Açıklama: oku tıkladığınızda, scrollbar değeri SmallChange tarafından yukarı veya aşağı gider. Kaydırıcı ve ok arasında tıklattığınızda, kaydırma çubuğu değeri BigChange tarafından yukarı veya aşağı gider.
Bir Çalışma Sayfası Değiştirme Etkinliği oluşturun. Çalışma Sayfası Değiştirme Etkinliğine eklenen kod, çalışma sayfasındaki bir hücreyi değiştirdiğinizde Excel VBA tarafından yürütülecektir.
5. Visual Basic Düzenleyicisi'ni açın.
6. Proje Gezgini'ndeki Sayfa1'e (Sayfa1) çift tıklayın.
7. Soldaki açılır listeden Çalışma Sayfası'nı seçin ve sağdaki açılır listeden Değiştir'i seçin.
8. Çalışma Sayfası Değiştirme Etkinliği, Sayfa1'deki tüm değişiklikleri dinler. Biz sadece D4 hücresinde bir şey değişirse, Calculate altını çalıştırmak için Excel VBA'yı istiyoruz. Bunu başarmak için, Çalışma Sayfası Değiştirme Etkinliğine aşağıdaki kod satırını ekleyin (daha sonra Hesapla altından daha sonra).
9. F6 hücresinde doğru yüzdesini alın (F6 hücresinin formatını yüzde olarak değiştirin). İlk kaydırma çubuğu kontrolüne sağ tıklayın ve ardından Kodu Görüntüle'ye tıklayın. Aşağıdaki kod satırlarını ekleyin:
10. İkinci kaydırma çubuğu kontrolüne sağ tıklayın ve ardından View Code'a tıklayın. Aşağıdaki kod satırını ekleyin:
11. İlk seçenek düğmesine sağ tıklayın ve ardından View Code'a tıklayın. Aşağıdaki kod satırını ekleyin:
12. İkinci seçenek düğmesi kontrolüne sağ tıklayın ve ardından View Code'a tıklayın. Aşağıdaki kod satırını ekleyin:
13. Alt oluşturma zamanı. Sub hakkında daha fazla bilgi için Fonksiyon ve Alt bölümümüzü inceleyebilirsiniz. Aceleniz varsa, Hesapla adlı alt bir modülü (Visual Basic Düzenleyicisi'nde Ekle, Modülü) tıklatın.
Açıklama: alt çalışma sayfası işlevi Pmt için doğru parametreleri alır. Excel'deki Pmt işlevi, sabit ödemeler ve sabit bir faiz oranına dayalı bir kredi için ödemeleri hesaplar. Aylık ödeme yaparsanız (Sheet1.OptionButton1.Value = True), Excel VBA oranı için oran / 12'yi kullanır ve nper için * 12'yi kullanır (toplam ödeme sayısı). Sonuç negatif bir sayıdır, çünkü ödemeler bir borç olarak kabul edilir. Sonucu -1 ile çarpmak, olumlu bir sonuç verir.
Excel'de Farklı Sürelerle Krediler
Excel'de Kredi Amortisman Çizelgesi