' ' Private Sub Worksheet_Change(ByVal Target As Range) Dim Cellchk, CellsData As Range Set CellsData = Range("D2:D20") '表の範囲を把握します。 If Intersect(Target, CellsData) Is Nothing Then 'セルの変更が無いか判定します。 Exit Sub 'セル…