VBA использует цвета градиента, когда условие не выполняется

Question

Как настроить цвет ячейки для отображения градиента цветов в случае сбоя условия. Я новичок в программировании на VBA в Excel, и я столкнулся с похожим вопросом, который попросил спрашивающего использовать макрос-рекордер для получения кода. Я никогда не использовал макро-рекордер и был бы признателен, если бы кто-то указал мне правильное направление. В любом случае, я хотел бы, чтобы следующий градиент цвета для ячейки выполнялся / не выполнялся.

Это градиент цвета, который я ищу:

** ОБНОВЛЕНИЕ **

Я пробовал это с условным форматированием, и моя формула выглядит следующим образом. Кажется, частично работает, но я заканчиваю окрашивать клетки, что я не должен быть. См. Ниже:

Answer 1

Я бы предложил форматирование через VBA вместо условного форматирования, если это цвет stati c (динамически не изменяется при обновлении Excel).

Вот некоторый обобщенный код c при форматировании ячейка с градиентом от макро-рекордера (выделение - это ячейка, которую мы хотим заполнить)

    With Selection.Interior
        .Pattern = xlPatternLinearGradient
        .Gradient.Degree = 90
        .Gradient.ColorStops.Clear
    End With
    With Selection.Interior.Gradient.ColorStops.Add(0)
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.Interior.Gradient.ColorStops.Add(1)
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
    End With