sadece rakam ve nokta girişi

Katılım
20 Şubat 2012
Mesajlar
242
Excel Vers. ve Dili
office2007 Türkçe
Kod:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Debug.Print KeyAscii
  If (KeyAscii >= 48 And KeyAscii <= 57) Then
    Debug.Print "number"
  ElseIf KeyAscii = 46 Then
    Debug.Print "comma"
    If Application.DecimalSeparator = "." Then
        Debug.Print "switching to period..."
        KeyAscii = 46
    End If
  ElseIf KeyAscii = 46 Then
    Debug.Print "period"
    If Application.DecimalSeparator = "," Then
        Debug.Print "switching to comma..."
        KeyAscii = 46
    End If
  Else
    Debug.Print "other"
    KeyAscii = 0
  End If
End Sub
 
Katılım
21 Ocak 2013
Mesajlar
422
Excel Vers. ve Dili
2010
teşekkür ederim.
 
Üst