Identifizieren Sonderzeichen VBA

Question

Ich muss wissen, wie man eine Zelle identifiziert, die ein bestimmtes Sonderzeichen als (Beispiel:!,. =] \ ') Die Spalte kann nur Zahlen (0-9), Buchstaben (az) enthalten , als Kappen (AZ) und markieren sie als Farbe.

Beispiel:

Ich möchte diese automatisch als Code.

Danke für Ihre Zeit.

Answer 1

Sie können eine Regex für diese Aufgabe verwenden.

Ein nützliches Regex-Konstrukt hier ist ein negated character class: Sie verwenden [^...] und fügen Sie die Bereiche, die Sie nicht übereinstimmen möchten, dort ein. Verwenden Sie also [^a-zA-Z0-9-], um ein anderes Zeichen als ASCII-Zeichen, Ziffern und einen Bindestrich zu verwenden.

Und es verwenden, wie

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

Ohne regex:

Diese Makroprozesse Spalte B:

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 

Es nur Ziffern akzeptiert, Groß- und Kleinbuchstaben und der Strich.