配列で特定のフォント色を付けたいのですが？

質問

下記コードにおいてフォント色を変えたいのですが上手くいきません。「実行時エラー’424’：オブジェクトが必要です。」と出ます。
何とはなく「Variant」に起因しているような気もしますがよくわかりません。宜しくお願いします。

Dim MyArray As Variant

lRow = .Cells(Rows.Count, 1).End(xlUp).Row

MyArray = Range(.Cells(10, TNK), .Cells(lRow, TNK))

For i = 1 To lRow - 9
If MyArray(i, 1) = "晴" Then
MyArray(i, 1).Font.Color = RGB(0, 176, 80)
End If
Next
Range(.Cells(10, TNK), .Cells(lRow, TNK)) = MyArray

回答No.1

kkkkkm · ベストアンサー

最後の
Range(.Cells(10, TNK), .Cells(lRow, TNK)) = MyArray
が何をやりたいのか分からないのですが
無視して
WithがないのとTNKに値が代入されていないのは質問時に省略しているだけだとして

Dim MyArray As Range

lRow = .Cells(Rows.Count, 1).End(xlUp).Row

Set MyArray = Range(.Cells(10, TNK), .Cells(lRow, TNK))

For i = 1 To lRow - 9
If MyArray(i, 1) = "晴" Then
MyArray(i, 1).Font.Color = RGB(0, 176, 80)
End If
Next

もしくは(どこから色付けしたいのか不明なので)

Dim MyArray As Variant

lRow = .Cells(Rows.Count, 1).End(xlUp).Row

MyArray = Range(.Cells(10, TNK), .Cells(lRow, TNK)).Value

For i = 1 To lRow - 9
If Cells(i, 1) = "晴" Then
Cells(i, 1).Font.Color = RGB(0, 176, 80)
End If
Next

また、MyArray(配列)にセルのデータを入れただけと考えたのでしたら、ただの配列に.Font.Colorは使えませんから以下のように

Dim MyArray As Variant

lRow = .Cells(Rows.Count, 1).End(xlUp).Row

MyArray = Range(.Cells(10, TNK), .Cells(lRow, TNK))

For i = 1 To lRow - 9
If MyArray(i, 1) = "晴" Then
.Cells(i + 9, TNK).Font.Color = RGB(0, 176, 80)
End If
Next