< návrat zpět

MS Excel


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

Zaslal/a 8.8.2018 10:50

Zdravím, potřeboval bych poradit jak rozšířit podmíněné formátování sady ikon do dalších buněk. Potřebuji všechny dny porovnat s posledním měsícem ve všech sloupcích. Problém je že nejde zrušit ukotvení abych nemusel vytvářet pro každou buňku zvlášť.
Viz přiložený soubor.

Příloha: xlsx41090_daily-report-rm-wall.xlsx (40kB, staženo 20x)
Zaslat odpověď >

#041095
avatar
Já to nechápu, třeba někdo jiný.citovat
#041100
elninoslov
Já to asi chápem. Ide o to, že pri tomto druhu PF, nieje možné použiť relatívne adresovanie ("...zrušit ukotvení..."). Dokonca to nefachá ani ak sa použije Def.Name. Ak by to bola napevno daná oblasť, tak by tie PF išli asi jednorázovo vložiť do každej bunky makrom. Inak neviem, ale už min raz tu presne rovnaký problém bol.

OT: Ak na to existuje riešenie, tak by sa dalo asi použiť aj pri inom obdobnom obmedzení. Načítavanie obrázku, cez prepojenie, ktoré odkazuje na vzorec. Po pretiahnutí inam, vzorec vracia správne hodnoty, ale prepojenie na obrázok sa nemení.citovat
#041103
avatar
Děkuji za radu. Ale asi bude pro mě rychlejší formátovat každý sloupec.citovat
#041105
elninoslov
Toto makro Vám doplní Vami požadované PF do každej bunky označenej oblasti.
Sub SipkyPF()
Dim Bunka As Range, Adr As String, Lst As String

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With

With Selection
.FormatConditions.Delete
Lst = "='" & .Parent.Name & "'!"

For Each Bunka In .Cells
Adr = Lst & Bunka.Offset(-1, 0).Address
With Bunka.FormatConditions.AddIconSetCondition
.IconSet = ActiveWorkbook.IconSets(xl3Arrows)

.IconCriteria(1).Icon = xlIconRedDownArrow
With .IconCriteria(2)
.Type = xlConditionValueFormula
.Value = Adr
.Operator = 7
.Icon = xlIconRedDownArrow
End With

With .IconCriteria(3)
.Type = xlConditionValueFormula
.Value = Adr
.Operator = 5
.Icon = xlIconGreenUpArrow
End With

End With
Next Bunka

End With

With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
Příloha: zip41105_pf-sipky-do-oznacenych-buniek.zip (158kB, staženo 19x)
citovat
#041117
avatar
@Elninoslov: Díky moc. :-)citovat

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