Tak mi to nedalo a trošku jsem si hrál s makry. Moc se mi nelíbí, že se musí ten podmíněný formát dodatečně upravit, nebo nechat podbarvené jen sloupce s výpočtem (i když to asi pro oči stačí).
Při obnovení odkazu se totíž buňky vloží přepisem a podmíněný formát se na novém úseky ztratí. Makrem se to dá zpětně přeformátovat.
POZN : Také jsem použil načítání do sekundárního sloupce který se nemaže a formát udrží, ale to je také tak nějak nehezké a zbytečné.
Upravil jsem makro :
Sub oSetConditionalStyle()
Dim oSheets as Object
Dim oRange as Object
Dim oConFormat as Object
Dim oCondition(2) as new com.sun.star.beans.PropertyValue '
oSheets = ThisComponent.Sheets(0)
oRange = oSheets.getCellRangeByName("A2:Q2000") 'Úsek pro podmíněný formát
oConFormat = oRange.ConditionalFormat
oCondition(0).Name = "Operator"
oCondition(0).Value = com.sun.star.sheet.ConditionOperator.FORMULA
oCondition(1).Name = "Formula1"
oCondition(1).Value = "AND(MOD($A1;7)<2;NOT(ISBLANK($A1)))"
oCondition(2).Name = "StyleName"
oCondition(2).Value = "Bad"
oConFormat.clear() 'Smaže původní formát
oConFormat.addNew(oCondition()) 'Nastaví nový formát
oRange.ConditionalFormat = oConFormat
msgbox "Konec"
End Sub
Představu jsem měl takovou, že po aktualizaci dojde ke změně obsahu a na to se dá připojit makro. Bohu-žel tohle se mi nepovedlo. Takže jsem použil ve vzorovém sešitu kliknutí pravým myšítkem. Teoreticky by to mělo běhat na změnu obsahu ale neběhá - nevím proč. Je to možná jen u mne. Otestujte makro na LIST > UDÁLOSTI LISTU > ZMĚNA OBSAHU > a přiřaďte makro které uje výše.
Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ
