表題の通りの質問なんですが、実行すると次のアラートが出ます。
InteriorクラスのColorIndex プロパティを設定できません。
Do Until EOF(1)
Input #1, Buffer(1), Buffer(2), Buffer(3), Buffer(4), Buffer(5), Buffer(6), Buffer(7), Buffer(8), Buffer(9), Buffer(10), Buffer(11), Buffer(12), Buffer(13), Buffer(14), Buffer(15), Buffer(16), Buffer(17), Buffer(18), Buffer(19), Buffer(20), Buffer(21), Buffer(22), Buffer(23), Buffer(24), Buffer(25)
Application.StatusBar = i & "件読込完了しました。"
i = i + 1
For j = 1 To 25
Worksheets("課題実績設定").Cells(i + 4, j) = Buffer(j)
If i > 1 Then
If j = 22 Then
Range("V" & i + 4 & ":Y" & i + 4).Interior.ColorIndex = 36
End If
End If
Next j
Loop
Close
なにがいけないんでしょうか?
> 実行すると次のアラートが出ます。
次のアラトとは?
> Range("V" & i + 4 & ":Y" & i + 4).Interior.ColorIndex = 36
先ほどの質問と同様、どのシートの Range と指定しましょう。
いちいちめんどくさいのであれば、
With Worksheets("課題実績設定")
.Cells(1, 1).Value = "ああ" ' だから Value は省略すべきではない!
.Range("A1").Interior.ColorIndex = 36
End With
というように With を効率よく利用してください。
アラート内容は
InteriorクラスのColorIndex プロパティを設定できません。
です。
Valueは""でもいいんですよね?
とりあえずBlueさんの助言通りシートを指定したら大丈夫でした。
ありがとうございますm(_ _)m
ツイート | ![]() |