我只想限制数字中的文本框,这意味着我想要除数字之外的任何“字母”和特殊字符
这就是我实际拥有的:注意:...此代码段仅适用于字母,我什至不能使用标点符号
Private Sub TxtActividade_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 32, 65 To 90, 97 To 122 ''122
Case Else
KeyAscii = 0
MsgBox "Only letters and special characteres", vbInformation, "Validation"
End Select
End Sub
如果要排除输入的数字,请执行以下操作:
Private Sub TxtActividade_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
KeyAscii = 0
MsgBox "Only letters and special characteres", vbInformation, "Validation"
End Select
End Sub
48到57之间的KeyAscii值为数字,并且KeyAscii = 0表示取消了击键。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句