İçeriğe geç
ShiftDelete.Net
Haber ara/ SDN'ye SorGiriş
Haber Akışı SDNTV İnceleme Forum Yapay Zeka Akıllı Telefon Elektrikli Otomobil Oyun ShiftDelete.Net Global Teknoloji Haberleri Mobil Otomobil Donanım Savunma Bilim Sosyal Medya İnternet Giyilebilir Teknoloji Rehber Ürünler Sinema Dizi Akıllı Ev Motosiklet Mikromobilite Kripto Para Sağlık Teknolojileri Son dakika Yazarlar
SDN'ye Sor Giriş yap Ara

Akış

  1. Pixel Drop kasım: Pixel Tag ve Gemini geliyor
  2. Togg kasım kampanyası: 1,5 milyon TL sıfır faiz
  3. Xiaomi Smart Band 11 Türkiye'de satışa çıkıyor
  4. ABD'de Hivemind ile İHA'lar ilk kez birlikte uçtu
  5. AMD Venice işlemcilerle 256 çekirdeğe çıktı
  6. Gemini 4 Carbon Ultra abonelerine açıldı
  7. Redmi 12.000 mAh bataryalı telefon hazırlıyor
  8. Apple Support Community 20 Kasım'da kapanıyor
Tüm akış
  1. Ana sayfa
  2. SDN Forum
  3. Yazılım
  4. Ofis Yazılımları
Ofis Yazılımları

Excel İle Kredi Hesaplama

evowinds

Konu bilgisi

11cevap
13 bingörüntüleme
21.07.2010açıldı
27.09.2017son cevap

#1
Evet arkadaşlar;

Elimde hazır kredi hesaplama için hazırlanmış bir çalışma sayfası var ve sizinle paylaşmak istedim.

Parametreleri değiştirin ve istediğiniz sonucu alın. Banka sitelerine uğramanıza gerek yok.
Formülleri incelerseniz sizde daha gelişmişini veya özelleştirilmişini yapabilirsiniz.

İşinize yaraması temennisi ile.

@online destek;

Ben elimdekini paylaşıyorum. Daha önceki paylaşımlardan farklı. Umarım işini görür.
Cevaplar
#2
Birde excel formülleri vardı, buradan paylaşmıştı bir üye hatırlıyor musunuz, o link lazım bana.


Paylaşımın için teşekkürler.
#3
Teşekkürler
#6
Paylaşımın için teşekkürler.
#7
çok teşekkürler
#8
kredi hesaplama araçları için güzel olmuş.Ellerinize sağlık.
#9
tşk ler gzl paylaşım
#11
Tesekkurler.
#12
Rica etsem aynı işlemi diğer hücrelere nasıl uygulayabilirim örnek B33 hücresinin değerine göre c sütunun rengi değişsin bunları aynı kod sayfasında(A33 hücresinin değerine göre b sütunu rengi değiştiği)yazabilirmiyiz aşağıdaki gibi;
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B33]) Is Nothing Then
Exit Sub
End If
If Target <> "" Then
If Target > 750 Then
[C3:C26,C28:C33].Interior.Color = 12611584
ElseIf Target > 500 Then
[C3:C26,C28:C33].Interior.Color = vbBlue
ElseIf Target > 250 Then
[C3:C26,C28:C33].Interior.Color = vbGreen
ElseIf Target > -250 Then
[C3:C26,C28:C33].Interior.Color = vbYellow
ElseIf Target > -500 Then
[C3:C26,C28:C33].Interior.Color = 13382655
ElseIf Target > -750 Then
[C3:C26,C28:C33].Interior.Color = vbRed
End If
End If
End Sub
While[
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C33]) Is Nothing Then
Exit Sub
End If
If Target <> "" Then
If Target > 750 Then
[D3:D26,D28:D33].Interior.Color = 12611584
ElseIf Target > 500 Then
[D3:D26,D28:D33].Interior.Color = vbBlue
ElseIf Target > 250 Then
[D3:D26,D28:D33].Interior.Color = vbGreen
ElseIf Target > -250 Then
[D3:D26,D28:D33].Interior.Color = vbYellow
ElseIf Target > -500 Then
[D3:D26,D28:D33].Interior.Color = 13382655
ElseIf Target > -750 Then
[D3:D26,D28:D33].Interior.Color = vbRed
End If
End If
End Sub

Cevabını yaz

Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.

Reklam