指定したセルを塗りつぶしするには？

解決

7k 2006-05-09 22:03:47 No: 131295

表題の通りの質問なんですが、実行すると次のアラートが出ます。
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

なにがいけないんでしょうか？

Blue 2006-05-09 22:10:19 No: 131296

> 実行すると次のアラートが出ます。
次のアラトとは？

> 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 を効率よく利用してください。

7ｋ 2006-05-09 23:14:01 No: 131297

アラート内容は
InteriorクラスのColorIndex プロパティを設定できません。
です。

Valueは""でもいいんですよね？

とりあえずBlueさんの助言通りシートを指定したら大丈夫でした。
ありがとうございますm(_ _)m