Някои от най-полезните макроси са прости процедури, които променят една или повече настройки на Excel. Например, ако откриете, че правите чести пътувания до диалоговия прозорец Опции на Excel, за да промените настройка, това е добър кандидат за прост макрос, спестяващ време.
Ето два примера, които ви показват как да промените настройките в Excel. Можете да приложите общите принципи, демонстрирани от тези примери, към други операции, които променят настройките.
Промяна на булевите настройки
Подобно на превключвател на светлината, булева настройка е или включена, или изключена. Например, може да искате да създадете макрос, който включва и изключва показването на прекъсване на страницата на работния лист. След като отпечатате или прегледате работен лист, Excel показва пунктирани линии, за да посочи прекъсванията на страницата. Някои хора намират тези пунктирани линии за много досадни.
За съжаление, единственият начин да се отървете от дисплея на прекъсване на страницата е да отворите диалоговия прозорец Опции на Excel, да щракнете върху раздела Разширени и да превъртите надолу, докато намерите квадратчето за отметка Показване на прекъсвания на страници. Ако включите записващото устройство на макроси, когато промените тази опция, Excel генерира следния код:
ActiveSheet.DisplayPageBreaks = False
От друга страна, ако прекъсванията на страници не се виждат, когато записвате макроса, Excel генерира следния код:
ActiveSheet.DisplayPageBreaks = Вярно
Това може да ви накара да заключите, че имате нужда от два макроса: един за включване на дисплея за прекъсване на страницата и един, за да го изключите. Не е вярно. Следващата процедура използва оператора Not, който превръща True в False и False в True. Изпълнението на процедурата TogglePageBreaks е прост начин за превключване на дисплея на прекъсване на страницата от True на False и от False на True:
Sub TogglePageBreaks()
При грешка Продължете напред
ActiveSheet.DisplayPageBreaks = Не _
ActiveSheet.DisplayPageBreaks
Край под
Първото изявление казва на Excel да игнорира всякакви грешки. Например, лист с диаграма не показва прекъсвания на страници, така че ако изпълните макроса, когато лист с диаграма е активен, няма да видите съобщение за грешка.
Можете да използвате тази техника, за да превключите всички настройки, които имат булеви (вярно или невярно) стойности.
Промяна на небулеви настройки
Можете да използвате структура Select Case за небулеви настройки. Този пример превключва режима на изчисление между ръчен и автоматичен и показва съобщение, указващо текущия режим:
Sub ToggleCalcMode()
Изберете Case Application.Calculation
Case xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox „Режим за автоматично изчисление“
Калъф xlАвтоматичен
Application.Calculation = xlCalculationManual
MsgBox „Режим на ръчно изчисление“
Край Изберете
Край под
Можете да адаптирате тази техника за промяна на други небулеви настройки.