Discard unauthorized characters with keypress event

[kelly mort]

I have used this code to discard all characters except numbers. Now I want to allow the input of points too but I can't make it happen. Can someone fix it for me?

Private Sub TextBox1_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger)
        KeyAscii = KeyAscii * -CLng(Chr(KeyAscii) Like "[0-9]")
End Sub

 

[Yongle]

Is this what you want?

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        KeyAscii = KeyAscii * -CLng(Chr(KeyAscii) Like "[0-9[SIZE=3][COLOR=#ff0000].[/COLOR][/SIZE]]")
End Sub

 

[kelly mort]

Is this what you want?

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        KeyAscii = KeyAscii * -CLng(Chr(KeyAscii) Like "[0-9[SIZE=3][COLOR=#ff0000].[/COLOR][/SIZE]]")
End Sub

Yes.

One question :

Can we limited the number of points to 1?

This accepts more than one of the points.

Thanks

 

[Yongle]

To allow only ONE point (period) ( . ) try...

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc("."): If UBound(Split(TextBox1.Text, ".")) > 0 Then KeyAscii = 0
        Case Else: KeyAscii = 0
    End Select
End Sub

 

[Yongle]

Taking things a little further
... to limit the number of characters AFTER the point to 2

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    With TextBox1
        If InStr(.Text, ".") > 0 Then
            If Len(Split(.Text, ".")(1)) = [COLOR=#ff0000]2[/COLOR] Then KeyAscii = 0
        End If
        Select Case KeyAscii
            Case Asc("0") To Asc("9")
            Case Asc("."): If UBound(Split(.Text, ".")) = [B][COLOR=#006400]1[/COLOR][/B] Then KeyAscii = 0
            Case Else: KeyAscii = 0
        End Select
    End With
End Sub

To make the logic of the original code more obvious , I amended this line

Case Asc("."): If UBound(Split(.Text, ".")) [B][COLOR=#006400]> 0[/COLOR][/B] Then KeyAscii = 0

To

Case Asc("."): If UBound(Split(.Text, ".")) [B][COLOR=#006400]= 1[/COLOR][/B] Then KeyAscii = 0

 

[kelly mort]

Cool cool!!!

Thanks