Sub BlinkingCell() Static intCalls As Integer 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 Application.OnTime Now + TimeValue("00:00:01"), "BlinkingCell" Else Range("A1").Interior.ColorIndex = xlNone intCalls = 0 End If End Sub
[/vba] Про муравьёв не понял
ЗЫ
Цитата (cherkas)
world
-переводится как "МИР", Мир Эксель - ExcelWORLD
Цитата (cherkas)
как в word мерцание ячейки
А что в ворде есть ЯЧЕЙКИ?
Мерцающая ячейка в Excel: [vba]
Код
Sub BlinkingCell() Static intCalls As Integer 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 Application.OnTime Now + TimeValue("00:00:01"), "BlinkingCell" Else Range("A1").Interior.ColorIndex = xlNone intCalls = 0 End If End Sub
[/vba] Про муравьёв не понял
ЗЫ
Цитата (cherkas)
world
-переводится как "МИР", Мир Эксель - ExcelWORLDSerge_007
cherkas, кто вам запрещает передать данные из Excel в Word - и уже там извращаться с оформлением? Для того и называется всё это "Офисный пакет программ". Используйте инструменты по назначению - Excel для расчетов, Word - для отчётов/оформления результатов. И наступит благорастворение воздухов.
Затем и нет...
cherkas, кто вам запрещает передать данные из Excel в Word - и уже там извращаться с оформлением? Для того и называется всё это "Офисный пакет программ". Используйте инструменты по назначению - Excel для расчетов, Word - для отчётов/оформления результатов. И наступит благорастворение воздухов.AndreTM