TextBox'da hatalı hesaplama sorunu.

[vardar07]

Merhaba Arkadaşlar. Olmayacak bir soru sorup zamanınızı aldığım için Özür dilerimYardımlarınıza teşekkürler.

 

[Orion1]

ilgili satırı aşağıdaki ile değiştiriniz.

Private Sub UserForm_Initialize()
TextBox4 = 18
End Sub

 

[vardar07]

ilgili satırı aşağıdaki ile değiştiriniz.

Private Sub UserForm_Initialize()
TextBox4 = 18
End Sub

Çok teşekkürler Orion1

 

[Orion1]

Hata oluşmadı.Çalışıyor kodlar

 

[spectr]

anladığım kadarı ile sorun parantez sorunu.
bence şu şekilde olmalı:

TextBox5 = (CDbl(TextBox1) + CDbl(TextBox2) + CDbl(TextBox3) )* CDbl(TextBox4) / 100

 

[vardar07]

Hata oluşmadı.Çalışıyor kodlar

Sayın Orion1 İlginize teşekkür

 

[Civan Jack]

Genel Toplam TextBox'ının hesaplaması için CDbl yerine Val yazıp deneyiniz...

 

[vardar07]

Genel Toplam TextBox'ının hesaplaması için CDbl yerine Val yazıp deneyiniz...

Arkadaşım ilgine teşekkür ederim.

 

[Civan Jack]

Önceki mesajınızda belirttiğiniz gibi 6,99.. sonucunu alıyorum...

 

[Orion1]

Buyurun.

Private Sub CommandButton1_Click()
TextBox8 = Format(CDbl(TextBox1) * CDbl(TextBox2), "#,##0.00")
TextBox9 = Format(CDbl(TextBox1) * CDbl(TextBox3), "#,##0.00")
TextBox10 = Format(CDbl(TextBox1) * CDbl(TextBox4), "#,##0.00")
TextBox5 = Format(CDbl(TextBox2) + CDbl(TextBox3) + CDbl(TextBox4), "#,##0.00")
TextBox7 = Format(CDbl(TextBox5) * CDbl(TextBox6) / 100, "#,##0.00")
End Sub

 

[vardar07]

Buyurun.

Private Sub CommandButton1_Click()
TextBox8 = Format(CDbl(TextBox1) * CDbl(TextBox2), "#,##0.00")
TextBox9 = Format(CDbl(TextBox1) * CDbl(TextBox3), "#,##0.00")
TextBox10 = Format(CDbl(TextBox1) * CDbl(TextBox4), "#,##0.00")
TextBox5 = Format(CDbl(TextBox2) + CDbl(TextBox3) + CDbl(TextBox4), "#,##0.00")
TextBox7 = Format(CDbl(TextBox5) * CDbl(TextBox6) / 100, "#,##0.00")
End Sub

Çok teşekkürler kolay gelsin.

 

[vardar07]

Zor soru konu iptal.

 

[vardar07]

Konu güncelliğini yitirdiğinden Kimsenin zamanını almamak için konu kapanmıştır.