воскресенье, 19 января 2014 г.

Отключение визуализации работы макросов в VBA

Небольшая процедурка, которая умеет вкл/выкл визуализацию работы макроса.
Очень помогает сократить время отработки макроса на больших объемах данных.
Код
Sub Vis(flag As Boolean)     With Application         .Calculation = IIf(flag, xlCalculationAutomatic, xlCalculationManual)         .ScreenUpdating = flag         .EnableEvents = flag         .DisplayStatusBar = flag         .DisplayAlerts = flag     End With End Sub

Пример вызова
Call Vis(False) Call Vis(True)

Ну и кусок кода для вывода информационного сообщения в статус бар.
Код
Application.StatusBar = "Текст сообщения" DoEvents