Това е важен въпрос за всички нас, когато работим с VBA в Excel, за да изключите актуализирането на екрана. В тази статия ще ви покажа как можете да изключите актуализирането на екрана с помощта на VBA в Excel.

Excel VBA: Изключване на актуализирането на екрана (бърз преглед)

 Sub Turn_Off_Screen_Update() Application.ScreenUpdating = False Count = 1 For i = 1 To 100 For j = 1 To 100 ActiveSheet.Cells(i, j) = Count Count = Count + 1 Next j Next i Application.ScreenUpdating = True End Sub 

Изтегляне на работна тетрадка за практика

Изтеглете тази учебна тетрадка, за да се упражнявате, докато четете тази статия.

Преглед на изключването на актуализирането на екрана с помощта на Excel VBA

Изключване на актуализирането на екрана чрез VBA В интерес на истината само един ред е достатъчен, за да постигнете това.

 Application.ScreenUpdating = False 

Този един ред код ще изключи актуализирането на екрана за вас, но няма да можете да усетите ефекта с този единствен ред. За да го усетите, вмъкнете няколко реда код, които ще изпълняват някакви задачи за вас след актуализирането на екрана. По-добре е това да е дълга задача, която ще ви накара да разберете ефекта от актуализирането на екрана.

 Count = 1 For i = 1 To 100 For j = 1 To 100 ActiveSheet.Cells(i, j) = Count Count = Count + 1 Next j Next i 

Тези редове вмъкват поредица от 1 до 100 000 в активния лист, като започват от клетката A1 . Ако го направите без актуализиране на екрана, ще отнеме много време. Защото всеки път, когато се вмъква число в следващата клетка, заедно с него се актуализира и предишната клетка.

Но ако актуализирането на екрана е изключено, по-ранните клетки няма да се актуализират всеки път и изпълнението на операцията ще отнеме по-малко време.

След това, ако желаете, можете отново да включите актуализирането на екрана.

 Application.ScreenUpdating = True 

Така че пълният VBA кодът ще бъде:

⧭ Код VBA:

 Sub Turn_Off_Screen_Update() Application.ScreenUpdating = False Count = 1 For i = 1 To 100 For j = 1 To 100 ActiveSheet.Cells(i, j) = Count Count = Count + 1 Next j Next i Application.ScreenUpdating = True End Sub 

Прочетете още: [Поправено!] Клетките в Excel не се актуализират, освен ако не кликнете два пъти (5 решения)

Подобни четива

• Как да опреснявате автоматично листа на Excel (3 подходящи метода)
• Как автоматично да актуализирате таблица Pivot при промяна на изходните данни
• Таблицата на завъртане не се опреснява (5 проблема & Решения)
• Как автоматично да опреснявате таблицата Pivot без VBA в Excel (3 интелигентни метода)

Разработване на макрос за изключване на актуализирането на екрана с помощта на Excel VBA

Видяхме поетапния анализ на кода за изключване на актуализирането на екрана с помощта на VBA в Excel. Сега ще видим как можем да разработим Macro за да го извършите.

⧪ Стъпка 1: Отваряне на прозореца VBA

Натиснете ALT + F11 на клавиатурата, за да отворите Visual Basic прозорец.

⧪ Стъпка 2: Вмъкване на нов модул

Отидете на Вмъкване> Модул в лентата с инструменти. Щракнете върху Модул . Създаден е нов модул, наречен Модул1 (или нещо друго в зависимост от предишната ви история).

⧪ Стъпка 3: Поставяне на кода VBA

Това е най-важната стъпка. Вмъкнете дадения VBA код в модула.

⧪ Стъпка 4: Изпълнение на кода

Кликнете върху Изпълнение на Sub \ UserForm от горната лента с инструменти.

Кодът ще се изпълни. И ще видите, че в работния лист бързо се генерират поредици от числа от 1 до 1 00 000, които иначе биха се изпълнявали дълго време.

Прочетете още: [Решено]: Формулите на Excel не се актуализират до запазване (6 възможни решения)

Нещата, които трябва да запомните

Не е необходимо да изпълнявате една и съща задача с мен след изключването на актуализирането на екрана. Можете да изпълнявате каквато и да е ваша редовна задача. Но въпросът е, че няма да разберете ефекта от изключването на актуализирането на екрана, ако не изпълнявате дълга поредица от задачи. Ето защо генерирах поредица от 1 до 1 00 000.

Заключение

Следователно това е процесът на разработване на Macro за изключване на актуализирането на екрана с помощта на Excel VBA . Имате ли въпроси? Не се колебайте да ни попитате. И не забравяйте да посетите нашия сайт ExcelWIKI за повече публикации и актуализации.