在Excel中检查单元格，该单元格应仅接受文本

Question

如果（（Asc（ActiveCell）> 65和Asc（ActiveCell）<95）或（Asc（ActiveCell）> 97和Asc（ActiveCell）<122））然后'If Application.WorksheetFunction.IsText（ActiveCell）然后'If（（ Asc（ActiveCell）<65和Asc（ActiveCell））> 90或（Asc（ActiveCell）<97和Asc（ActiveCell）> 122））然后其他FnameTextOnly.Add ActiveCell.Address（False，False）如果ActiveCell.Offset（ 1，0）.Select End如果单元格的值例如：12as，@＃$％，1234时此代码正常工作，但是如果我输入数据例如：asd34，则它不应接受，但应接受，因为名称以文本。

Answer 1

这是测试ActiveCell的一种方法

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

Answer 2

尝试在例程中添加用于ISTEXT（单元格引用）的If语句。 这样，ISTEXT（asd34）= False。 合格后，相应地确定对或错分支。