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
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Odkaz na formát buňky
MS Excel
Téma: Odkaz na formát buňky 
Zaslal/a 8.10.2015 11:10
Dobrý den,
chci se zeptat je nějaká možnost odkázat na formát daný buňky. Př: v jedné buňce je žlutá výplň a ja chci odkázat na další bunku ze když bude v tamty bunce zlutá barva tak v te jiné bunce bude cervená barva jinak nic. Díky snad je to srozumitelný ....nevím si stím rady
Ta žlutá výplň je vkládána ručně nebo výsledkem podmíněného formátování (p.f.)? Protože pokud je ručně, tak mi to moc smysl nedává a pokud je to p.f. tak to je výsledkem něčeho a tedy se to dá opět vyřešit pomocí p.f.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
Sub barva()
If Range("A1").Interior.ColorIndex = 6 Then
Range("B1").Interior.ColorIndex = 3
Else
Range("B1").Interior.Pattern = xlNone
End If
End Subcitovat
(8.10.2015 12:23)#027251
Ta žlutá barva se vkláda výsledkem je tam podminene formatovani vzorec =D2=DNES(). díky za nápady navečer nato kouknu.citovat
tak pak jak psal eLCHa, do sešitu si zadejte další pravidlo na chtěné buňky =D2=Dnes(), ale s černou barvou..citovat
@devil
jen technická - vy ještě máte e003, že?
S tím ColorIndexem už to je ve vyšších verzích kapánek složitější (změníte schéma a žlutá už není žlutá ;) )citovat
jen technická - vy ještě máte e003, že?
S tím ColorIndexem už to je ve vyšších verzích kapánek složitější (změníte schéma a žlutá už není žlutá ;) )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
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 vím, Excel kolekci Workbook.Colors od verze 2007 přestal aktivně používat a vede ji podstatě jen kvůli kompatibilitě se starým Excelem. Velmi by mne proto překvapilo, kdyby běžný zásah do obsahu sešitu cokoliv změnil na vlastnosti ColorIndex. Rád se ovšem nechám v tom smyslu poučit.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
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
Zdravím ohledně tohodle problému taky mám obdobný problém a netuším jak nato kdyby někdo nějaký nápad viz příloha díky za každý koment...
Příloha: 
27270_pokus99.rar (155kB, staženo 26x)
citovat27270_pokus99.rar (155kB, staženo 26x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články