[[20160520220926]]　『セルの色をつける』（あきこ）　ページの最後に飛ぶ

『セルの色をつける』（あきこ）

下記のマクロを実行すると、R列に指定の文字が入るとA列からN列まで色がつきます。これを、B列～N列とR列に色をつけるようにするにはどうすればいいのでしょうか。色々やってみましたが、うまくいきません。

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim myColor As Variant

    If Target.Count <> 1 Then Exit Sub
    If Target.Column <> 18 Then Exit Sub

    Application.EnableEvents = False
    Select Case Target.Value
        Case "確認中"
            myColor = 40 'ベージュ
         Case "確認済み"
            myColor = 15 'グレー
         Case Else
            myColor = xlNone
    End Select
    Cells(Target.Row, 1).Resize(1, 14).Interior.ColorIndex = myColor
    Application.EnableEvents = True
 End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

こうでしょうか
Target.EntireRow.Range("B1:N1,R1").Interior.ColorIndex = myColor

（マナ） 2016/05/20(金) 22:23

マナさん

出来ました！
ありがとうございます。

（あきこ） 2016/05/20(金) 22:28

出遅れた。

この際、ついで申し上げると、
Application.EnableEvents の操作はこの場合は不要でしょうね。

というのは、値の変更はしていないので、再入処理が起きることはないですから。
もっとも、今後、値を変更させる処理を追加するかもしれないので、
邪魔ではないかも。
（γ） 2016/05/20(金) 22:35

コメント返信：

[ 一覧(最新更新順) ]

[[20160520220926]] 『セルの色をつける』（あきこ） ページの最後に飛ぶ

[[20160520220926]]　『セルの色をつける』（あきこ）　ページの最後に飛ぶ