VBA 条件付き三色スケールについて

Question

VBAについての質問です。
C2：BN52のエリアを3色スケールで色を付けたいのですが、
条件がBR2がC2、BSがD2、、、BN52がEC52と関連するように作りたいです。
具体的な条件はBR2:EC52のエリアの数値が0.9以上の時、それぞれ対応するC2:BN52内のセルを3色スケールで表す、といったものです。
0.9以下に対応するセルは水色の背景にするつもりです。

Sub Macro6()

Dim i As Integer, j As Integer
For i = 2 To 52
For j = 3 To 66
If Cells(i, j + 67).Value >= 0.9 Then
Dim スケール As ColorScale
Set スケール = Range(i, j).FormatConditions.AddColorScale(3)
With スケール.ColorScaleCriteria(1)
    .Type = xlConditionValueNumber
    .Value = -10
    .FormatColor.Color = RGB(0, 0, 0)
End With
With スケール.ColorScaleCriteria(2)
    .Type = xlConditionValueNumber
    .Value = 0
    .FormatColor.Color = RGB(255, 228, 196)
End With
With スケール.ColorScaleCriteria(3)
   .Type = xlConditionValueNumber
   .Value = 1
   .FormatColor.Color = RGB(255, 0, 0)
End With
            Else
                Cells(i, j).Interior.ColorIndex = 20    '水色
            End If
        Next j
    Next i
End Sub

このようにコードを書いたのですがエラーが出てしまい実行できません。
解決方法を教えていただけたら幸いです。よろしくお願いします。

Answer 1

Rangeの指定の仕方が間違っていますね。以下で動くと思います。

Set スケール = Range(i, j).FormatConditions.AddColorScale(3) '間違い

Set スケール = Cells(i, j).FormatConditions.AddColorScale(3) 'こちらに直す

Comments

[tirsujmn]

これで解決しました！本当にありがとうございました！