Bu sayfa size basit bir kredi hesaplayıcı içinde Excel VBA'sı. Çalışma sayfası şu ActiveX denetimlerini içerir: iki kaydırma çubuğu ve iki seçenek düğmesi.
Not: Aşağıdaki talimatlar size çalışma sayfasını nasıl biçimlendireceğinizi öğretmez. Yazı tipi türlerini değiştirmeyi, satır ve sütun eklemeyi, kenarlık eklemeyi, arka plan renklerini değiştirmeyi vb. bildiğinizi varsayıyoruz.
Kredi hesaplayıcısını oluşturmak için aşağıdaki adımları uygulayın:
1. İki kaydırma çubuğu kontrolünü ekleyin. Geliştirici sekmesinden Ekle'ye tıklayın ve ardından ActiveX Denetimleri bölümünde Kaydırma Çubuğu'na tıklayın.
2. İki seçenek düğmesini 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çili olduğundan 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'i 0'a ve LargeChange'i 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'i 5'e, Maks'ı 30'a, SmallChange'i 1'e, LargeChange'i 5'e ve LinkedCell'i F8'e ayarlayın.
Açıklama: oka tıkladığınızda, kaydırma çubuğu değeri SmallChange tarafından yukarı veya aşağı gider. Kaydırıcı ile ok arasında tıkladığınızda, kaydırma çubuğu değeri LargeChange tarafından yukarı veya aşağı gider.
Bir Çalışma Sayfası Değişikliği Etkinliği oluşturun. Çalışma Sayfası Değişikliği Etkinliğine eklenen kod, bir çalışma sayfasındaki bir hücreyi değiştirdiğinizde Excel VBA tarafından yürütülecektir.
5. Visual Basic Düzenleyicisini açın.
6. Proje Gezgini'nde 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şikliği Olayı, Sayfa1'deki tüm değişiklikleri dinler. Excel VBA'nın yalnızca D4 hücresinde bir şey değişirse Hesapla alt öğesini çalıştırmasını istiyoruz. Bunu başarmak için, Çalışma Sayfası Değişikliği Olayına aşağıdaki kod satırını ekleyin (daha sonra Calculate sub hakkında daha fazla bilgi).
Target.Address = "$D$4" ise Application.Run "Hesapla"
9. F6 hücresinde doğru yüzdeyi alın (F6 hücresinin biçimini 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:
Özel Alt ScrollBar1_Change()
Aralık("F6").Değer = ScrollBar1.Value / 100
Application.Run "Hesapla"
Alt Bitiş
10. İkinci 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ırını ekleyin:
Özel Alt ScrollBar2_Change()
Application.Run "Hesapla"
Alt Bitiş
11. İlk seçenek düğmesi kontrolüne sağ tıklayın ve ardından Kodu Görüntüle'ye tıklayın. Aşağıdaki kod satırını ekleyin:
Özel Alt OptionButton1_Click()
OptionButton1.Value = True ise Aralık("C12").Value = "Aylık Ödeme"
Application.Run "Hesapla"
Alt Bitiş
12. İkinci seçenek düğmesi kontrolüne sağ tıklayın ve ardından Kodu Görüntüle'ye tıklayın. Aşağıdaki kod satırını ekleyin:
Özel Alt OptionButton2_Click()
OptionButton2.Value = True ise Aralık("C12").Value = "Yıllık Ödeme"
Application.Run "Hesapla"
Alt Bitiş
13. Alt oluşturma zamanı. Yedekler hakkında daha fazla bilgi edinmek için İşlev ve Alt bölümümüzü inceleyebilirsiniz. Aceleniz varsa, Hesapla adlı alt öğeyi bir modüle yerleştirmeniz yeterlidir (Visual Basic Düzenleyicide Ekle, Modül'e tıklayın).
Alt Hesapla()
Dim kredisi Uzun, oran Çift, nper Tamsayı
ödünç = Aralık("D4").Değer
oran = Aralık("F6").Değer
nper = Aralık("F8").Değer
Sheet1.OptionButton1.Value = True ise
oran = oran / 12
sayı = sayı * 12
Bitir
Range("D12").Value = -1 * WorksheetFunction.Pmt(oran, nper, ödünç)
Alt Bitiş
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 faiz oranı temelinde bir kredinin ödemelerini hesaplar. Aylık ödemeler yapıyorsanız (Sheet1.OptionButton1.Value = True), Excel VBA oran için oran / 12 ve nper (toplam ödeme sayısı) için nper *12 kullanır. Sonuç negatif bir sayıdır, çünkü ödemeler borç olarak kabul edilir. Sonucu -1 ile çarpmak olumlu bir sonuç verir.
