• DİKKAT

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

Sayı formatlanınca niçin çarpma toplama vs. hata veriyor

S

sender

Katılım
15 Eylül 2004
Mesajlar
67
Arkadaşlar mrb. format problemi başlığında bu soruya değindim ama galiba anlaşılmadı yada yeni bir başlık açmam gerekiyordu. O yüzden özür diliyorum ve sorumu burada soruyorum.

Sayı formatlanınca niçin çarpma toplama vs. hata veriyor. Daha dğrusu niye noktadan sonrasını almıyor.

textbox1 de 100.000
textbox2 200.000

textbox3tede otomatikmen 300.000 olması gerekirken 300 var.

hesaplama kodlarım şöyle;
textbox3.value = val(textbox1.value) + val(textbox2.value)
bu kodu her üç textboxsada yazıyorum ki otomatik toplasın.

ama sonuç 300 niye böyle oluyor.

textboxlarımın formatı

textbox...= format( texbox...,"###,0") şeklinde..

yardımcı olursanız sevinirim kolay gelsin.
 
...
ları soruyorsanız eğer üç tane yazmayayım diye ... koymuştum yanlış anlaşıldıysa özür dilerim :)

textbox1.value= format(textbox1,"###,0")
textbox2.value= format(textbox2,"###,0")
textbox3.value= format(textbox3,"###,0")
 
hayır yanlış anlama yok

format a dikkatedersen biraz değişik.
TextBox.. = Format(TextBox.., "#,##0")
 
çok afedersiniz ben yanlış gördüşüm.
Böyle yaparsam düzelelirmi.
Þuan deneme imkanı yok sayın alpen.

yani herhangi bir butona basmadan textbox3 textbox1 ve textbox2 ye girlen değerleri kendi otomatik toplarmı...

100.000+200.000=300.000
çıkartırmı..??

çok teşekkür ediyorum..
 
allah allah ben cevap yamıştım ama ne oldu bilmiyorum.

sayın alpen sonuç tam olarak olmadı.

yani 100 ile 100 çarptırımca 1.000 oluyorda
fakat 1.000 ile 5.000
çarptırınca

5 oluyor sonuç

yani bu şudemek

texbox1 ve 2 ye 100 katları şeklinde sayı girdiğimizde sonuç hatalı oluyor.
 
TextBox1 = Format(TextBox1, "#,##0")
TextBox2 = Format(TextBox2, "#,##0")
TextBox3 = TextBox1 * TextBox2
TextBox3 = Format(TextBox3, "#,##0")
 
sayın alpen
Evet bende böyle giriyorum ve ilk denemem şuydu

tex1 e 2.500
text2 ye 300.000
text3= oldu 750 ye
 
Sayın sender,
konuyu tam takip edemedim ama, bölgesel ayarlarınızdan kaynaklanıyor olabilirmi sorununuz?
 
Private Sub CommandButton1_Click()
TextBox3 = TextBox1 * TextBox2
TextBox3.Value = Format(TextBox3, "#,##0")
End Sub

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "#,##0")
End Sub

Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2, "#,##0")
End Sub

araçlar> seçenekler> uluslararası(farklı olabilir bendeki excel ingilizce) ondalık ayracı ile binlik ayracı ne olarak görünüyor sizde?
 
sayın alpen ben texbox 3 otomatik toplam alıyorum yani buton kullanmıyorum...
kod ları her texboxsada yazıyorum

texbox3= texbox1*textbox2
 
syın alpen ondalık ayraç , binlik ayraç .
onlarla ilgili bir problem yok.

sadece aramızda bir iletişimm bozukluğu oldu galiba.

bu kodları bir butona atayınca tamam oluyor ama
t3 kendi toplasın diyorum ben. butona basmadan.
 
harbiden koptu iletişim.

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "#,##0")
If IsNumeric(TextBox1) = True And IsNumeric(TextBox2) = True Then
TextBox3 = TextBox1 * TextBox2
TextBox3.Value = Format(TextBox3, "#,##0")
End If
End Sub

Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2, "#,##0")
If IsNumeric(TextBox1) = True And IsNumeric(TextBox2) = True Then
TextBox3 = TextBox1 * TextBox2
TextBox3.Value = Format(TextBox3, "#,##0")
End If
End Sub
 
sayın alpen cevaplarınız için çok teşekkür ediyorum...
E hocam neolcak Bu kadar çok excel bilgisine sahip olursanız cevap vermek için ordan oraya koşarsanız üyelerin sorduğu soruları karıştırırsınız.. :mrgreen: :mrgreen: :mrgreen: :mrgreen:
 
Arkadaşlar Sayın ALPEN'nin verdiği kodu çalıştırdım sorunsuz çalışıyor.

Fakat çarpımın yapıldığı textboxları toplamaya kalkdığımız zaman sayı gibi (2 + 2 = 4) üstüste toplama yerine birleştiriyor ( 2 + 2 = 22).

Bu sorunu halledebilirmiyiz. Ben kafayı yedim bir türlü çözemedim.. :kafa:
 
Teşekkür ederim. İşe yarar bir bilgi.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst