• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

TextBox da aritmetik işlem sonucu kimi zaman yanlış

Katılım
8 Haziran 2007
Mesajlar
401
Excel Vers. ve Dili
excel fonksiyonlar
Forumda emeği geçen herkese merhaba. Arkadaşlar ekli çalışmada ComboBox1' e
yazdığım kodların kimi zaman doğru sonuç vermediğini gördüm. Kodlar çoğu zaman doğru çalıştığına göre sorun kodla alakalı değil diye düşünüyorum. Ama ne olabileceğini de tahmin edemiyorum. Umarım yardımcı olursunuz. İlgilenen arkadaşlara şimdiden teşekkürler. :)
 

Ekli dosyalar

Sorun muhtemelen Val fonksiyonundan kaynaklanıyordur. Val fonksiyonu virgülü ondalık ayıraç olarak kabul etmez. Bunu bir örnekle açıklarsam;

Val(25,14)=25 sonucunu verirken val(25.14)=25,14 sonucunu verir. Dolayısıyla bu komutu kullanırken ondalık sayılarda virgülü noktaya çevirerek kullanmanız gerekir. Örneğin;

a = (Val(ComboBox1)) * 2

yerine

a = (Val(replace(ComboBox1,",","."))) * 2
 
Sorun muhtemelen Val fonksiyonundan kaynaklanıyordur. Val fonksiyonu virgülü ondalık ayıraç olarak kabul etmez. Bunu bir örnekle açıklarsam;

Val(25,14)=25 sonucunu verirken val(25.14)=25,14 sonucunu verir. Dolayısıyla bu komutu kullanırken ondalık sayılarda virgülü noktaya çevirerek kullanmanız gerekir. Örneğin;

a = (Val(ComboBox1)) * 2

yerine

a = (Val(replace(ComboBox1,",","."))) * 2

Hocam kodları aşağıdaki gibi değiştirdim. Bu da sonuç vermedi.


a = (Val(Replace(ComboBox1, ",", "."))) * 2

b = (Val(Replace(TextBox1, ",", "."))) + (Val(Replace(TextBox6, ",", "."))) / a

c = (Val(Replace(TextBox2, ",", "."))) + (Val(Replace(TextBox5, ",", "."))) / a

d = (Val(Replace(TextBox3, ",", "."))) + (Val(Replace(TextBox4, ",", "."))) / a


TextBox7.Value = b
TextBox8.Value = c
TextBox9.Value = d
 
Geri
Üst