Съдържание
Когато имате голям vba макрос / код, който трябва да работи в продължение на много минути, можете да промените курсора на пясъчен часовник или курсор за изчакване (в зависимост от системната ви настройка) за периода, когато макросът работи. След като макросът е завършен, курсорът може да бъде върнат обратно към курсора по подразбиране.
Това е примерен код, който показва как можете да промените курсора.
Опция Изрично
Подмакрос1 ()
Application.Cursor = xlWait
„Код тук
Application.Cursor = xlDefault End Sub
- След dim операторите (този примерен код все още няма), ние задаваме Application.Cursor = xlWait в началото на кода.
- След това можете да включите кода, от който се нуждаете, за да стартирате. Ако трябва да извикате няколко абонамента / процедури, можете да го направите тук или просто да въведете целия код тук.
- След това точно преди инструкцията End Sub, трябва да върнете курсора обратно по подразбиране. Правим това с помощта на линията Application.Cursor = xlDefault
- Можете да включите всички други изявления, които ви харесват Application.ScreenUpdating = FalseилиApplication.DisplayAlerts = Falseзаедно с Application.Cursor = xlWaitизявление. По същия начин можете да включите Application.ScreenUpdating = Вярно или Application.DisplayAlerts = Вярно заедно с Application.Cursor = xlDefaultизявление.
- За да копирате този код, натиснете клавишите Alt + F11 на клавиатурата. Това ще отвори кодовия модул. От лявата страна ще видите Microsoft Excel Objects. Щракнете с десния бутон и изберете Вмъкване и след това изберете Модул. Копирайте кода в кодовия прозорец вдясно.
