識別特殊字符VBA

Question

我需要知道如何識別具有特定特殊字符的單元格（例如：！，。=] \'）列只能包含數字（0-9），字母（az） ，作爲上限（AZ）並將它們標記爲顏色。

實施例：

我想自動這作爲代碼。

謝謝你的時間。

Answer 1

您可以對此任務使用正則表達式。

這裏有一個有用的正則表達式是negated character class：你使用[^...]並在那裏插入你不想匹配的範圍。因此，要匹配ASCII字母，數字和連字符以外的字符，請使用[^a-zA-Z0-9-]。

而且使用它像

Dim strPattern As String: strPattern = "[^a-z0-9-]" 
Dim regEx As Object 

Set regEx = CreateObject("VBScript.RegExp") 
regEx.Global = True 
regEx.IgnoreCase = True 
regEx.Pattern = strPattern 

For Each cell In ActiveSheet.Range("C:C") ' Define your own range here 
    If strPattern <> "" Then    ' If the cell is not empty 
     If regEx.Test(cell.Value) Then ' Check if there is a match 
      cell.Interior.ColorIndex = 6 ' If yes, change the background color 
     End If 
    End If 
Next 

Answer 2

沒有正則表達式：

這個宏流程列乙：

Sub marine() 
    Dim r As Range, rng As Range, s As String 
    Dim i As Long, L As Long 

    Set rng = Intersect(Range("B:B"), ActiveSheet.UsedRange) 

    For Each r In rng 
     If r.Value <> "" Then 
      s = Replace(r.Text, "-", "") 
      L = Len(s) 
      For i = 1 To L 
       If Not Mid(s, i, 1) Like "[0-9a-zA-Z]" Then 
        r.Interior.Color = vbYellow 
       End If 
      Next i 
     End If 
    Next r 
End Sub 

將只接受數字，大寫和小寫字母，和破折號。