Условное форматирование - нижний индекс вне допустимого диапазона - PullRequest
Новая
       74

Условное форматирование - нижний индекс вне допустимого диапазона

0 голосов
/ 14 июля 2020

Я новичок в условном форматировании. Я основываю это на записанном макросе, в котором я очистил код. Он проходит одну итерацию, но выдает ошибку «Индекс вне допустимого диапазона». Кто-нибудь, пожалуйста, помогите мне понять, что здесь происходит. 

    Dim arrAisles, arrCol
    Dim rng As Range
    
    arrAisles = Array("C9:E", "H9:J", "M9:O")
    arrCol = Array(5, 10, 15)
    
    
    Set rng = Sheets("Main").Range(arrAisles(i) & GetLastRow("Main", arrCol(i)))
    With rng
     For i = 0 To 2
            .FormatConditions(1).ColorScaleCriteria(1).Type = _
                xlConditionValueLowestValue
             .FormatConditions(1).ColorScaleCriteria(1).FormatColor
            .Color = 8109667
            .TintAndShade = 0
            
            .FormatConditions(1).ColorScaleCriteria(1).Type = _
                xlConditionValuePercentile
            .FormatConditions(1).ColorScaleCriteria(2).Value = 50
             .FormatConditions(1).ColorScaleCriteria(2).FormatColor
            .Color = 8711167
            .TintAndShade = 0
            
            .FormatConditions(1).ColorScaleCriteria(3).Type = _
                xlConditionValueHighestValue
             .FormatConditions(1).ColorScaleCriteria(3).FormatColor
            .Color = 7039480
            .TintAndShade = 0
     Next i
    End With
...