エクセルで数値の変更があった場合に初めて再計算をさせたい

Question

やりたいこと

A
B
C
D
E

という感じでセルがあり、ADはいずれも数値です。
**ADで数値の変更があった際に初めてEにA~Dの合計値を再計算させて入れたいです。**
Eには元々数値が入っていて、その数値は最初はそのまま出力させたいです。
SUMを使うと、すでに計算された状態になってしまうので、別の対応を考えていますが思いつきません。
IFSUMなどを使えばいけそうなのですが、まだ出来ていません。
何かヒントなどでも教えていただければと思います。

Answer 1

こんな感じでどうでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Range("A1:A4"), Target) Is Nothing Then Exit Sub
    Range("A5").Value = WorksheetFunction.Sum(Range("A1:A4"))
End Sub

Comments

[miyuki-glass]

ありがとうございます！

Answer 2

※!!!すいません、意図を誤って解釈しておりました、本解答は無視いただけますでしょうか!!!
以下参考になりますでしょうか。(もう少しいい方法があると思いますが取り急ぎ…)

=IF(COUNTIF(B2:B6,"")>0,"",SUM(B2:B6))

COUNTIF()にて空白セルの個数を判定し、1個以上の空白セルがあればSUMしない、といった内容です。

Comments

[miyuki-glass]

>※!!!すいません、意図を誤って解釈しておりました、本解答は無視いただけますでしょうか!!!
承知致しました。こちらこそわかりにくく申し訳ありません。