公式在E​​xcel

Question

只驗證字符串值，我希望用戶在Excel單元格中輸入字符只有.. 我用ISTEXT（值）在Excel中的自定義公式，但不能得到正確的字符串輸出像hgdashj2132154請幫忙... 謝謝你..

Answer 1

Smack，我在書籤網站上找到了這個。它本質上是相同的概念馬克·蒂博的建議，但不需要任何額外的引用：

http://www.techonthenet.com/excel/formulas/alphanumeric.php

Answer 2

它只需要一點正則表達式的魔力。您需要用戶定義的函數和正則表達式加載項。在Developer視圖中，轉到Tools | References並選中Microsoft VBScript Regular Expressions 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 

如果你寧可沒有正則表達式，總是有 「象環」：

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 

Answer 3

純VBA方法：

（我編輯我的答案使用Like運算符，而不是IsNumeric函數。現在只有字符a到z被視爲而不是隻非數字字符有效。）

Public Function IsOnlyAlpha(Value As String) As Boolean 

If Len(Value) = 0 Then 

    IsOnlyAlpha = False 
    Exit Function 

End If 

Dim i As Integer 
For i = 1 To Len(Value) 

    If Not Mid(Value, i, 1) Like "[A-Za-z]" Then 

     IsOnlyAlpha = False 
     Exit Function 

    End If 

Next i 

IsOnlyAlpha = True 

End Function