Textbox ondalık sayı format problemi

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,669
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Merhaba,
Örnek olarak aşağıdaki kod da textbox323 ün formatı 15.23 olması gerekirken 15.00 çıkıyor.Araştırdım bir türlü çözemedim.
sonucun gözlenmesi için Dosyayı ekte gönderiyorum.
-listboxtan bir çok ürün seçin
-net tutarı girgiğinizde, net fiat sutunu 1nci textbox sonucunu gözlemleyin.
Bu şekilde sorunu daha açık anlatabilmiş olurum.
Teşekkürler.
Kod:
Private Sub TextBox297_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox298 = Format((Val(TextBox296) - Val(TextBox297)) / Val(TextBox296), "#,##0.00 %") 'net ten çıkış iskonto
If Controls("TextBox1") <> "" Then
TextBox89.Value = TextBox298.Value
TextBox323.Value = Format(Val(TextBox67.Value) - (Val(TextBox67.Value) * Val(TextBox89.Value) / 100), "#,##0.00")
 

Ekli dosyalar

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
TextBox'larin başına ya Val'i hiç yazmayın ya CDbl yazın.
 

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,669
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Murat bey merhaba,
her ikiside hata veriyor
Kod:
TextBox323.Value = Format(TextBox67.Value - TextBox67.Value * TextBox89.Value / 100, "#,##0.00")
TextBox323.Value = Format(CDbl(TextBox67.Value) - CDbl(TextBox67.Value) * CDbl(TextBox89.Value) / 100, "#,##0.00")
 
Üst