新旧の数値の比較

質問

あるセルの数値を変更たとき、変更前の値との新旧の差を他のセルに表示させるるのはどうしたらいいでしょうか。お教え下さい。

回答No.3

cj_mover

こんにちは。

ＶＢＡ（マクロ）でやるしかないです。

導入手順■
■処理対象シ－トのシートタブを右クリック
Visuak Basic Editor（ＶＢＡの編集画面）が表示されるので、
■子ウィンドウの中で一番大きく、真っ新なウィンドウに
　以下の記述（この行から‐この行まで）をコピーして、
　過不足なく貼り付け。
' ' この行から
Private Sub Worksheet_Change(ByVal Target As Range)　'　8806664
　　If Target.Count > 1 Then Exit Sub
　　' ' 例えば、処理対象を"A1:A30"に指定する場合★運用に合わせて適宜修正
　　If Intersect(Range("A1:A30"), Target) Is Nothing Then Exit Sub
Dim buf
　　buf = Target.Value
　　With Application
　　　　.EnableEvents = False
　　　　On Error Resume Next
　　　　.Undo
　　　　' ' 例えば、変更前後の差を処理対象の１列右(, 1)に指定する場合★運用に合わせて適宜修正
　　　　Target.Offset(, 1).Value = buf - Target.Value
　　　　Target.Value = buf
　　　　.EnableEvents = True
　　End With
End Sub
' ' この行まで
■Alt + F11 キーでExcel画面に戻る。
▼マクロ無効ブック（拡張子が.xlsx）である場合は、
　マクロ有効ブック（拡張子が.xlsm）として新規に[名前を付けて保存]する。
▲元々マクロ有効ブック（拡張子が.xlsm）であった場合は上書き保存する。
導入手順■以上。

差の数値の表示方法については、Excelのメニューから、
[セルの書式設定][表示形式]をお好みで設定してみて下さい。

以上のマクロは、手作業で単セルの値を入力または確定した時に動作します。
＃経験的にこの手の課題はWebクエリやRSSの値変動を追跡するニーズである場合が多いのですが、
> あるセルの数値を変更たとき
と書いてあって、
　あるセルの数値 が 変更 された とき
とは書いてない、ということから類推して、
上述の通り、手作業での値変更に関する課題であろうと判断してお応えしています。
もしも、WebクエリやRSS絡みの課題でしたら、
要点を整理して、必要十分な説明を施すようにして、
再度、別の質問として建て直してください。

★印の行、２ヶ所は、そちらで運用に合わせて書き換えてください。
うまく行かない、とか、解らない点があれば、補足欄に詳しく書いてみて下さい。

以上です。

お礼

丁寧なご回答に感謝します。当方エクセルは基礎的な知識のみで使っている初心者で、マクロを用いる必要性が今まではなかったのですが、やはりいつまでも使わずにいるわけにはいきませんね。直ちにやれるかかどうかは分かりませんが、試させて頂きます。
実はあるセルのデータを日々上書きにより変更を行っているわけですが、後になって前日のデータと比較を行いたいときが往々にしてあり、そのセルの旧データがどこかに表示されていればいいなと思ったので質問させて頂きました。ありがとうございました。