Как сделать мигающий текст в excel

Сделать мигание ячейки

В этом примере показано, как сделать ячейку B2 на листе 1 мигать, изменив цвет и текст с красного на белый в процедуре StartBlinking. Процедура StopBlinking показывает, как остановить мигание, очистив значение ячейки и задав свойство ColorIndex белым цветом.

Пример кода предоставил: Том Уртис, Atlas Programming Management

Об участнике

Том Уртис, MVP — основатель компании Atlas Programming Management, создающей полноценные бизнес-решения для Microsoft Office и Excel в Кремниевой долине. Том обладает больше чем 25 годами опыта управления бизнесом и разработки приложений для Microsoft Office, а также является соавтором книги "Holy Macro! It’s 2,500 Excel VBA Examples".

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Как сделать текст мигающий в excel?

Книга: Excel. Трюки и эффекты

Мигающая ячейка

Рассмотрим достаточно интересный трюк, с помощью которого можно заставить мигать (то есть попеременно изменять цвета) любую ячейку в течение некоторого промежутка времени.

Предположим, что нам необходима ячейка, которая 10 раз каждые 5 секунд будет изменять цвет фона с красного на зеленый. Для решения этой задачи воспользуемся следующим макросом (листинг 3.75).

Листинг 3.75. Мигание ячейки

Static intCalls As Integer ‘ Счетчик количества миганий

‘ Если ячейка мигала менее 10 раз, то изменим _

в очередной раз ее цвет

Как сделать в excel мигающую ячейку

В разделе Программное обеспечение на вопрос Эксель Можно ли строку или текст сделать мигающим? заданный автором Дмитрий Карачевцев лучший ответ это Мерцающий текст в Excel можно получить лишь с помощью небольшой макрокоманды.
Допустим, вы хотите, чтобы мерцала ячейка A1. В меню Tools (Сервис) выберите пункты Macro (Макрос) и Visual Basic Editor (Редактор Visual Basic). На дереве в левой панели щелкните на VBAProject правой клавишей мыши и в раскрывшемся меню выберите пункты Insert (Вставка) и Module (Модуль). Теперь наберите и вставьте в модуль следующий текст:
Public NextFlash As Double
Public Const FR As String = «Sheet1!A1»
Sub StartFlashing ()
If Range (FR). Interior. ColorIndex = 3 Then
Range (FR). Interior. ColorIndex = xlColorIndexNone
Else
Range (FR). Interior. ColorIndex = 3
End If
NextFlash = Now + TimeSerial (0, 0, 1)
Application.OnTime NextFlash, «StartFlashing», , True
End Sub
Sub StopFlashing ()
Range (FR). Interior. ColorIndex = xlColorIndexNone
Application. OnTime NextFlash, «StartFlashing», , False
End Sub
Разместите окна VBA и Excel таким образом, чтобы вам была видна ячейка A1 на листе Sheet1, затем щелкните в тексте макрокоманды StartFlashing и запустите его нажатием на клавишу F5. Ячейка мерцает! Чтобы прекратить мерцание, щелкните на тексте макрокоманды StopFlashing и нажмите клавишу F5.
Как же работают эти макрокоманды? Константа FR определяет диапазон мерцающих ячеек; изменив ее значение, вы можете вызвать мерцание различных ячеек. Если фоновый цвет ячеек мерцающего диапазона красный, макрокоманда меняет его на обычный, если нет — она меняет цвет фона на красный. Затем через секунду макрокоманда вновь запускается благодаря имеющемуся в программе методу OnTime.

Gambrinus
незарегистрированный

Вот такой текст в ячейке. Можно ли как нибудь сделать, что бы эти Мельдунги мигали?

Заноза
незарегистрированный

Простите, а зачем ?

Gambrinus
незарегистрированный

Sabiko
незарегистрированный

Gambrinus, мигание можно осуществить в Excel исключительно средствами Visual Basic for Applications (VBA).

Стандартные функции такой возможности не дают. Ими можно только однозначно определить цвет текста или ячейки(пример — полож. числа — черным, отрицательные — красным).

В VBA для этого надо написать код, используя функцию таймера.

Ссылка на основную публикацию