sadece rakam girme koduna nokta ekleme

[zeugma35]

merhabalar,

aşağıdaki sadece rakam girme koduna nokta ' da eklemek istiyorum

nasıl yapabilirim yardımcı olablirmisiniz

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0: MsgBox "     Sadece Rakam Giriniz .....    "
End Sub

 

[Ömer BARAN]

Merhaba.

. (nokta) karakterinin KeyAscii karşılığı 46.
Buna göre aşağıdaki şekilde olabilir.
.

    If [B][COLOR="Blue"]KeyAscii <> 46 [/COLOR][COLOR="Red"]And[/COLOR][/B] KeyAscii < 48 Or KeyAscii > 57 Then: MsgBox "     Sadece Rakam Giriniz .....    "

 

[Emir Hüseyin Çoban]

. . .

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 46 Then Exit Sub
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0: MsgBox "     Sadece Rakam Giriniz .....    "
End Sub

. . .

 

[zeugma35]

ilginiz için çok teşekkür ederim

 

[zeugma35]

bu seferde silmek istediğimde silmeme izin vermiyo

textboxt3 te kullandığım veriler aşağıdaki gibi

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 46 Then Exit Sub
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0: MsgBox "     Sadece Rakam Giriniz .....    "
End Sub

Private Sub TextBox3_Change()
If Len(TextBox3) = 2 Then TextBox3.Text = TextBox3.Text & "."
If Len(TextBox3) = 5 Then TextBox3.Text = TextBox3.Text & "."
If Len(TextBox3) = 10 Then TextBox3.SetFocus
TextBox3.MaxLength = 10
End Sub

 

[Ömer BARAN]

Tekrar merhaba.

TextBox3_KeyPress kodundan 46 (yani nokta) kısmını çıkartarak önceki kod haline getirip,
TextBox için Change yerine Exit kod'u kullanırsanız
(forumda textbox sayı biçimi gibi arama yaparsanız çok sayıda örnek var diye hatırlıyorum)
sanırım istediğiniz olacaktır.
Yani yazarken rakam yazmaya zorlamış oluyorsunuz, çıkışta ise binlik ayracı kullanarak biçimlendirme işlemi uygulamış oluyorsunuz.