Textbox'a Virgül Girilmesini Engelleme

[ahmed_ummu]

Merhaba arkadaşlar.

Textbox'a kuruş kısmını virgül ile ayırıp bir sayı girince o sayı ile işlem yapmıyor. Mesela 173,11 girdiğimde bu sayıları toplama işlemi yapmıyor. Nokta ile ayırdığımda toplama işlemini yapıyor 173.11 gibi. Textbox'a virgül girilmesini nasıl engelleyebilirim. Veya virgül girilse bile noktaya çevrilebilinir mi. Yardımcı olursanız sevinirim. Benzer kodlar buldum ama istediğimi tam yapamadım.

 

[ÖmerFaruk]

Deneyin lütfen

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case 44
        'Virgüle basılırsa noktaya çevir
        KeyAscii = 46
    Case 46, 48 To 57
        'Nokta veya sayıya basılrısa bir şey yapma
    Case Else
        'Diğer tüm tuşları iptal et
        KeyAscii = 0
    End Select
End Sub

 

[ahmed_ummu]

Deneyin lütfen

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
    Case 44
        'Virgüle basılırsa noktaya çevir
        KeyAscii = 46
    Case 46, 48 To 57
        'Nokta veya sayıya basılrısa bir şey yapma
    Case Else
        'Diğer tüm tuşları iptal et
        KeyAscii = 0
    End Select
End Sub

Teşekkürler Ömer Faruk bey.