Excel-detekce přešktnutého textu Vyřešeno

[Teelphone]

Mám poměrně rozsáhlou tabulku, v které jsou zastaralé hodnoty přeškrtnuty (musí ale být vidět). Je možné tyto hodnoty nějakým způsobem jednorázově detekovat a podbarvit je nějakou barvou. Podle barvy lze třídit, podle přeškrtnutí ne
Předem děkuji za pomoc

[Reklama]

[Azuzula]

Našla jsem jak to udělat pomocí funkce, ale ta je obsažena v balíčku funkcí napsaných jedním borcem, ale několik let jeho web kde se to dalo stáhnout nefunguje. Takže buď někdo napíše funkci a nebo dám dohromady makro. Škoda jen, že podmíněné formátování neumí pracovat s formátem buněk stejně jako s hodnotami...

--- Doplnění předchozího příspěvku (18 Úno 2012 01:47) ---

Tak se mi podařilo dát dohromady jednoduché makro :)

Kód: Vybrat vše

Sub obarvi_preskrtnute()

    For i = 1 To 2000 'počet opakování
    If ActiveCell = "" Then Exit Sub 'cyklus se přeruší na první prázdné buňce
    If Selection.Font.Strikethrough = True Then 'přeškrtnutý text
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 3 'tohle číslo určuje barvu buňky. Seznam barev http://dmcritchie.mvps.org/excel/colors.htm
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    End If
    ActiveCell.Offset(1, 0).Select
    Next i
End Sub


seznam colorindex: http://dmcritchie.mvps.org/excel/colors.htm

[Teelphone]

Mnohokrát děkuji.