Stránka 1 z 1
Hromadná úprava podmíněného formátu makrem
Napsal: 15 pro 2014 14:10
od MK_Vs
Dobrý den,
v dokumentu mám vytvořeno 50 listů. Na každém listu se vyskytují 2 buňky s podmíněným formátováním pomocí vzorce, které bych potřeboval doplnit.
Na každém z 50-ti listů se bude jednat vždy o stejnou úpravu.
Uvažoval jsem nad nahráním makra. Toto však zůstane po ukončení nahrávání prázdné.
Při úprave funkce Ověření dat se naopak pomocí makra pracovat dá.
Je možno hromadně upravovat podmíměné formáty, případně jak?
Excel 2010.
Děkuji za pomoc.
MK
Re: Hromadná úprava podmíněného formátu makrem
Napsal: 16 pro 2014 06:51
od cmuch
Re: Hromadná úprava podmíněného formátu makrem
Napsal: 16 pro 2014 09:49
od MK_Vs
DObrý den,
děkuji za odkaz.
Přesto se mi nepodaří pomocí makra nahrazovat:
Např. v buňce A1 je vzorec: =KDYŽ(B$33="";"";A(B$33=Data!B$5)), buňka formátována červenou výplní.
Potřebuji nahradit za: =KDYŽ(B$33="";"";A(B$33=Data!B$5;B$33=Data!B$6)), buňka formátována modře.
Potřebuji doplnit další podmínku do A1: =A(B$33=Data!C$3), opět barevný formát.
Buněk, teré se budo měnit je více. Princip však zůstává stejný.
Toto budu opakovat ve všech buňkách na několika listech.
MK
Re: Hromadná úprava podmíněného formátu makrem
Napsal: 16 pro 2014 14:42
od Azuzula
Zdravím,
nevím jak Vám, ale mě to nahrát jde (excel 2010/win7). Na následujícím kódu se už snad dá stavět.
Kód: Vybrat vše
Sub nahrad_format()
'smaže podm. formát
Selection.FormatConditions.Delete
'první podmínka
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=KDYŽ(B$33="""";"""";A(B$33=Data!B$5;B$33=Data!B$6))"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 12611584
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'druhá podmínka
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A(B$33=Data!C$3)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Re: Hromadná úprava podmíněného formátu makrem Vyřešeno
Napsal: 16 pro 2014 16:01
od MK_Vs
Dobrý den,
děkuji za reakci.
Nahrát šla jen změna Ověření dat.
Každopádně to nyní řeším takto:
- Ruční změna co je třeba v buňkách prvního listu
- Odstranění všech formátů a podmínek postupně ve všech listech - pro jistotu (makro)
- Kopie všech všech změněných buněk do jednotlivých listů makrem
Takto mohu upavit pokud bude nejhůře potřebné buňky a rozkopírovat dále.