Nie ma kodu? Ale to jest takie krótkie, łatwe i piękne i… :(
Twój RegEx pattern [^A-Za-z0-9_-] jest używany do usuwania wszystkich znaków specjalnych we wszystkich komórkach.
Sub RegExReplace()
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Global = True
RegEx.Pattern = "[^A-Za-z0-9_-]"
For Each objCell In ActiveSheet.UsedRange.Cells
objCell.Value = RegEx.Replace(objCell.Value, "")
Next
End Sub
Edytuj
To jest tak blisko, jak tylko mogę dostać się do twojego oryginalnego pytania.
Function RegExCheck(objCell As Range, strPattern As String)
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Global = True
RegEx.Pattern = strPattern
If RegEx.Replace(objCell.Value, "") = objCell.Value Then
RegExCheck = 0
Else
RegExCheck = 1
End If
End Function
Drugi kod to zdefiniowana przez użytkownika funkcja =RegExCheck(A1,"[^A-Za-z0-9_-]") z 2 argumentami. Pierwszy z nich to komórka do sprawdzenia. Drugim argumentem jest wzorzec RegEx do sprawdzenia. Jeśli wzorzec pasuje do któregoś ze znaków w komórce, zwróci 1, w przeciwnym razie 0.
Możesz użyć tej funkcji jak każdej innej normalnej formuły w Excelu, jeśli najpierw otworzysz edytor VBA za pomocą ALT+F11, wstawisz nowy moduł (!) i wkleisz poniższy kod.
[] stands for a group of expressions
^ is a logical NOT
[^] Combine them to get a group of signs which should not be included
A-Z matches every character from A to Z (upper case)
a-z matches every character from a to z (lower case)
0-9 matches every digit
_ matches a _
- matches a - (This sign breaks your pattern if it's at the wrong position)
Dla użytkowników nieobeznanych z RegEx wyjaśnię Twój wzór: [^A-Za-z0-9_-]