新旧の数値の比較

質問

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

回答No.6

cj_mover

＃３-５です。＃５補足欄拝見しました。

> 当方の場合、前日より前のデータを残す必要は全くないため、その保存を常に上書きで行えばよいのかなと思いました。
> ただし、保存のために独立のシートを作るより、同じシートの不要な列に前日分が自動コピーされている方が簡便なようにも思えます。
> 今のシートは縦に複数の表（データの内容は異なるが形式は同一）が並ぶ縦長のもので、
> Ｍ列より右は空白なのので、その範囲が使えればと思っています。
> 具体的にはＡ～Ｌ列の部分をそっくりＭ列より右方にコピー（上書き）したうえで、
> その部分の数値が固定されれば、目的が果たせるかと思います。
> そのような方法があれば改めて教示頂ければ幸甚です。
（<改行加えました）

よく解ります。優れたご判断だと思います。

なるべく簡単に導入出来て、且、メンテナンスし易い方法を、と考えた結果、
　　一日の最初にブックを開いた時にだけ、Ａ：Ｌ列をそっくりコピーして、
　　Ｏ列より右に（値と書式だけ）貼り付ける
ようなマクロを紹介することにしました。

当初のご質問にある
"変更前の値との新旧の差を他のセルに表示させる"方法としては、
例えば、Ａ２の値についての前日との差を求める数式として
　　=A2-O2
のように何処かのセルに設定しておけば、
常にお求めの数値を表示させておくことが出来ます。

尚、前回紹介したマクロは不要になりますので破棄してください。

導入手順■
■添付画像(1)■対象ブックの[ウィンドウを元のサイズに戻す]ボタンをクリック
■添付画像(2)■対象ブックのタイトルバーを右クリック
■添付画像(3)■表示されたポップアップにて[コードの表示]をクリック
　Visual Basic Editor（ＶＢＡの編集画面）が表示されるので、
■子ウィンドウの中で一番大きく、真っ新なウィンドウ（=ThisWorkbook モジュール）に
　以下の記述（この行から‐この行まで）をコピーして、
　過不足なく貼り付け。

' ' =============== ThisWorkbook モジュール =============== この行から
' ' /// Ａ：Ｌ列のデータを前日のデータとして
' ' /// Ｏ列より右に確保します。
' ' /// Ｎ１セルに更新した日付を記録し、
' ' /// ブックを開いた日付とＮ１セルの日付に相違があれば、
' ' /// 前日データをコピペします。
' ' /// 一日の最初にこのブックを開いた時にだけ、
' ' /// 自動的に前日データを更新します。///　Re8806664_6

Private Sub Workbook_Open()　'　←↓ブックを開いた時に自動で処理するマクロです。

　　With Sheets("Sheet1")　'　★シート名を指定してください。"シート名"のように"の間にシート名です。

　　　　' ' Ｎ１セルの更新日が当日であれば、処理する必要がないので何もせず終了します。
　　　　If .Range("N1").Value = Format(Date, "yy/m/d") Then Exit Sub
　　　　' ' ここから下は、当日の朝、最初にブックを開いた時にだけ実行されます。

　　　　' ' 貼付け先を一旦クリアします。
　　　　.Range("O:X").Clear
　　　　' ' 昨日までのデータをコピーします。
　　　　.Range("A:L").Copy
　　　　' ' 昨日までのデータをＯ列より右に、値のみ貼付けします。
　　　　.Range("O1").PasteSpecial Paste:=xlPasteValues
　　　　' ' 昨日までのデータをＯ列より右に、書式のみ貼付けします。
　　　　.Range("O1").PasteSpecial Paste:=xlPasteFormats

　　　　' ' Ｎ１セルの更新日を更新します。
　　　　.Range("N1").Value = Format(Date, "yy/m/d")
　　　　.Range("N2").Value = "↑　更新日"

　　　　' ' 選択中の範囲をＡ１セルに設定し直します。
　　　　.Range("A1").Select
　　End With

　　' ' コピーモードを解除します。
　　Application.CutCopyMode = 0

End Sub

' ' =============== この行まで

■Alt + F11 キーでExcel画面に戻る。
▼マクロ無効ブック（拡張子が.xlsx）である場合は、
　マクロ有効ブック（拡張子が.xlsm）として新規に[名前を付けて保存]する。
▲元々マクロ有効ブック（拡張子が.xlsm）であった場合は上書き保存する。
導入手順■以上。

ＶＢＡの記述中、Sheet1の部分は処理対象のシート名に書き換えておいて下さい。

セル範囲の参照、N1、O:X、A:L、O1、N2、A1、については、
Excek数式でのセル参照と要領は同じですから、
もしもシートレイアウトを変更される場合は、こちらのセル参照も書換えて下さい。
数式での参照と違ってＶＢＡでは、自動的に参照先を変更してくれるような機能はありませんので。

シート名、セル範囲の参照、ともに、"ダブルクオート"で挟んだ書式になるよう注意して下さい。

動作確認の為、一旦ブックを閉じて、
再度（拡張子が.xlsmの）ブックを開いてみてください。
Ｎ１に当日の日付、Ｏ列より右にＡ：Ｌ列のデータの複製が展開されていれば、
問題なく動作していることになります。

前日データの複製は自動で作成されますが、
上書き保存はしていませんので、必要な時に上書き保存してあげて下さい。
一日の最初にブックを開いた時の状態として、
ブックを開いただけのつもりでも未保存のデータ（Ｎ列より右）があることになります。

マクロの内容としては、初級の前段で覚えるようなものですから、
メンテナンスに迷ったとしても相談にのってくれる人は多数いる筈です。
無理矢理シートの保護を設定でもしない限り、滅多なことではエラーにならないように
かいてあります。
その他、疑問が残っているようでしたら遠慮なくお訊ねください。

お礼

大変丁寧なご教示を賜り心から有り難く思っております。
当方マクロの使用経験がないのでＶＢＡの編集画面の基礎操作の部分から分かりませんので、再々度質問させて頂きます。

ご指示に基づき「コードの表示」をクリックすることでＶＢＡの編集画面が開くのですが、『■子ウィンドウの中で一番大きく、真っ新なウィンドウ（=ThisWorkbook モジュール）』に該当する子ウインドウが表示されていません。
大きなグレーのウインドウが１つ表示されており、上方の「表示」タブをクリックすると「ローカルウィンドウ」「ウオッチウインドウ」等いくつかの種類のウインドウが下の方に表示させられますが、そのいずれもご指示の“■子ウインドウの中で一番大きく真っ新なウインドウ”には該当しないように思えます。
全くの初心者の質問で恐縮ですが、当該の“子ウインドウ”の表示のさせ方をお教えくだされば幸いです。