- 488 名前：デフォルトの名無しさん mailto:sage [2021/08/13(金) 14:43:20.07 ID:MQNa+Oeo0.net]
- >>475
「B1が変更」かつ「B2が入力済み」の場合にも処理されるようにするのはどうでしょうか。
後、B1B2が数値である保証がないのも気になりました。
冒頭（Early Returnの部分）を
If Target.Address <> "$B$2" and Target.Address <> "$B$1" Then Exit Sub
If (VarType(Range("B1").Value) <> vbDouble) Then Exit Sub
If (VarType(Range("B2").Value) <> vbDouble) Then Exit Sub
に修正し、
Target.Value - Target.Offset(-1).Value
等の部分を具体的にRange("B1")の様にしてみて下さい。
