Экран Мерцание VBA Excel

Question

Это то, что я много читал сам, но не смог найти решение. У меня есть программа около 10 000 строк, где у меня есть процедура, прикрепленная к определенной командной кнопке. Это вычисляет некоторые комплексные уравнения.

Я начал код, как обычно, с Application.ScreenUpdating = False и повернул его в True до окончания основной процедуры. Но только верхняя часть моего листа Excel (рядом с панелью меню) продолжает мерцать около 10 секунд, пока не появится результат. Я попытался отключить события, а также перевести вычисления в руководство, но ничего не помогает. Даже попытался упомянуть обновление экрана до значения false в начале вспомогательных процедур, связанных с основной процедурой.

Любое предложение относительно этого будет действительно оценено. Спасибо!

Answer 1

Попробуйте добавить это в начале суб:

Application.EnableEvents = False 
Application.DisplayStatusBar = False 
Application.Calculation = xlCalculationManual 

И это только до конца:

Application.EnableEvents = True 
Application.DisplayStatusBar = True 
Application.Calculation = xlCalculationAutomatic 

Это должно помочь. Обратите внимание, что мой экран также иногда мерцает при запуске сложных макросов (Excel выглядит так, как будто он не отвечает, но он работает в фоновом режиме).