SOS! VBA Excel Formülünü nasıl yazacam?

[macroSss]

Herkese merhaba,

Bir excel tablosu var. Basit Faiz - Bileşik Faiz hesaplamasıyla ilgili. Bunu için VB de çalışacak bir form hazırlıyorum.


=IF(B5="Yıllık Bileşik Faiz (%)";IF(A8="Vade (Gün)";B13;B14);IF(A8="Vade (Gün)";B15;B16))

Excel de yazılmış bu formülü VB'de nasıl yazacam lütfen yardımcı olurmusunuz?

:?

 

[cako]

'IF(B5="Yıllık Bileşik Faiz (%)";IF(A8="Vade (Gün)";B13;B14);IF(A8="Vade (Gün)";B15;B16))
'Diyelim ki hesap yapacağınız hücre [A1];
[vb:1:9d6f72d484]If [B5] = "Yıllık Bileşik Faiz (%)" Then
If [A8] = "Vade (Gün)" Then
[A1] = [B13]
Else
[A1] = [B14]
End If
Else
If [A8] = "Vade (Gün)" Then
[A1] = [B15]
Else
[A1] = [B16]
End If
End If[/vb:1:9d6f72d484]

 

[macroSss]

VBA Formülünün Yazımı Nasıl Olacak?

'IF(B5="Yıllık Bileşik Faiz (%)";IF(A8="Vade (Gün)";B13;B14);IF(A8="Vade (Gün)";B15;B16))
'Diyelim ki hesap yapacağınız hücre [A1];
[vb:1:b579f28079]If [B5] = "Yıllık Bileşik Faiz (%)" Then
If [A8] = "Vade (Gün)" Then
[A1] = [B13]
Else
[A1] = [B14]
End If
Else
If [A8] = "Vade (Gün)" Then
[A1] = [B15]
Else
[A1] = [B16]
End If
End If[/vb:1:b579f28079]

Maalesef yukarıdaki yazımı kullanamam. Excel ile bir bağlantısı olmayacak bu formun. Aslında bu formülün matematik açılımını bilsem yapacam ama bilmiyorum. Hemen bir örnek açılım vereyim:


deger1 = CDbl("0" & txtdeger1.Text)
deger2 = CDbl("0" & txtdeger2.Text)
deger3 = CDbl("0" & txtdeger3.Text)
sonuc = CDbl("0" & txtsonuc.Text)

txtsonuc.Text = FormatNumber(CDbl(deger1) * ((1 + (CDbl(deger2) / 36500) * CDbl(deger3))))

Bunun gibi yazılması lazım.

 

[Levent Menteşoğlu]

if in vba da kullanımı sn cako'nun kodda yazdığı gibidir.

if ...... then 'buraya koşul yazılacak
. 'arayada koşu gerçekleşirse yapılacak işlem yazılacak.l
.
.
end if

Not:Ayrıca sorunuzda ne istediğinizi tam olarak açıklarsanız hem siz daha kısa sürede doğru cevabı alabilirsiniz,hemde cevap veren arkadaşların emekleride boşa gitmemiş olur. Lütfen bu konuya özen gösterelim.