LoginSignup
3

More than 3 years have passed since last update.

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

Posted at

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

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

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

かなり簡易的だけど、セルを変更すると、セルに色を付け、変更したセルがわかりやすいようにしてみた。
変更箇所.xls  [互換モード] - Excel 2020_05_13 18_17_41.png

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

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
What you can do with signing up
3