Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Единократное срабатывание макроса по пересчету листа
 
#1
09.03.2018 23:10:11
Добрый вечер.
У меня есть вопрос.

Имеется три простых макроса.
Первый добавляет в ячейку А1 пятерку, второй добавляет в ячейку E1 - тройку.
Третий макрос - добавляет в ячейку B1 - единицу.
В ячейке A3 - стоит формула Случмежду.

Как при пересчете листа добиться, чтобы сработали эти три макроса - единократно ?

То есть суть такая - при выполнении этих трех макросов - эксель не должен воспринять их как три пересчета листа.
Он должен просто при пересчете - прибавить в А1 - пятерку, в E1 - тройку, в B1 - единицу.... и формула случмежду - должна сработать лишь один раз.
 
 
 
#2
09.03.2018 23:59:10
В начале макроса поставить проверку флага. Если установлен - завершение работы.
Флаг - любая отметка - в ячейке, в именах... где угодно

И зачем три отдельных макроса, если должны отработать все по одному событию?
Код
Sub Макрос1()
    If Range("D1").Value = "" Then
        Range("B1").Value = Range("B1").Value + 1
        Range("A1").Value = Range("A1").Value + 5
        Range("E1").Value = Range("E1").Value + 3
        Range("D1").Value = 1 ' поставили флаг
    End If
End Sub

Вот только какое событие?
 
 
 
#3
10.03.2018 00:08:29
Может отключать/включать отслеживание событий?
 
 
 
#4
10.03.2018 09:09:44
По условиям задачи - макросов не один, а три.
Менять их количество - нельзя.
 
 
 
#5
10.03.2018 09:15:21
OlegSmirnov, Еще вчера Вам был дан ответ одним из форумчан. Его после повторил Юрий М, в #3 .
для того, чтоб не запускался пересчет необходимо временно отключить обработчик событие
application.EnableEvents=False. Перед завершением кода желательно вернуть его обратно application.EnableEvents=True.
Изменено: БМВ - 10.03.2018 09:18:02
По вопросам из тем форума, личку не читаю.
 
 
 
#6
10.03.2018 09:31:16
БМВ, понятно
 
 
 
Страницы: 1
Наверх