sadece rakam ve nokta girişi

[sinemomec]

testbax sadece rakam ve . girilmesini nasıl sağlarım

 

[excelokyanus500]

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

 

[sinemomec]

teşekkür ederim.