Formatowanie warunkowe na wielu arkuszach

Użytkowanie arkusza kalkulacyjnego
masky
Posty: 5
Rejestracja: pn lis 02, 2020 8:30 pm

Formatowanie warunkowe na wielu arkuszach

Post autor: masky »

Chciałem ustawić formatowanie warunkowe na wielu arkuszach (ten sam zakres komórek). Zaznaczyłem kilka arkuszy wpisuję warunek, zakres komórek i klapa, bo formatowanie warunkowe jest obecne tylko na jednym arkuszu. Nie pomaga dopisanie nazw arkuszy do zakresu komórek.
Jak ustawić formatowanie warunkowe od razu na wielu arkuszach lub automatycznie/półautomatycznie przekopiować to formatowanie do innych arkuszy? Jest jakiś sposób? Bo ręcznie to nie dam rady.
LibreOffice 5.2 pod Linuksem
Awatar użytkownika
Jermor
Posty: 2239
Rejestracja: sob paź 12, 2013 11:09 am
Kontakt:

Re: Formatowanie warunkowe na wielu arkuszach

Post autor: Jermor »

Formatowanie warunkowe można ustawiać tylko na jednym arkuszu. Jeśli wybierzesz zarządzanie formatowaniem warunkowym ("Format -> Warunkowe -> Zarządzanie..." to i tak wyświetlone zostaną warunki tylko aktualnego arkusza.
A. Pitonyak w swoim podręczniku (str. 476) zamieścił makro ustawiające formatowanie warunkowe:

Kod: Zaznacz cały

Sub SetConditionalStyle
  Dim oRange        'Cell range to use
  Dim oConFormat    'Conditional format object
  Dim oCondition(2) As New com.sun.star.beans.PropertyValue

  REM Sheets support returning a cell range based on UI type names.
  oRange = ThisComponent.Sheets(0).getCellRangeByName("B2:D6")
  oConFormat = oRange.ConditionalFormat
  
  oCondition(0).Name = "Operator"
  oCondition(0).Value = com.sun.star.sheet.ConditionOperator.LESS
  oCondition(1).Name = "Formula1"
  oCondition(1).Value = 0
  oCondition(2).Name = "StyleName"
  oCondition(2).Value = "Heading1"
  oConFormat.addNew(oCondition())
  oRange.ConditionalFormat = oConFormat
End Sub
Możesz je potraktować jako bazę do stworzenia własnego makra, które w pętli powstawia ci twoje formatowania.
Sam podręcznik jest tutaj: https://www.pitonyak.org/OOME_4_0.odt
AOO 4.1.15, LO 7.5.9 (x64) na Windows 10 64bit
Ważne!
Jeśli twój problem został rozwiązany, wróć do swojego pierwszego postu, przejdź do edycji i dopisz [SOLVED] w temacie.
Inni, którzy mają podobny problem, będą wiedzieli, że istnieje jego rozwiązanie.
ODPOWIEDZ