Цветовое кодирование с несколькими условиями в VBA

Question

У меня есть фрагмент кода, который рассматривает проценты как условие того, как он получает цветовую кодировку.Мне интересно, могу ли я добавить условие, основанное на другом столбце, а затем применить его к моему действующему столбцу.

Так, если в столбце «Время, проведенное во времени вспомогательного времени по умолчанию 0» более 1 часа времени, то мойприменяются условия условия цветовой кодировки.Но если этот столбец имеет менее 1 часа времени, цветовая кодировка не применяется.

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

With .CalculatedFields.Add("DefaultCode_0_Time", "=DefaultCode_0/86400")
    .Orientation = 4
    .Function = -4157
    .NumberFormat = "[h]:mm:ss"
    .Caption = "Time Spent in Default Aux Time 0"
End With   ####This is the piece I wanted factored in to the condition. 
           If this column is more than ah hour, I want the color coding 
           condition below applied. If it is less than 1 hour, then I do 
            not want the color coding condition below applied####

With .CalculatedFields.Add("Aux_0_Percentage", "=ACD_Aux_Outtime/DefaultCode_0")
    .Orientation = 4
    .NumberFormat = "#,##0.0%"
    .Caption = "Default Aux Time 0 % for Outbound Calls"
End With

  Set xlObj = .PivotFields("Default Aux Time 0 % for Outbound Calls").DataRange.FormatConditions.Add(1, 1, "0.00", "0.4") '(xlCellValue, xlBetween, "0-40%")
    xlObj.StopIfTrue = False
    xlObj.ScopeType = 1
    With xlObj.Font
        .Color = -16383844
        .TintAndShade = 0
    End With

    With xlObj.Interior
        .PatternColorIndex = -4105 'xlAutomatic
        .Color = 13551615 'red
        .TintAndShade = 0
    End With

Set xlObj = Nothing

Set xlObj = .PivotFields("Default Aux Time 0 % for Outbound Calls").DataRange.FormatConditions.Add(1, 1, "0.40", "0.50") '(xlCellValue, xlBetween, "40-50%")
    xlObj.StopIfTrue = False
    xlObj.ScopeType = 1
    With xlObj.Font
        .Color = -16752384
        .TintAndShade = 0
    End With

    With xlObj.Interior
        .PatternColorIndex = -4105 'xlAutomatic
        .Color = 10284031 'yellow
        .TintAndShade = 0
    End With

Set xlObj = Nothing