Vba excel doevents примеры

Если тебя уже раздражает
такое «ламерское» (но на мой взгляд удобное и наглядное решение),
можно отследить тысячный проход цикла по-другому, например деля значения счетчика
цикла x на эту тысячу с остатком (Mod) при каждой итерации, тогда при остатке
ноль можно считать, что значение х кратно нашей тысяче. Тогда наш код будет
выглядеть так:Private Sub Command1_Click()
Dim x As Long
Dim y As Long
For x = 1 To 300000
Text1 = x
y = y + 1
If x Mod 1000 = 0
Then DoEvents
'получаем остаток от деления
'и если он равен нулю, запускаем DoEvents
Next
x
End Sub

А может быть снижение быстродействия не так уж и значительно и им можно пренебречь?
Чтобы нам не принимать все на веру, мы сами проведем соответствующее сравнительное
исследование зависимости быстродействия от частоты срабатывания функции DoEvents.
Для этого нам на форме дополнительно понадобятся Timer1, и еще два текстбокса
Text2 и Text3. В уже имеющийся Text1 мы будем вводить интервал цикла (по умолчанию
он у нас будет 300000), в Text2 — на какой итерации (1-ой, т.е. каждой, 100-ой,
10000-й и т.д ) будет включаться функция DoEvents. В Text3 выведем результат
измерений в миллисекундах.
Объявим три переменных:

Option
Explicit
Dim Iter As Long
'итерация срабатывания DoEvents
Dim RunTime As Integer
'время работы цикла
Dim RunLong As Long
'длина цикла

В процедуре Form_Load присвоим
начальные значения цикла и итераций:

Private Sub Form_Load()
Text2 = 1
Text1 = 1000000
End Sub

Код процедуры Command1_Click
Изменим следующим образом:

Private Sub Command1_Click()
Dim x As Long
Dim y As Long
Iter = Val(Text2) 'Присваиваем переменным значения для
цикла
RunLong = Val(Text1)
RunTime = 0
Text3 = "Цикл в работе"
Timer1.Interval = 1 'устанавливаем интервал таймера в
1 мск
Timer1.Enabled = True 'запускаем
таймер

Private Sub Timer1_Timer()
RunTime = RunTime + 1
End Sub

Скажу сразу, что данный эксперимент
не ставит собой целью получить точные данные, т. к. это невозможно хотя бы из-за
того, что процессор в Windows’е постоянно выполняет определенную работу в фоновом
режиме, и хотя мы этого не видим, но отнимает время у нашей программы. Для получения
корректных результатов промежуток времени работы цикла должен быть большой,
с тем, чтобы погрешность, скажем 5 мск была бы не критичной.
Попробуй запустить тест. При этом, конечно, не надо двигать форму по экрану,
чтобы не занимать дополнительного времени. Мы увидим, что при включении функции
DoEvents каждую 10-ю итерацию ускоряет цикл в 7-8 раз, каждую 100-ю —
в 18-20 раз. Т.е. функция DoEvents снижает быстродействие просто в разы!!!
Но тем не менее, использовать надо, но очень разумно.

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

,
которая и будет сигнализировать о том, что процесс необходимо прервать.
Добавим на форму кнопку Command2, которой и будем прерывать выполнение цикла.
В секцию (General) добавим объявление флага

Dim Flag As Boolean

В процедуре Command1_Click,
прямо в самом начале установим начальное для цикла значения флага:

Flag = False

а в самом цикле поставим
условие на выход

If Flag = True
Then Exit Sub

Теперь, для выхода из цикла
надо просто изменить значение флага False на True. Это мы и сделаем в процедуре
Command2_Click:

Private Sub Command2_Click()
Flag = True
Text3 = "Цикл прерван"
End Sub

Вот и готово. Теперь наша
кнопка Command2 прерывает цикл. Скачать исходник примера можно вверху страницы.

С помощью функции DoEvents можно также организовать цикл ожидания, прерываемый
пользователем. В качестве примера сделаем программку-шутку, которая иммитирует
предупреждение пользователю о начале форматирования жесткого диска. Для этого
в новом Exe-проекте на форме нам понадобится Label1, Command1 и Timer1.
Объявим пару переменных:

Option Explicit
Dim RunTime As Integer
'время в секундах
Dim Flag As Boolean 'флаг,
сигнализирующей о прерывании цикла

