只有文本框中的字母条目

Question

我需要在excel VBA中验证应该包含名称的userform的文本框。我需要停止任何类型的数字输入。我尝试过Isnumeric函数但它只在整个文本框只包含数字时才有效。我需要找到一个代码，如果我输入这样的数据：“jack1”，将阻止我继续。任何提示??

Answer 1

试试这个

Private Sub TextBox1_KeyPress(ByVal KeyAscii As Form1.ReturnInteger) 
Select Case KeyNumbers
Case Asc("0") To Asc("99") 
Case Asc(".") 
If InStr(1, TextBox1.Text, ".") > 0 Then 
KeyNumbers = 0 
End If 
Case Else 
KeyNumbers = 0 
End Select 
End Sub