При выполнении кода обойти событие листа

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

При выполнении кода обойти событие листа (Макросы/Sub)

Сергей13

Дата: Понедельник, 13.05.2019, 22:37 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте.

Ребята как обойти или отключить событие листа,

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
'Оператор
End Sub

[/vba]
при выполнении макроса, расположенного в модуле, который выполняет некие действия на данном листе и в результате чего выдает ошибку на строку кода в событии листа.
Попытка отключить строку кода в событии

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    'Оператор
    Application.EnableEvents = True
End Sub

[/vba]
не устраняет данную проблему.

Сообщение отредактировал Сергей13 - Понедельник, 13.05.2019, 22:38

Ответить

RAN

Дата: Понедельник, 13.05.2019, 22:50 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата Сергей13, 13.05.2019 в 22:37, в сообщении № 1 ()

Попытка отключить строку кода в событии
..............
не устраняет данную проблему.

Что означает - неча на зеркало пенять.

Быть или не быть, вот в чем загвоздка!

Ответить

Сергей13

Дата: Понедельник, 13.05.2019, 23:47 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

RAN, Спасибо!

Ответить

K-SerJC

Дата: Вторник, 14.05.2019, 07:56 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

[offtop]это из серии сходить туда не знаю куда, принести то не знаю что

[/offtop]

Благими намерениями выстелена дорога в АД.

Ответить

Alex_ST

Дата: Среда, 15.05.2019, 08:45 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Сергей13, Вы отключаете обработку события уже после того, как начата его обработка в процедуре .
Ну, таки-да, в течении времени исполнения процедуры Private Sub Worksheet_Change(ByVal Target As Range) события Worksheet_Change обрабатываться не будут.
Инструкцию Application.EnableEvents = False нужно выносить из процедуры Private Sub Worksheet_Change(ByVal Target As Range) и выполнять заранее в каком-то другом макросе.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

_Boroda_

Дата: Среда, 15.05.2019, 12:04 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата Alex_ST, 15.05.2019 в 08:45, в сообщении № 5 ()

заранее в каком-то другом макросе

Полностью солидарен
Да прямо в этом

Цитата Сергей13, 13.05.2019 в 22:37, в сообщении № 1 ()

макроса, расположенного в модуле, который выполняет некие действия на данном листе

можно и выключать. Перед тем, как что-то на листе сделать. Только включить обратно не забудьте потом
Типа вот так
[vba]

Код

sut tt
' какой-то код без обращений к листу
Application.EnableEvents = False 'отключаем
cells(2,8)="знечение" 'обращение к листу
' какой-то код без обращений к листу
cells(2,888)="знечение1" 'обращение к листу
Application.EnableEvents = True'включаем
' какой-то код без обращений к листу
end sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

RAN

Дата: Среда, 15.05.2019, 12:29 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Саша, Леша!
Может у меня ~~гранаты~~ Excel не той системы?
Но работает, однако!
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Target = Target * 2
    Application.EnableEvents = True
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

_Boroda_

Дата: Среда, 15.05.2019, 12:39 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А почему не должно бы работать? Конечно работает. Вопрос-то не в этом. Я понял так - автор запускает макрос, в процессе выполнения которого происходит перепрыгивание на Worksheet_Change и все портится. Нужно сделать так, чтобы не перепрыгивало.