Для процедуры, собственно, цикла ожидания я выбрал событие
формы _Activate, так как оно возникает, когда форма уже загружена и инициализирована
и элементы на ней видимы.Private Sub Form_Activate()
RunTime = 10 'устанавливаем начальные значения секунд
Timer1.Interval = 1000 'интервал срабатывания таймера
1 сек
Timer1.Enabled = True ' включаем
таймер
'организуем цикл, работающий до тех пор, пока переменная
RunTime
'не стане равной нулю (изменяется таймером)
Do Until RunTime = 0
DoEvents 'постоянно передаем управление Windows
If Flag Then 'проверяется,
нажата ли кнопка Command1 для
'прерывания цикла (Flag=True) или нет (Flag=False)
Label1 = "Молодец, успел, но все равно форматирование начинается!"

Exit Sub 'выход из процедуры,
если кнопка Command1 нажималась
End If 'конец условия
Loop 'конец цикла
Timer1.Enabled = False 'выключение
таймера
Label1 = "Не успел, не успел, надеюсь на винчестере ничего ценного нет?"
End SubВ процедуре таймера
при каждом срабатывании (ежесекундно) уменьшаем значение RunTime на единицуPrivate Sub Timer1_Timer()
RunTime = RunTime - 1
'и выводим соответствующее сообщение в лейбл
Label1 = "Форматирование диска начнется через " & RunTime &
" сек. " _
& " Успеешь нажать кнопку?"
End Sub

Процедура Command1_Click() управляет флагом и выключает таймер

Private Sub Command1_Click()
Timer1.Enabled = False
Flag = True
End Sub

Скачать исходник этого примера можно отсюда.

This tutorial will discuss how to use the DoEvents command in VBA.

The VBA DoEvents function temporarily pauses a running macro, giving Excel a chance to process key presses, mouse clicks, and other operating system messages.

In long-running macros, Excel can appear to hang and become unresponsive, and the macro may be impossible to interrupt. If DoEvents is included in your code, users can be assured that the macro is still running, and can still interrupt execution if necessary.

VBA DoEvents Example

Consider the following code:

Public Sub Test()
    Dim i As Long

    For i = 1 To 20000
        Range(“A1”).Value = i
    Next i

End Sub

When you try this code, you’ll note that the Excel window can’t be interacted with. However, because it’s not very demanding on the processor, the macro can still be interrupted by pressing ESC or CTRL+BREAK.

If a lot of complex and demanding functions were being performed inside this loop, Excel would take longer to register a key press event – up to several minutes or possibly not at all, especially if the computer is running other programs at the same time.

Now add a single line with DoEvents below the Range assignment:

        Range("A1").Value = i
        DoEvents

If you run this code again, you’ll see that Excel is now responsive – it can be focused and brought to the foreground.  DoEvents is called every time through the loop, which ensures that the macro is always yielding execution so that Excel can process any messages sent to it.  Because this macro runs quickly, it almost seems as though it’s running in the background (though it isn’t) – more operations inside the loop would quickly expose that illusion.

DoEvents Dangers

Take a second look, though. More than simply allowing Excel to be focused, you can actually click around inside cells and even switch tabs while the macro is running (try it – you’ll see some funny behavior).  This shows one of the dangers of DoEvents – it can be the cause unintended consequences if your macro isn’t coded carefully.

Another danger is that DoEvents can serve as a window for other macros to run inside of.  Try this: place an ActiveX CommandButton on the worksheet, double-click it, and add the following code inside the CommandButton1_Click() event:

    Dim c As Range

    For Each c In Range("B3:E8")

        c.Value = c.Value + 1

    Next c

Toggle off Design Mode in Excel, then run the Test() macro you added earlier.  While the Test macro is running, you can click the CommandButton on the worksheet, and its associated macro will run as soon as DoEvents gives the Test() macro a break.

The danger here is if the CommandButton macro altered the data the Test() macro was working on, or triggered the Test() macro again.  You can end up with some extremely messy results if you’re not careful.

Finally, you should be aware that DoEvents will cause your macro to suffer a performance impact when called.  Inside a loop, this impact will add up quickly unless you limit how often DoEvents is called.  Referring to our Test() example, try this:

        If i Mod 1000 = 0 Then DoEvents

This visibly reduces Excel’s responsiveness, but the performance impact will be lessened.

When to use DoEvents

Despite these dangers, DoEvents is a handy function that aids in testing and debugging.  Consider adding DoEvents to long-running loops.

Another reason to include DoEvents is to allow for user feedback. For example, a macro might update a UserForm’s labels with progress indicators. Without DoEvents, Excel may not receive the messages to repaint the UserForm, giving a user the impression that the macro has stopped working – especially if you switch to another program and then try to switch back to Excel. With DoEvents however, the UserForm will continue to be repainted, and updates to the macro’s progress will continue to appear.

For the most part, DoEvents isn’t something you’ll want to include a lot in your code, and can often be omitted.  If responsiveness is something your macro needs though, don’t count it out!