MS Excel

Řeším tento problém:
Na listu1 mám vstupní data která částečně transponuji makrem na list2.Pro jeden sloupec na listu1 si vytvořím podmíněným formátováním pravidlo které podbarví buňky na základě podmínky z jiného sloupce. Takto podbarvená data bych potřeboval dostat i na list2. Při použití makra však není formátování bráno v potaz. Je možné toho nějak docílit?
př.:
list1
A 1 - buňka s "A" se obarví na zeleno
B 2 - buňka s "B" se obarví na modro
C 3 - buňka s "C" se obarví na cerveno
D 1 - buňka s "D" se obarví na zeleno

list2
A B C
D

Díky za každou dobrou radu;-)

Zaslat odpověď >

Milan-D(5.10.2012 14:48)#009734

Jedna dobra rada by byla: formuluj problem dostatecne a srozumitelne

. Je zde hodne neznamych, napr. verze excelu, taky z uvedeneho zapisu prikladu jsem nebyl schopen zjistit co myslis. Nejlepsi byva priloha

Ale obecne k podminenemu formatovani: Musel bys s bunkou prenest na druhy list i tu ridici bunku (bacha na absolutni a relativni adresu). Pokud ridici bunka zustava na puvodnim liste, tak pouhym zkopirovanim formatovane bunky na druhy list se to formatovani bude odkazovat na nejakou bunku na druhem liste. V tom pripade musis na tom druhem liste ve formatovane bunce zmenit uvnitr formatovaciho pravidla (vzorce) tu obycejnou adresu na 2D odkaz.
Tedy misto: $A$1 tam musi byt List1!$A$1
Toto lze provest makrem, alespon ve verzi 2010citovat

townsmen(5.10.2012 15:43)#009736

Pro názornost tedy přikládám soubor.
...a jedná se o verzi 2003 jestli na tom tak záleží ;-)

Příloha: zip

9736_podmformat.zip (35kB, staženo 24x)

citovat

marjankaj(5.10.2012 19:42)#009739

Najlepšie by bolo to podmienené formátovanie vyhodiť a nahradiť to vyfarbením bunky podľa toho stlpca G. To sa dá jednoducho makrom, podľa hodnôt priradí farbu .interior.colorindex=(0-56), niečo si vyberieš.

Potom zase tvojím makrom prenesieš aj farbu
Pridáš si tam ešte riadok.
List2.Cells(rd2, sl) = Cells(rd1, 6)
List2.Cells(rd2, sl).interior.colorindex = Cells(rd1, 6).interior colorindexcitovat

townsmen(8.10.2012 1:24)#009774

chvilku mi to dalo, ale vyresil jsem to podmínkama pro tři barvy...
moc diky za tip na funkci .interior.colorindex=(0-56)

If Cells(rd1, 7) = 1 Then
List2.Cells(rd2, sl).Interior.ColorIndex = (46)
End If

If Cells(rd1, 7) = 2 Then
List2.Cells(rd2, sl).Interior.ColorIndex = (36)
End If

If Cells(rd1, 7) = 3 Then
List2.Cells(rd2, sl).Interior.ColorIndex = (43)
End Ifcitovat

Téma: podmíněné formátování

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Relativní cesta - zdroje Power Query

Vyhledej

Vyhledej

Vyhledej

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query