TextBox'larda Bölme İşlemi

[bage]

Merhaba;
Arkadaşlar 3 tane TetxBox'ım var.
TextBox1'deki değeri TextBox2'deki degere böldürdügüm zaman TextBox3'te dogru sonucu vermiyor.
Ornegin 2,5 / 5 = 0,5 olması gerekirken 5,0 olarak veriyor.
Bu konuda yardımı olacak arkadaşlara tesekkur ederim...

 

[Korhan Ayhan]

Selamlar,

2,5 yerine 2.5 yazmayı deneyin.

 

[Orion1]

Merhaba.
Aşağıdaki Kodu denermisiniz.

Private Sub CommandButton1_Click()
Dim sayi1, sayi2 As Double
sayi1 = TextBox1.Value
sayi2 = TextBox2.Value
TextBox3.Value = Format(sayi1 / sayi2, "#,##0.00")
End Sub

 

[bage]

Merhaba Orion2
Kodu asagidaki gibi yaziyorum ama sonuc yanlis cıkıyor....
'.......................
Private Sub txtnoktasayisi_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ns, FS As Double
Dim ts As Integer

If Not IsNumeric(cmbaralik2.Value) Then Exit Sub
If Not IsNumeric(txtnoktasayisi.Value) Then Exit Sub

FS = cmbaralik2.Value
ts = txtnoktasayisi.Value
ns = (FS / ts)


If ns <= FS Then
txtref2.Value = Format(FS / ts, "#,##0.00")
End If
End Sub

 

[Orion1]

Örnek dosyanızı yollarsanız sorunu çözmeye çalışırım.
ayrıca ts yi integer tamsayı değişken olarak tanımlamışsınız.ts tamsayı değişkenmi?Değilse onuda double veya single olarak tanımlayınız.

 

[bage]

Sayın Orion2,
ts tam sayı olarak degisiyor (1,2,3,4...) gibi.
Ben işlemi ComboBox'taki sayıyı (2,5) TextBox'taki sayıya (5) böldürmeye calisinca problem cıkıyordu.
ComboBox'ı iptal edip yerine TextBox koyunca sorun cozuldu....

Fakat, neden ComboBox'taki sayıyı bolmede problem cıkardıgını anlayamadım.
eger bu konuda bir fikriniz varsa ve paylasırsanız memnun olurum.

Calistigim dosya ise epey buyudu ve Resmi Kuruma ait oldugu icin gondermem
sorun olabilir...
Simdiden ilgi ve alakaniza cok tesekkur ederim...

 

[iso3820]

Merhaba anladığım kadarıyla textbox a; hücredeki bölüm işareti ile çıkarmak istiyorsun galiba,
işte yapacağın şey: format ettikden sonra en son şunu yazacaksın ("@@")
hadi kolay gelsin