Может кто-нибудь сказать?
Добавлено: 12 фев 2008, 10:27
Это вообще реально сделать (http://forum.developing.ru/showthread.php?t=12932), или надо как-то по-другому придумывать решение? Просто никто ничего не сказал, не знаю (((
Код: Выделить всё
For i = 1 To Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, "A")
'Здесь вставить требуемое условие
If Cells(i, "A").Interior.ColorIndex <> 4 Then Rows(i).Hidden = True
Next