В 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. Почему непонятно
