excel - 在excel中仅验证字符串值的公式

Question

我希望用户只在 excel 单元格中输入字符..
我用了 ISTEXT(值) 在 excel 的自定义公式中，但无法为 之类的字符串获得正确的输出hgdashj2132154 请帮忙...
感谢你..

Answer 1

它只需要一点正则表达式的魔力。您需要一个用户定义的函数和正则表达式插件。在开发人员 View 中，转到工具|引用并勾选 Microsoft VBScript 正则表达式 5.5。

这是功能:

Public Function isOnlyAlpha(myText) As Boolean
   Dim regEx
   Set regEx = New RegExp   'Regular expression object
   regEx.Pattern = "^[a-zA-Z]*$"  ' Set pattern.
   isOnlyAlpha = regEx.Test(myText)   ' Test for match
End Function

结果:

=isOnlyAlpha("hgdashj2132154")
False

=isOnlyAlpha("hgdashj")
True

如果您宁愿不使用正则表达式，总有“Like Loop”:

Public Function IsOnlyAlpha(Value As String) As Boolean
    IsOnlyAlpha = True
    Dim i As Integer
    For i = 1 To Len(Value)
        IsOnlyAlpha = IsOnlyAlpha And (Mid(Value, i, 1) Like "[A-Za-z]")
    Next i
End Function