Независимое выполнение кодов

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

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

Независимое выполнение кодов (Макросы/Sub)

Сергей13

Дата: Суббота, 17.11.2018, 21:50 | Сообщение № 1

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

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

Сообщений: 344

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

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

Excel 2016

Здравствуйте.
Ребята есть раскрывающийся список, при событии изменения содержимого выполняется код (в тестовом примере заливка ячеек), а также есть Макрос1 который вводит данные в раскрывающийся список. При выполнении Макроса1 происходит выполнение события изменения содержимого что является нежелательным.
Можно ли как-то при выполнении Макроса1 блокировать или останавливать выполнение изменение содержимого.

К сообщению приложен файл: 4711576.xlsm (21.3 Kb)

Ответить

krosav4ig

Дата: Суббота, 17.11.2018, 22:19 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

Здравствуйте.
[vba]

Код

Sub Макрос1()
    Application.EnableEvents = 0
    MsgBox " Вводится значение  а ", vbInformation, " Сообщение"
    Range("E3:E4").Select
    ActiveCell.FormulaR1C1 = "а"

    MsgBox " Вводится значение  в ", vbInformation, " Сообщение"
    Range("E3:E4").Select
    ActiveCell.FormulaR1C1 = "в"

    MsgBox " Удаление данных ", vbInformation, " Сообщение"
    Range("E3:E4").Select
    ActiveCell.FormulaR1C1 = ""
    Application.EnableEvents = 1
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Сергей13

Дата: Суббота, 17.11.2018, 23:04 | Сообщение № 3

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

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

Сообщений: 344

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

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

Excel 2016

krosav4ig, Приветствую.
То, что и надо, думал что наворочено будет, потому как в сети для поиска очень трудно сформулировать конкретно вопрос и получить нужный ответ, выдает таки навороты…
Благодарю за помощь!

Ответить

Независимое выполнение кодов (Макросы/Sub)

Страница 1 из 1
1