/ / Excel VBA'da Kredi Hesaplayıcısı

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.

Excel VBA'da Kredi Hesaplayıcısı

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.

Kaydırma Çubukları Oluştur

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.

Seçenek Düğmeleri Oluştur

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.

Excel VBA'da Çalışma Sayfası Değiştirme Etkinliği

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).

If Target.Address = "$D$4" Then Application.Run "Calculate"

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:

Private Sub ScrollBar1_Change()

Range("F6").Value = ScrollBar1.Value / 100
Application.Run "Calculate"

End Sub

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:

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

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:

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then Range("C12").Value = "Monthly Payment"
Application.Run "Calculate"

End Sub

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:

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then Range("C12").Value = "Yearly Payment"
Application.Run "Calculate"

End Sub

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.

Sub Calculate()

Dim loan As Long, rate As Double, nper As Integer

loan = Range("D4").Value
rate = Range("F6").Value
nper = Range("F8").Value

If Sheet1.OptionButton1.Value = True Then
    rate = rate / 12
    nper = nper * 12
End If

Range("D12").Value = -1 * WorksheetFunction.Pmt(rate, nper, loan)

End Sub

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.

Kredi Hesaplama Sonucu

Ayrıca oku: