限制文字框的輸入（只輸入數字）

文字框 文字框防止非法字元輸入：

只輸入整數：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack
'nop
Case Else
KeyAscii = 0
End Select
End Sub

只輸入小數:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack
'nop

case Asc(".")'允許一個小數點
If InStr(1, Text1.Text, ".") > 0 Then KeyAscii = 0

Case Else
KeyAscii = 0

End Select
End Sub