Excel（エクセル）活用コミュの入力シートの入力条件で、別シートのセルに色をつける

お世話になります。
入力シートのG17セルに入力された値(文字列)によって、別シートのT列の指定されたセルに色(赤)をつける処理をしたいのですが、
R = Range("E17")
シート = Range("F17)
経過区分 = Range("G17")
R = Range("E17") + 5
If R = 5 Then
R = 6
End If
Worksheets(シート).Range("T" & R) = 経過区分
If 経過区分 = "障害中" Then
Worksheets(シート).Range("T" & R).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If

入力シートに、行番号、シート名、経過区分を入力してボタンクリックすると、別シートのT列のR行のセルが、障害中だったら、赤く塗りつぶす、といった内容です。

実行すると、RangeクラスのSelectメソッドが失敗しました。とエラー表示がでます。

前後、コードが割愛されていますが、よろしくお願いいたします。

コメント(2)

最初
全て
最新の40件

[1] mixiユーザー 04月17日 13:02

キラリさん　はじめまして。
　
Worksheets(シート).Range("T" & R).Select
はできません。

Worksheets(シート).Select
Range("T" & R).Select
に分けてください。

また、あまりSelectは使わない方が良いと思います。
以下に変更した方がスッキリしたコードになると思います。

Worksheets(シート).Range("T" & R).Select
With Selection.Interior
　　　　↓
With Worksheets(シート).Range("T" & R).Interior

[2] mixiユーザー 04月17日 15:25

> たいらさん

アドバイスありがとうございました。
たいらさんのアドバイス通り、Select を使わずにコードを変更したら、正常に動作しました。

ありがとうございました！

ログインすると、みんなのコメントがもっと見れるよ