У Microsoft Word це завдання вирішується просто. У меню Format (Формат) виберіть пункт Font (Шрифт), клацніть на вкладці Text Effects (Анімація) і виберіть пункт Blinking Background (Миготливий фон). Однак в ...
У Microsoft Word це завдання вирішується просто. У меню Format (Формат) виберіть пункт Font (Шрифт), клацніть на вкладці Text Effects (Анімація) і виберіть пункт Blinking Background (Миготливий фон). Однак в Excel нічого подібного немає. Мерехтливий текст в Excel можна отримати лише за допомогою невеликої макрокоманди.
Додайте вікна VBA і Excel таким чином, щоб вам було видно осередок A1 на аркуші Sheet1, потім клацніть в тексті макрокоманди StartFlashing і запустіть його натисканням на клавішу F5. Осередок мерехтить! Щоб припинити мерехтіння, клацніть на тексті макрокоманди StopFlashing і натисніть клавішу F5.
Як же працюють ці макроси? Константа FR визначає діапазон мерехтливих осередків; змінивши її значення, ви можете викликати мерехтіння різних осередків. Якщо фоновий колір осередків мерехтливого діапазону червоний, макрокоманда змінює його на звичайний, якщо немає - вона змінює колір фону на червоний. Потім через секунду макрокоманда знову запускається завдяки наявному в програмі методу OnTime.
Результат виконання функції VBA TimeSerial - числове значення часу, що відповідає кількості годин, хвилин і секунд, переданих їй в якості вхідних параметрів. TimeSerial приймає тільки цілі значення, тому самий короткий часовий період, з яким функція може працювати, - це одна секунда; це значення ми і використовуємо в нашому прикладі. Значення змінної NextFlash ми задаємо як поточний час плюс 1 с, а до методу OnTime ми звертаємося за тим, щоб після закінчення цього часу знову запустити StartFlashing. При кожному виклику макрокоманди фон осередків змінюється з червоного на звичайний і навпаки.
Макрокоманда StopFlashing просто повертає фону його звичайний колір і викликає метод OnTime для скасування майбутньої події. Для скасування події необхідно передати те ж значення часу, яке використовувалося для його планування, ось чому нам довелося зберігати це значення в змінній, доступною обом макрокомандам.