Как обрабатывать события с задержкой?

[gramp]

Прошу помочь советом, в скрипте по таймеру работает процедура и также приходят события из внешнего источника.

Вопрос 1 - если событий много, то любые манипуляции с листом приводят к прекращению работы скрипта с ошибкой. Попытка поставить DoEvents первой строкой в обработке событий ничего не меняет. Можно ли каким то образом производить манипуляции с листом, если идет обработка событий?

Вопрос 2 - если событий мало. Иногда возникает ситуация, когда по времени совпадает обработка переменной в событии и в процедуре, в результате чего переменная получает неправильное значение. Есть ли возможность в VBA Excel заставить событие обрабатываться с задержкой - только по окончанию выполнения процедуры? Этот вопрос более важен, поэтому в названии темы.

Заранее спасибо за советы.

[doober]

А случайно данные не по DDE получаете?

[gramp]

) я не знаю, что такое dde.
Есть сторонняя библиотека, которая подключена в ексел и по ней приходит событие.
В более продвинутых языках есть понятие коллекция, которое вроде может помочь в этом вопросе, но хотелось бы на VBA притормаживать события.

[EducatedFool]

Запускайте процедуру не с задержкой, а после поступления данных.

Определить момент поступления данных на лист вам поможет событие пересчёта формулы:
http://www.programmersforum.ru/showp...86&postcount=4

[doober]

Я сталкивался с такой ситуацией.когда данные идут по DDE непрерывно,хотя указан интервал 1 минута.А обновляются как хотят.
Ни как не мог нормально обработать.Пришлось получать данные по DDE в программу,обрабатывать.потом на лист. Алгоритм обработки очень сложный был,сбои мешали
Пример платформа МТ5.

[gramp]

Вариант запускать процедуру после обработки события не подходит, ибо событие может случиться в любой момент, поэтому и возникла мысль упорядочить обработку событий через притормаживание поступившего события до момента окончания выполнения процедуры.

[doober]

если разговаривать общими словами,без конкретики,то ответа скорее всего не получите
На конкретную ситуацию-свое решение

[gramp]

Меня бы вполне устроил общий ответ, возможно ли это сделать просто, введением какого-либо оператора, который бы притормозил событие до завершения процедуры без дополнительного сложного кода )

[doober]

Вот так я ожидаю завершения работы архиватора,
но такой вариант вам может и не подойти.
Надо конкретно знать.какое событие вы ожидаете.
В VBa многопоточности нет.Пока не отработает одна процедура вторая не начнет работать.

Public Function Cont_Proc() As Boolean
Dim Process As Object
Dim Flag As Boolean
 Do
Flag = False
For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
  
If Process.Caption Like "7z*" Then Flag = True: Exit For
 Next
  Loop Until Flag = False
Cont_Proc = True
End Function

[gramp]

Спасибо за пример, но, похоже, пока писал, придумал как сделать - в событии присваивать значение не основной переменной, а промежуточной, а в начале процедуры основной переменной присваивать значение промежуточной переменной.