Excel - макрос, за да накара клетките да мигат

Проблем

Искам да направя клетка мига под Excel. Може ли това да е макро или по-просто?

Решение

-1. Изберете клетката

-2. Изберете Стил от менюто Формат.

-3. В диалоговия прозорец Стил въведете ново име на стил, например „Мига“.

-4. С помощта на контролите в диалоговия прозорец променете атрибутите на стила.

-5. Кликнете върху OK.

Този стил може да се приложи към клетките по ваш избор.

Сега трябва да създадете макросите:

 Dim NextTime As Дата Sub StartFlash () NextTime = Сега + TimeValue ("00:00:01") С ActiveWorkbook.Styles ("Мига"). Шрифт Ако .ColorIndex = xlAutomatic Then. ColorIndex = 3 .ColorIndex = 5 -. Край с Application.OnTime NextTime, "StartFlash" End Sub 

-------------------------------------------------- ----------------------

 Sub StopFlash () Application.OnTime NextTime, "StartFlash", график: = False ActiveWorkbook.Styles ("Мига"). Font.ColorIndex = xlAutomatic End Sub 

• За да започнете да мига, просто стартирайте StartFlash
• За да го спрете, използвайте StopFlash .

Този съвет се основава на //exceltips.vitalnews.com/Pages/T0214_Flashing_Cells.html

Благодарение на Джеф за този съвет.