Excel VBA で、変更されたセルを色づけしてわかりやすくしてみた

シートのデータが多いとき、どこか１つセルを修正したかを探すのが大変なときがあります。

よくあるのが、Excelデータを更新して、メールで送り返してもらうときに、変更された箇所を、ハイライトでわざわざ色付けするのは手間がいる。

かなり簡易的だけど、セルを変更すると、セルに色を付け、変更したセルがわかりやすいようにしてみた。

VBAマクロ

Dim refValue

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    refValue = Range(Target.Address).Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If refValue <> Range(Target.Address).Value Then
        With Range(Target.Address).Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End If
End Sub