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