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

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

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

  1. Выберите ячейку, которую вы хотите включить и выключить.

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

  3. В поле «Имя стиля» введите имя нового стиля. (В этом примере используйте имя стиля «Мигающий».)

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

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

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

Dim NextTime As Date

Sub StartFlash()

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

With ActiveWorkbook.Styles("Flashing").Font         If .ColorIndex = xlAutomatic Then .ColorIndex = 3         .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.

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

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

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

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

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

Этот совет (2134) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

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