Может кто-нибудь сказать?

pushkar · 12 фев 2008, 10:27

Это вообще реально сделать (http://forum.developing.ru/showthread.php?t=12932), или надо как-то по-другому придумывать решение? Просто никто ничего не сказал, не знаю (((

SAS888 · 12 фев 2008, 11:18

А, например, так не устраивает?

Код: Выделить всё

For i = 1 To Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, "A")
'Здесь вставить требуемое условие
        If Cells(i, "A").Interior.ColorIndex <> 4 Then Rows(i).Hidden = True
    Next

pushkar · 12 фев 2008, 11:37

Да, вроде как так. Спасибо большое за помощь