Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

17 Май 2021, 22:34 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 »   Вниз
  Печать  
Автор Тема: Условное форматирование. сделать на кнопочку условие.  (Прочитано 1183 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sokol92
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 404


WWW
« Ответ #57722: 12 Март 2021, 13:57 »

Как обычно, у А. Питоньяка есть все необходимое. Выделите ячейки и примените следующий макрос. Можно в этом макросе изменить имя стиля не требуемое, поместить макрос в библиотеку приложения и повесить на подходящее сочетание клавиш.

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

  REM Sheets support returning a cell range based on UI type names.
  oRange = ThisComponent.CurrentSelection
  oConFormat = oRange.ConditionalFormat
  
  oCondition(0).Name = "Operator"
  oCondition(0).Value = 10
  oCondition(1).Name = "StyleName"
  oCondition(1).Value = "Neutral"
  oConFormat.addNew(oCondition())
  oRange.ConditionalFormat = oConFormat
End Sub
« Последнее редактирование: 12 Март 2021, 14:08 от sokol92 » Записан

Владимир.
Страниц: 1 2 »   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!