Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("H:H") '変更を監視するセル範囲を指定 If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then 'H列のセルが変更されたときに…