文本框中只有字母条目

【问题标题】：Only alphabetic entries in text box文本框中只有字母条目
【发布时间】：2014-03-11 05:49:47
【问题描述】：

我需要验证应该包含名称的用户表单的 excel VBA 中的文本框。我需要停止任何类型的数字输入。我尝试了 Isnumeric 函数，但它仅在整个文本框仅包含数字时才有效。如果我输入这样的数据：“jack1”，我需要找到一个阻止我继续的代码。有什么建议吗？？

【问题讨论】：

标签： validation text textbox numeric

【解决方案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

【讨论】：

我试过了，但即使我将文本框的名称更改为我的文本框的名称，它也没有工作。我想在保存按钮中使用它。这样，如果单元格中的任何位置都有数字，则将退出子。