< návrat zpět

MS Excel

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

Zaslal/a townsmen 5.10.2012 9:15

Ř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
avatar
Jedna dobra rada by byla: formuluj problem dostatecne a srozumitelne 2 . 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
avatar
Pro názornost tedy přikládám soubor.
...a jedná se o verzi 2003 jestli na tom tak záleží ;-)
Příloha: zip9736_podmformat.zip (35kB, staženo 24x)
citovat
marjankaj(5.10.2012 19:42)#009739
avatar
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
avatar
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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje