Многие люди используют функции условного форматирования Excel, чтобы привлечь внимание к определенным значениям или областям своих листов. Например, ячейка может быть отформатирована так, чтобы ее содержимое отображалось красным или жирным шрифтом, если оно выше или ниже определенного порога.

Однако чего не хватает, так это способа заставить содержимое ячейки мигать или мигать. Для такого подвига вы предоставлены своим собственным устройствам и чуду макросов. Используя эти инструменты, вы можете заставить ячейки мигать, сначала разработав специальный стиль для мигающих ячеек, а затем запустив простой макрос.

Чтобы создать особый стиль, выполните следующие действия:

  1. Выберите ячейку, которую вы хотите включить и выключить. (Убедитесь, что в ячейке что-то есть; она не должна быть пустой.)

  2. Убедитесь, что на ленте отображается вкладка «Главная».

  3. В группе Стили щелкните Стили ячеек. Excel отображает выборку предварительно определенных стилей.

  4. Выберите новый стиль ячейки. Excel отображает диалоговое окно «Стиль». (См. Рис. 1.)

  5. В поле «Имя стиля» введите имя «Мигающий» (без кавычек).

  6. Используя элементы управления в диалоговом окне, измените любые атрибуты стиля по своему усмотрению.

  7. Щелкните ОК.

Теперь, когда стиль определен, вам нужно применить этот стиль ко всем ячейкам, которые вы хотите «мигать». Убедитесь, что вы не применили стиль к другим ячейкам.

Теперь создайте макросы (их два) следующим образом:

Dim NextTime As Date

Sub StartFlash()

NextTime = Now + TimeValue("00:00:01")

With ActiveWorkbook.Styles("Flashing").Font         If .ColorIndex <> 2 And .ColorIndex <> 3 Then             .ColorIndex = 3         End If         .ColorIndex = 5 - .ColorIndex     End With     Application.OnTime NextTime, "StartFlash"

End Sub
Sub StopFlash()

Application.OnTime NextTime, "StartFlash", schedule:=False     ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic End Sub

Чтобы начать мигать элементы, просто запустите StartFlash. В ячейках, отформатированных в стиле «Мигающий», примерно раз в секунду будет чередоваться красный и белый текст. Если вы хотите выключить мигание, просто запустите макрос StopFlash.

Макрос работает, изменяя стиль, который вы определили ранее в этом совете. (Убедитесь, что вы назвали стиль «Мигающий»,

, как указано в шаге 5.) Все, что он делает, это изменяет свойство ColorIndex, чтобы оно переключалось между двумя значениями — 3 и 2. Это изменение стиля приводит к эффекту мигания, когда цвет текста меняется с красного (3) на белый (2) и обратно.

Есть еще одна важная вещь, на которую следует обратить внимание об этом макросе: переменная NextTime объявляется _ вне_ фактической процедуры, в которой она используется. Это сделано для того, чтобы NextTime сохранял свое значение от одного вызова StartFlash до следующего. Именно это значение используется, чтобы указать в следующий раз (через одну секунду), что StartFlash должен быть запущен повторно.

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (7223) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Flashing_Cells [мигающие ячейки].