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

Invincible · Отправлено: **21:05, 18-12-2016** | #11

Цитата Iska:

искомый лист == активный лист — согласны? »

Да.
А можно тогда искомый столбец == активный столбец?

Iska · Отправлено: **21:40, 18-12-2016** | #12

Цитата Invincible:

А можно тогда искомый столбец == активный столбец? »

Можно. Можно даже так: есть выделение на активном листе — проверяем только выделение, нет выделения (активна/выделена только одна ячейка) — проверяем заполненную часть столбца, содержащего эту ячейку. Поведение выделения после обработки — как в последнем макросе. Устроит?

Invincible · Отправлено: **01:00, 19-12-2016** | #13

Цитата Iska:

проверяем заполненную часть столбца, содержащего эту ячейку. »

Если у меня курсор стоит на ячейке B2, то проверка будет проходить с B2 и до конца столбца B?

Iska · Отправлено: **01:26, 19-12-2016** | #14

Цитата Invincible:

Если у меня курсор стоит на ячейке B2, то проверка будет проходить с B2 и до конца столбца B? »

Нет. По дипазону, образованному пересечением заполненного диапазона листа (.UsedRange) и столбца B. Если выделено больше одной ячейки — только в пределах этого выделения.

Попробуйте так: CheckRangeForParentheses.7z (листы диаграммы, диалога были добавлены намеренно для иллюстрации поведения, никакой значимой ценности они не несут).

Invincible · Отправлено: **00:53, 21-12-2016** | #15

Цитата Iska:

Можно. Можно даже так: есть выделение на активном листе — проверяем только выделение, нет выделения (активна/выделена только одна ячейка) — проверяем заполненную часть столбца, содержащего эту ячейку. Поведение выделения после обработки — как в последнем макросе. Устроит? »

То есть сейчас осуществляется поиск с активного столбца?

Iska · Отправлено: **01:28, 21-12-2016** | #16

Цитата Invincible:

…осуществляется поиск с активного столбца? »

Не понял.

Invincible · Отправлено: **01:30, 21-12-2016** | #17

Цитата Iska:

Не понял. »

На котором курсор стоит, я так понял из Вашей рабочей книги

Iska · Отправлено: **02:39, 21-12-2016** | #18

Поиск в этом случае осуществляется в диапазоне, представляющем собой пересечение (Intersect()) Используемого диапазона (.UsedRange) активного Рабочего листа (.ActiveSheet) и столбца (.Columns.Item()), в котором находится активная ячейка (Selection.Column). В целом определяется вот здесь:

Код:

            With .ActiveSheet ' На активном Рабочем листе
                If Selection.Count = 1 Then ' Если в выделении присутствует одна ячейка…
                    ' …то искомый диапазон находим пересечением Используемого диапазона
                    ' активного Рабочего листа и столбца, в котором находится активная ячейка.
                    Set objCheckRange = Intersect(.UsedRange, .Columns.Item(Selection.Column)) 
                Else
                    ' …иначе — ищем в самом выделении.
                    Set objCheckRange = Selection
                End If
                
                If Not objCheckRange Is Nothing Then ' Если искомый диапазон не пуст…

Invincible · Отправлено: **07:22, 21-12-2016** | #19

Iska, Но если выделена одна ячейка а поиск осуществляется по всему столбцу?

Invincible · Отправлено: **07:48, 21-12-2016** | #20

Iska, Можно еще последнее попросить, чтобы выводилось сообщение с адресом где обнаружилось ошибка. К примеру находится ошибка в ячейке A2, после нахождения ошибки выводится MsgBox с сообщением "Обнаружена ошибка в ячейке A2", потом например ошибка в ячейке A10, выводится еще один MsgBox с сообщением "Обнаружена ошибка в ячейке A10", и в самом конце уже MsgBox с сообщением "Всего найдено 2 ошибки".