C200 AA1の解決方法

質問者が納得マクロを変更しました。対象シートのシートモジュールに次のコードをコピーしてください。Private Sub Worksheet_Change(ByVal Target As Range) Dim Date1 As Variant, Date2 As Variant Dim rNum1 As Long, rNum2 As Long If Target.Address <> "$A$1" And Target.Address <> "$A$2" ...