Format sorunu

[CILEKESH]

Merhaba,
Excel hücresine 1 den küçük bir değer girmek istediğimizde örneğin "0,5" sıfır tuşuna basmadan ",5" olarak yazabiliyoruz.
Aynı işlemi texte yapmak istiyorum ancak format için aşağıdaki kodu kullandığımdan dolayı hata veriyor.

TextBox18 = Format(CDbl(TextBox7) * CDbl(TextBox14), "#,##0.00")

Bunu nasıl düzeltebilirim.

 

[mgurten]

Merhaba,
Excel hücresine 1 den küçük bir değer girmek istediğimizde örneğin "0,5" sıfır tuşuna basmadan ",5" olarak yazabiliyoruz.
Aynı işlemi texte yapmak istiyorum ancak format için aşağıdaki kodu kullandığımdan dolayı hata veriyor.

TextBox18 = Format(CDbl(TextBox7) * CDbl(TextBox14), "#,##0.00")

Bunu nasıl düzeltebilirim.

virgül yerine nokta koy yazarken ,5 yerine .5

 

[CILEKESH]

Başka bir kod ile kullanıcının nokta girişini engelledim. numaralara virgül yakın olduğu için ondalık haneler i.in virgül tuşunu kullandırıyorum. Başka bir yöntemi var mı?

 

[mgurten]

Başka bir kod ile kullanıcının nokta girişini engelledim. numaralara virgül yakın olduğu için ondalık haneler i.in virgül tuşunu kullandırıyorum. Başka bir yöntemi var mı?

şunu bir dene

Private Sub CommandButton1_Click()
Dim i, yeni
For i = 1 To Len(Textbox7)
    If Mid$(Textbox7, i, 1) = "," Then
        yeni = yeni & "."
    Else
        yeni = yeni & Mid$(Textbox7, i, 1)
    End If
Next i
Textbox7.Text = yeni
i = ""
yeni = ""
For i = 1 To Len(Textbox14)
    If Mid$(Textbox14, i, 1) = "," Then
        yeni = yeni & "."
    Else
        yeni = yeni & Mid$(Textbox14, i, 1)
    End If
Next i
Textbox14.Text = yeni
    
    
Textbox18 = Format(CDbl(Textbox7) * CDbl(Textbox14), "#,##0.00")
End Sub

 

[CILEKESH]

Hocam verdiğiniz kodu Formun Activate olayına, İlgili Text'in Change olayına ve ondalik hanelerde virgül girişinin kullanılması için Text'in KeyPress olaylarına yazdım sonuç alamadım,

Bu kod ile nasıl bir çözüm ürettiniz? Ben kullanıcının her halukarda virgül kullanmasını istiyorum nokta değil.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz. Tam denetim kontrolü yoktur. Bazı durumlarda hata verebilir.

Private Sub TextBox1_Change()
    If Len(TextBox1) - Len(Replace(TextBox1, ",", "")) > 1 Then TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 110 Then
        If Len(TextBox1) = 0 Then TextBox1 = "0"
    End If
End Sub

 

[CILEKESH]

Korhan bey kodlar çalışıyor biraz denedim herhangi bir sıkıntı yok,
Teşekkür ederim.