Vba 选中excel中只接受文本的单元格

如果AscActiveCell>65且AscActiveCell<95或AscActiveCell>97且AscActiveCell<122，则 '如果是Application.WorksheetFunction.IsTextActiveCell，则 '如果AscActiveCell<65且AscActiveCell>90或AscActiveCell<97且AscActiveCell>122，则 其他的 FnameTextOnly.Add ActiveCell.AddressFalse，False 如果结束 ActiveCell.Offset1，0。选择 如果结束 当单元格的值为12as、@$%、1234时，此代码工作正常

---

但是如果我输入数据，例如：asd34，那么它不应该接受，而是接受，因为名称以文本开头。

这里有一种测试ActiveCell的方法

---

尝试将ISTEXT单元格引用的If语句添加到例程中。这样，ISTEXT asd34=False。在相应地确定正确或错误分支后。

请准确描述您要测试的内容、有效内容，什么不是，为什么不是。第一个名字必须只包含一个字母。如果不是，我正在初始化数据错误的单元格地址。因此，任何不完全由A-Z/A-Z组成的内容都无效？ISTEXT不检查特殊字符，但这是忽略值，例如：hgh67。这是正常工作的价值，例如：8789jhghj@RajaniRampelli在我的电脑上，任何非字母的单元格都会收到错误信息

Sub CellText()
    Dim CH As String, v As String
    v = ActiveCell.Text
    For i = 1 To Len(v)
        CH = Mid(v, i, 1)
        If CH Like "[a-zA-Z]" Then
        Else
            MsgBox v & " is not valid"
            Exit Sub
        End If
    Next i
MsgBox v & " is valid"
End Sub