[[20180509152640]]　『選択範囲が変化したとき』（she）　ページの最後に飛ぶ

『選択範囲が変化したとき』（she）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Long

Dim b As Long

a = Selection.Column

b = Selection(Selection.Count).Column

Range(Cells(2, a), Cells(2, b)).Interior.Color = RGB(200, 200, 200)

End Sub

セルに色が付いた後で選択範囲を変えたとき、

Range(Cells(2, a), Cells(2, b)).Interior.Color = RGB(200, 200, 200)

の色は消し（白色）に戻して　次の選択範囲に色をつけたい。

よろしくお願いいたします。

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Long
Dim b As Long

a = Selection.Column

b = Selection(Selection.Count).Column

Rows(2).Interior.Pattern = xlNone

Range(Cells(2, a), Cells(2, b)).Interior.Color = RGB(200, 200, 200)

End Sub
（mm） 2018/05/09(水) 16:39

コメント返信：