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

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

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

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

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

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

Sub BlinkingCell()

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

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

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

If intCalls < 10 Then

intCalls = intCalls + 1

‘ Определение, какой цвет необходимо установить

If Range(«A1»).Interior.Color RGB(255, 0, 0) Then

‘ Цвет ячейки не красный, так что теперь назначим _

именно красный цвет

Range(«A1»).Interior.Color = RGB(255, 0, 0)

Else

‘ Назначим ячейке зеленый цвет

Range(«A1»).Interior.Color = RGB(0, 255, 0)

End If

‘ Эту процедуру необходимо вызвать через 5 секунд

Application.OnTime Now + TimeValue(«00:00:05»),

«BlinkingCell»

Else

‘ Хватит мигать

Range(«A1»).Interior.ColorIndex = xlNone

intCalls = 0

End If

End Sub

После запуска макроса BlinkingCell будет мигать ячейка Al. Путем внесения соответствующих изменений в приведенный макрос можно регулировать продолжительность цикла и изменять цвета фона по своему усмотрению.

	Здесь можно получить ответы на вопросы по Microsoft Excel	57392	469531	2 Окт 2018 00:51:03
		44519	357828	29 Янв 2017 17:28:40
	Лучшие избранные темы с основного форума	14	80	28 Июн 2018 15:25:11
	Если вы — счастливый обладатель Mac 😉	217	1059	21 Сен 2018 06:21:34
	Раздел для размещения платных вопросов, проектов и задач и поиска исполнителей для них.	2085	13295	1 Окт 2018 21:40:36
	Если Вы скачали или приобрели надстройку PLEX для Microsoft Excel и у Вас есть вопросы или пожелания — Вам сюда.	307	1580	28 Сен 2018 09:07:46
		803	11506	1 Окт 2018 23:31:37
	Обсуждение функционала, правил и т.д.	269	3465	1 Окт 2018 11:22:35

Сейчас на форуме (гостей: 389, пользователей: 2) ,

Сегодня отмечают день рождения (48), (36), (34), (51), (44), (27)

Всего зарегистрированных пользователей: 82896

Приняло участие в обсуждении: 31748

Всего тем: 105606

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

=WENN(A12>=4;»Nach L/M»;»Passt»)

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

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

Заноза

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

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

Gambrinus

Чтобы мигали.

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

Sabiko

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

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

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