Привет! Помогите пожалуйста допилить макрос, который позволяет кликом мышки в столбце "А" выделять необходимые записи для дальнейшей обработки, но при этом не умеет "вовремя" остановиться
Как макрос работает: при выделении строк (мышкой или курсором в столбце А) включается счетчик, который при достижении значения 73 начинает ругаться - мол, остановитесь, более 73 строк в документ не поместится. Проблема заключается в том, что не смотря на ругань - все равно можно продолжить выделение строк, а этого быть не должно. У меня не получается настроить макрос таким образом, чтобы решить следующие проблемы. Помогите пожалуйста!
Для примера - вложенный файл. Проблема: после выделения первых 73 строк - продолжите кликать мышкой (точечно или выделяя небольшие области в столбце А) - и строки продолжат выделяться, чего быть не должно.
Правило должно быть только одно - после того, как в столбце А было проставлено 73 метки - более метки не должны проставляться, с выведением информационного сообщения об этом.
Привет! Помогите пожалуйста допилить макрос, который позволяет кликом мышки в столбце "А" выделять необходимые записи для дальнейшей обработки, но при этом не умеет "вовремя" остановиться
Как макрос работает: при выделении строк (мышкой или курсором в столбце А) включается счетчик, который при достижении значения 73 начинает ругаться - мол, остановитесь, более 73 строк в документ не поместится. Проблема заключается в том, что не смотря на ругань - все равно можно продолжить выделение строк, а этого быть не должно. У меня не получается настроить макрос таким образом, чтобы решить следующие проблемы. Помогите пожалуйста!
Для примера - вложенный файл. Проблема: после выделения первых 73 строк - продолжите кликать мышкой (точечно или выделяя небольшие области в столбце А) - и строки продолжат выделяться, чего быть не должно.
Правило должно быть только одно - после того, как в столбце А было проставлено 73 метки - более метки не должны проставляться, с выведением информационного сообщения об этом.Callione
Сообщение отредактировал Callione - Пятница, 09.01.2015, 17:52
If Cells(I, 1) = 0 Then If Range("A3") >= 73 Then MsgBox "Больше 73-х строк в документ не поместятся!" Exit For End If Cells(I, 1) = 1 Range("A3") = Range("A3") + 1 Else
[/vba]
[vba]
Код
If Cells(I, 1) = 0 Then If Range("A3") >= 73 Then MsgBox "Больше 73-х строк в документ не поместятся!" Exit For End If Cells(I, 1) = 1 Range("A3") = Range("A3") + 1 Else