Как сделать в 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.