MS Excel

Zkuste nahlédnout do příspěvku k doplňkovým funkcím listu. Najdete tam UDF, které lze pro tento účel použít.citovat

asi nejjednodušší způsob - je to nastaveno na žlutou barvu v buňce A1, mění buňku B1... Více je nutno upravit makro.. v zadání nebylo

Sub barva()
If Range("A1").Interior.ColorIndex = 6 Then
Range("B1").Interior.ColorIndex = 3
Else
Range("B1").Interior.Pattern = xlNone
End If
End Subcitovat

tak pak jak psal eLCHa, do sešitu si zadejte další pravidlo na chtěné buňky =D2=Dnes(), ale s černou barvou..citovat

#eLCHa

mno jak kde, je pravda, že ještě jedu na 3, ale doma už i na 10 a 13..

ale mám pocit, že colorindex je vždy stejný a jedinečný ke každé barvě, ne? samo, pokud si uživatel navolí např. RGB 255, 254, 0 tak pak už index 6 nebude fungovat..citovat

Pokud vytvoříte nový sešit, tak kvůli zpětné kompatibitě obsahuje standardní sadu barev jako v dřívější verzích.

Bráno odsud:http://www.databison.com/excel-color-palette-and-color-index-change-using-vba/

Pokud jste si nějakou barvu upravili, zůstával jí index původní barvy.
Teď to alespoň v mých 007 funguje tak, že .CoorIndex vrátí číslo nejpodobnější barvy z této staré kolekce. Pokud jsem tedy vybarvil buňku jednou barvou, vrátilo mi to index 24. Při změně motivu se mi změnila barva pozadí a změnil se i index (40) podle nejpodobnější barvy. Toto je věc, kvůli které už bych ColorIndex nepoužil.
S barvama v kódech zase tolik nepracuji, ale lepší se mi jeví použití .TintAndShade (v 003 asi nefunguje?)

Nebo používám hex(activecell.Interior.Color), ale to už zase napříč motivy fungovat nebude.citovat