Проверка на правильность написанных данных

[REztor]

Всем привет. Можете помочь с макросом, который будет проверять каждую ячейку столбца и в том случае, если в тексте ячейки присутствует ошибка в проставлении скобок, останавливать работу макроса и выводить сообщение, в каком месте листа макрос обнаружил ошибку. Например, запись «Текст(текст)» будет правильно, а такая – «Текст)текст(» или «((( )) () ))» будут неправильными и для них следует вывести сообщение об ошибке.

[Казанский]

Пробуйте. При остановке по ошибке макрос запоминает ячейку, на которой произошла остановка, и при повторном запуске продолжает проверку с этой ячейки.

Sub Rez()
Static r As Range, i&
Dim b&, j&, s$
  If i = 0 Then
    Set r = Intersect(ActiveSheet.UsedRange, ActiveCell.EntireColumn)
    i = 1
  End If
  For i = i To r.Count
    s = r(i)
    b = 0
    For j = 1 To Len(s)
      Select Case Mid$(s, j, 1)
      Case "("
        b = b + 1
      Case ")"
        b = b - 1
        If b < 0 Then
ex:       r(i).Select
          MsgBox "Скобки!", vbExclamation
          Exit Sub
        End If
      End Select
    Next
    If b Then GoTo ex
  Next
  i = 0
  MsgBox "Столбец проверен.", vbInformation
End Sub

[REztor]

Спасибо, нужно чтобы только такой вариант записи считался корректным "Текст(текст)", а такие "Текст((текст))", "Текст()текст))", "Текст(((текст)))" и т.д. - нет. Нужно чтобы были найдены все ошибки, а не только первая. И хотелось чтобы была возможность перенести столбец в другое место или на другой лист.

[Казанский]

1. Определитесь с форумом. Если размещаете вопрос на разных форумах, информируйте об этом на всех форумах.

2. нужно чтобы только такой вариант записи считался корректным "Текст(текст)"
Определите корректный вариант более четко. Пока понятно, что только одна пара скобок.
Может ли текст начинаться со скобки? Может ли текст быть после скобки? Могут ли внутри скобок быть только пробельные символы? Т.е. какие варианты корректны:
"(Текст текст)", "Текст(текст)текст", "Текст( )"

3. #1 если в тексте ячейки присутствует ошибка в проставлении скобок, останавливать работу макроса и выводить сообщение
#3 Нужно чтобы были найдены все ошибки
Как совместить эти требования?

[IgorGO]

на мой взгляд при проверке скобок на корректность абсолютно достаточен след алгоритм:
1. проходим по всем символам строки и "суммируем скобки" (встретилась открывающаяся скобка +1, встретилась закрывающаяся -1)
2. в процессе суммирования после каждой -1 проверяем сумму на < 0. если меньше - выход, тест провален
3. в конце тест пройден, если СуммаСкобок = 0

[REztor]

Сообщение от Казанский

1. Определитесь с форумом. Если размещаете вопрос на разных форумах, информируйте об этом на всех форумах.

2. нужно чтобы только такой вариант записи считался корректным "Текст(текст)"
Определите корректный вариант более четко. Пока понятно, что только одна пара скобок.
Может ли текст начинаться со скобки? Может ли текст быть после скобки? Могут ли внутри скобок быть только пробельные символы? Т.е. какие варианты корректны:
"(Текст текст)", "Текст(текст)текст", "Текст( )"

3. #1 если в тексте ячейки присутствует ошибка в проставлении скобок, останавливать работу макроса и выводить сообщение
#3 Нужно чтобы были найдены все ошибки
Как совместить эти требования?

2. В общем лучше, чтобы было на каждую открывающуюся скобку была закрывающая. Если какой-то скобки не хватает выдавать ошибку или на несоответствующую скобку.
3. Тут лучше представить если значения записываются, если ввели данные верно продолжается работа, если нет, то выводится ошибка.