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

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

3 Июль 2020, 12:58 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

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


« Ответ #52207: 16 Октябрь 2019, 17:04 »

В uf перед end sub вставить
Код:
Dim oCondition1(2) As New com.sun.star.beans.PropertyValue
oRange = ThisComponent.Sheets(List).getCellRangeByName("J11:J100")
oConFormat = oRange.ConditionalFormat
oCondition1(0).Name = "Operator"
oCondition1(0).Value = com.sun.star.sheet.ConditionOperator.FORMULA
oCondition1(1).Name = "Formula1"
oCondition1(1).Value = "$J1=MIN($J$11:$J$100)"
oCondition1(2).Name = "StyleName"
oCondition1(2).Value = "Good"
oConFormat.addNew(oCondition1())
oRange.ConditionalFormat = oConFormat
это УФ по минимуму в столбце J, для максимума аналогично, только в формуле MIN на МАХ поменять

зы  oCondition1(1).Value = "$J1=MIN($J$11:$J$100)" написано $J1, а после отработки макроса
вижу $J11. Почему непонятно Грустный
Записан

Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут
Страниц: « 1 2 3 4 »   Вверх
  Печать  
 
Перейти в:  

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