iskonto hesaplama VBA"da

[m_aganda]

• satış miktarı<25 ise iskonto oranı 0
• satış miktarı>=25 ve <50 ise iskonto oranı 0,15
• satış miktarı>=50 ve <100 ise iskonto oranı 0,25
• satış miktarı>=100 ve <999 ise iskonto oranı 0,3

arkadaşlar bunları VBA"da yazıyorum fakat olmuyor benim yazdığım kod

Function iskonto(adet, fiyat)
If adet < 25 Then
iskonto = 0
Elseif adet >= 25 and adet < 50 then
iskonto = 0.15
Elseif adet >= 50 and adet< 100 then
iskonto = a 0.25
elseif adet >= 100 and adet< 999 then
iskonto = 0.3
end if
End Function

 

[excel03]

merhaba;

Function iskontolu_tutar(adet, fiyat)
If adet < 25 Then
iskontolu_tutar = 0
ElseIf adet >= 25 And adet < 50 Then
iskontolu_tutar = 0.85 * fiyat
ElseIf adet >= 50 And adet < 100 Then
iskontolu_tutar = 0.75 * fiyat
ElseIf adet >= 100 And adet < 999 Then
iskontolu_tutar = 0.7 * fiyat
End If
End Function

 

[mancubus]

iskonto tutarını istiyorsanız sn excel03 ün kodunu aşağıdaki gibi değiştirebilirsiniz.

Function iskonto_tutarı(adet, fiyat)

If adet < 25 Then
   iskonto_tutarı = 0
ElseIf adet >= 25 And adet < 50 Then
   iskonto_tutarı = 0.15 * fiyat
ElseIf adet >= 50 And adet < 100 Then
   iskonto_tutarı = 0.25 * fiyat
ElseIf adet >= 100 And adet < 999 Then
   iskonto_tutarı = 0.3 * fiyat
End If

End Function

 

[m_aganda]

cevaplarınız için teşekkür ederiz ama =iskonto_tutarı(C3;D3) yani fiyat;adet yapınca sonuçlar 0 çıkıyor yani yanlış sonuç

 

[excel03]

... yani fiyat;adet yapınca sonuçlar 0 çıkıyor ...

evet yanlış çıkması mantıklıdır.Çünkü fonksiyon taımlanırken öncelikle adet tanımı ,sonrasında fiyat tanımı yapılmıştır.Dolayısıyla öncelikle adedi, sonrasında fiyatı girmeniz gerekir.

=iskonto_tutarı(adet, fiyat)

=iskonto_tutarı(150, 500)>>sonuç 150.

 

[m_aganda]

çok teşekkür ederiz sabahtan beri uğraşınca beyin sulanıyor

 

[mancubus]

cevaplarınız için teşekkür ederiz ama =iskonto_tutarı(C3;D3) yani fiyat;adet yapınca sonuçlar 0 çıkıyor yani yanlış sonuç

C3 hücresinde adet, D3 hücresinde fiyat olur ise hata olmaz.

 

[aktas_967]

ben bu ödevimi yapamadım bilgi yönetimi bölümündeyim istediğim bilgileri bulamıyorum hiç biyerde

 

[volkanhic]

merhabalar hocam bilgi için teşekkürler ama fiyat ve iskontolu fiyatları giriyorum bana yuzdeyı vermesini istiyorum fakat olmuyor nasıl alabilirim yuzdeolarak.malın satis fiyatini ve iskontolu fiyati girince yuzde kac iskonto yaptigimi görmek istiyorum..simdiden tesekkurler

 

[Husgvarna]

merhabalar hocam bilgi için teşekkürler ama fiyat ve iskontolu fiyatları giriyorum bana yuzdeyı vermesini istiyorum fakat olmuyor nasıl alabilirim yuzdeolarak.malın satis fiyatini ve iskontolu fiyati girince yuzde kac iskonto yaptigimi görmek istiyorum..simdiden tesekkurler

Merhaba.
"case" yöntemine ihtiyacınız var; gibi:


http://www.excel.web.tr/f48/if-then-case-hk-bir-makale-t6487.html


http://www.excel.web.tr/f48/iskonto-hesaplama-vba-da-t94530/sayfa2.html

 

[Husgvarna]

Merhaba.
Mahmut bey'in güzel anlatımına ilaveten, eki inceleyiniz: