Excel vba проверить содержимое ячейки

Я изначально предполагал, что вы хотите использовать RegEx для решения вашей проблемы. Согласно вашему комментарию вы вместо этого, кажется, используете Like оператор.

Likeоператор

В то время как Like принимает диапазоны символов, которые могут напоминать регулярные выражения, есть много различий и мало сходств между ними:

• Like использования ! отрицать диапазон символов вместо ^ используется в RegEx.
• Like не позволяет / знает квантификаторы после закрывающей скобки ] и, таким образом, всегда соответствует одному символу на пару скобок [], Чтобы сопоставить несколько символов, вам нужно добавить несколько копий скобок диапазона символов.
• Like не понимает продвинутых понятий, таких как захват групп или взгляд в будущее / взгляд назад
• наверное больше различий…

Недоступность квантификаторов листьев Like в действительно плохом месте для вашей проблемы. У вас всегда должен быть один диапазон символов для сравнения для каждого символа в тексте вашей ячейки. Таким образом, единственный способ использовать Like Оператор будет выглядеть следующим образом:

Private Function IsTextValid(ByVal stringToValidate As String) As Boolean

    Dim CharValidationPattern As String
    CharValidationPattern = "[A-Z0-9._-]"

    Dim StringValidationPattern As String
    StringValidationPattern = RepeatString(CharValidationPattern, Len(stringToValidate))

    IsTextValid = stringToValidate Like StringValidationPattern

End Function

Private Function RepeatString(ByVal stringToRepeat As String, ByVal repetitions As Long) As String

    Dim Result As String
    Dim i As Long
    For i = 1 To repetitions
        Result = Result & stringToRepeat
    Next i
    RepeatString = Result

End Function

Затем вы можете передать текст, который вы хотите проверить IsTextValid как это:

If IsTextValid("A.ASDZ-054_93") Then Debug.Print "Hurray, it's valid!" 

Согласно вашему комментарию, небольшой Worksheet_Change событие, чтобы поместить в модуль рабочего листа вашего соответствующего рабочего листа. (Вам также нужно будет разместить две вышеупомянутые функции там. В качестве альтернативы вы можете сделать их общедоступными и поместить их в стандартный модуль.):

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim ValidationRange As Range
    Set ValidationRange = Me.Range("A2:D5")
    Dim TargetCell As Range

    For Each TargetCell In Target.Cells

        ' Only work on cells falling into the ValidationRange
        If Not Intersect(TargetCell, ValidationRange) Is Nothing Then

            If IsTextValid(TargetCell.Text) Then
                TargetCell.Font.Color = vbBlack
                TargetCell.Font.Bold = False
            Else
                TargetCell.Font.Color = vbRed
                TargetCell.Font.Bold = True
            End If

        End If

    Next TargetCell

End Sub

Регулярные выражения

Если вы хотите продолжить путь по RegEx, попробуйте это выражение:

[^A-Z0-9_-]+

Он будет генерировать совпадение всякий раз, когда переданная строка содержит один или несколько символов, которые вам не нужны. Все ячейки, содержащие только допустимые символы, не должны возвращать совпадения.

Объяснение:
A-Z будет соответствовать всем заглавным буквам,
0-9 будет соответствовать всем числам,
_- будет соответствовать символам подчеркивания и тире.
Предыдущий ^ будет отменять весь набор символов, что означает, что RegEx соответствует только символам, не входящим в набор.
Следующие + сообщает механизму RegEx о соответствии одному или нескольким символам из вышеупомянутого набора. Вы хотите сопоставить свои данные, только если там есть хотя бы один недопустимый символ. И если их больше одного, они все равно должны совпадать.

После этого адаптировать систему к изменяющимся требованиям (различные символы считаются законными) так же просто, как переключать несколько символов в [скобках].

Смотрите живой пример онлайн.

Перейти к содержимому