[[20030313092225]]　『選択中のセルの色をかえるには』（ケン）　ページの最後に飛ぶ

『選択中のセルの色をかえるには』（ケン）

セルに数字、文字等を入力している時場所がわかりずらい時が有ります。選択中だけ色を変えるには、どうしたらいいのでしょうか？

マクロで作ってみました。（なお）

 以下を使用するシートモジュールに貼り付けてください。

  一応うまくうごきますが，データが多いとガタツクかもしれません。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 For Each c In UsedRange

 If c.Interior.ColorIndex = 4 Then

 c.Interior.ColorIndex = xlColorIndexNone ' 4

 End If

 Next

 Target.Cells.Interior.ColorIndex = 4

 End Sub

すごい！ありがとうございます。うまくいきました。

コメント返信：