Userform kullanarak Fonksiyon yazmak

[milhanalp]

Merhaba,
Vergi iade oranları her yıl değiştiği için yapılan programlardaki hesaplama fonksiyonlarının da değişmesi gerekiyor. Kullanıcıya bir kolaylık olması açısından, form üzerinden fonksiyon yazılabilir mi?
Fikir vermesi açısından ekteki dosyada bir form hazırladım. İncelenirse ne yapmak istediğim daha net anlaşılır zannediyorum.
Selamlar

 

[milhanalp]

Bu yıl kullanılan yüzdelerle , aşağıdaki fonksiyon oluşturuldu.
Belki problemin çözümüne yardımcı olur.

Function iade(a As Integer)
If a > 1 And a <= 3300# Then iade = a * 0.08
If a >= 3301# And a <= 6600# Then iade = (((a - 3300#) * 0.06) + (3300# * 0.08))
If a >= 6601# And a >= 6601# Then iade = (((a - 6600#) * 0.04) + (6600# * 0.07))
End Function

 

[Levent Menteşoğlu]

form üzerinden fonksiyon yazılabilir mi?

Form üzerinde fonksiyon oluşturulamaz ama yazdığınız fonksiyon çağırılabilir. Yani örneğin textbox1 deki veriyi fonksiyona aşağıdaki gibi bir ifade tanıtıp sonucunu alabilirsiniz.

sonuc=iade(textbox1.value)

 

[milhanalp]

Sayın leventm,
Fonksiyonu ben yazmayacağım. Kullanıcı kendisi oluşturacak. Aşağıdaki kırmızı yazılı alanları form üzerinden girsin istiyorum.
Belki bu şekilde bir Fonksiyon metni oluşturabilirim ama, oluşturduğum metni VBA nın modül bölümüne nasıl gönderebilirim??? Sorun burada


Function iade(a As Integer)
If a > 1 And a <= 3300# Then iade = a * 0.08
If a >= 3301# And a <= 6600# Then iade = (((a - 3300# ) * 0.06) + (3300# * 0.08))
If a >= 6601# And a >= 6601# Then iade = (((a - 6600# ) * 0.04) + (6600# * 0.07))
End Function

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin. Sn Haluk beyin kodlarından istifade edilmiştir.

 

[Haluk]

Levent dostum, çok şık olmuş .... tebrik ederim.

 

[Levent Menteşoğlu]

Çok teşekkür ederim üstadım. İlham kaynağımız siz olunca böyle çalışmalar ortaya çıkıyor.

 

[milhanalp]

Sayın leventm & Haluk,
Ã?ncelikle bayramınız mübarek olsun.

Konuyu göndermeden önce arama motorunu kullandım. Sanki Haluk arkadaşımızın böyle bir çalışması var gibiydi. Bulamayınca yanıldım herhalde diye düşündüm.
Levent arkadaşımın gözünden kaçmamış , benim gibi kendini programcı zannedenlere çok önemli bir ders kaynağı hazırlamış. Ellerine sağlık. Çok teşekkür ediyorum.
İyi bayramlar. :hey: