Запись формулы в УФ макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись формулы в УФ макросом (Макросы/Sub)

sboy

Дата: Вторник, 09.08.2016, 17:52 | Сообщение № 1

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Столкнулся с проблемой записи формулы условного форматирования с помощью макроса.
С помощью рекодера записал УФ (3 стрелочки) ячейки E4
[vba]

Код

Sub Макрос12()
    Range("E4").Select
    Selection.FormatConditions.AddIconSetCondition
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Arrows)
    End With
    With Selection.FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValueFormula
        .Value = "=$D$4/$E$1*$E$2*0,8"
        .Operator = 7
    End With
    With Selection.FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValueFormula
        .Value = "=$D$4/$E$1*$E$2"
        .Operator = 7
    End With
End Sub

[/vba]
код к сожалению оказался не рабочим, ругается на строку[vba]

Код

.Value = "=$D$4/$E$1*$E$2*0,8"

[/vba]
путем научного тыка убрал знак = перед $D$4, макрос стал работать, но УФ оказалось не рабочим
в правиле УФ формула вносится с кавычками

Код

="$D$4/$E$1*$E$2*0,8"

Кто знает как правильно ввести формулу в УФ или как оттуда убрать кавычки)))?
В файле примера в E4 работающий УФ, в E5 записанный макросом.