В долния ляв ъгъл на Excel ще намерите лента за състоянието:
Excel използва тази лента на състоянието, за да ви съобщава съобщения. Свойството StatusBar обаче може да се регулира и с помощта на VBA, което ви позволява да показвате вашите собствени съобщения.
Съобщение за персонализирана лента на състоянието
Можете да актуализирате лентата на състоянието със собствено персонализирано съобщение в Excel, докато се изпълнява макрос, като използвате Лента за състоянието Имот.
1. Поставете този код в макрос, когато искате да актуализирате потребителя с персонализирано съобщение в лентата на състоянието:
| 1 | Application.StatusBar = "Работя сега !!!" |
2. И в края на вашия макрос поставете този код, за да изчистите лентата на състоянието и да върнете контрола обратно в Excel:
| 1 | Application.StatusBar = FALSE |
Деактивирайте актуализирането на лентата на състоянието
Вместо да показвате съобщение по време на процедурата, можете да деактивирате лентата на състоянието. Това ще увеличи скоростта на вашия VBA код, тъй като Excel може да пропусне обработката на какво съобщение в лентата на състоянието да се покаже.
За да деактивирате актуализирането на лентата на състоянието, докато кодът ви работи, задайте DisplayStatusBar свойство на фалшиво.
| 1 | Application.DisplayStatusBar = False |
В края на кода възстановете актуализирането на лентата на състоянието:
| 1 | Application.DisplayStatusBar = Вярно |
Важно! Използвай Лента за състоянието свойство за задаване на съобщения, но използвайте DisplayStatusBar свойство, за да деактивирате или активирате напълно лентата на състоянието.
Ускорете VBA кода
За оптимална скорост на обработка опитайте да използвате този код:
| 12345678910111213141516 | под RunFast ()Application.ScreenUpdating = FalseApplication.DisplayStatusBar = FalseApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = FalseApplication.Calculation = xlCalculationManual„Вашият код тукApplication.ScreenUpdating = ВярноApplication.DisplayStatusBar = ВярноApplication.EnableEvents = ВярноActiveSheet.DisplayPageBreaks = ВярноApplication.Calculation = xlCalculationAutomaticкрай под |
