Exccelで、データを更新直前（1世代前）の数値データを記憶・取り出す方法

Exccelですが、セルのデータを更新しますが、その直前（1世代前）の数値データを記憶・取り出す方法がありますか、あればご教示ください。

具体的には、MAX関数で最大値を表示させていますが、データを更新しますと、当然に、MAX関数は、新しい最大値を表示します。
この時に、MAX関数以外のどこかのセルに、データ更新の直前（１世代前）の数値を格納して、表示させたいのですが、その方法がありますか？
よろしくお願いします。

質問者からの補足コメント

• たびたびありがとうございます。
  ご指示通りにやったつもりですが、下記画像のようになり、ご回答のような結果になりませんでした。
  「ひとつ前」B３は、B2、B4にリンクさせても、上記のようになりません。
  どこが間違っているのでしょうか？すみませんが、再度お願いします。

  
  No.8の回答に寄せられた補足コメントです。 補足日時：2017/03/20 12:24

• yokoyama様
  
  丁寧なご回答に恐縮に存じます。何がしたいか、Excelに書いてみました。
  この画像をご覧いただければ、何をしようとしているか、ご理解いただけると思いますが、A列に、毎月処理する連続番号を入れますが、新しい月の開始番号は、最終番号に１を加えて、A1から上書きして、その後必要な行数だけ番号付与するものです。
  
  画像の例では、前月の最終番号（最大値）が１４で、次月の開始番号は、１５となります。この月の必要な数は１０となっています。
  
  もちろん、前月の最終数字１４を覚えておいて、１５と手入力すれば問題ないのですが、記憶でなく、本例では、B１に表示できないか、と考えた次第です。
  
  A列に、その月の必要番号数を入れたなら、その後は、Vlookupなどを使って、他のデータを使って、自動処理となっています。
  
  なお、最初の行は、「制御領域」（印刷しない）で、見出しなどは2行目です。

  
  No.11の回答に寄せられた補足コメントです。 補足日時：2017/03/20 18:41

No.6 回答者： yokomaya 回答日時： 2017/03/19 21:37

やっぱ、不親切だな。

これをしたいシートに....①
問題のMAXが書かれたセルが....②ありますね。
そして１世代前の数値を入れたいセル....③があると。

で①のシート名が書かれたタグが
EXCELの下方にありますよね。
そこ右クリックです。
するとコードの表示があるので
選ぶと白いなんでも書けそうな窓が出るので
No3の
Private Sub Worksheet_Change(ByVal Target As Range)
以降を、そこに貼ってください。

で、必要なアドレスが判らなかったので
"SUMの中のアドレス"
ってとこは
＝MAX(N5:N10)
ってなってるなら
”N5:N10”
という風に数式の中身をそのままに
書き換えてくださいの意です。

"SUM式のセル"　は同じ感じで②のアドレス
"１世代前のセル"　は③のアドレスにそれぞれ書き換えれば
作業完了。
MAXを変化させて試してみてください。

この回答へのお礼

何度も、ご丁寧にありがとうございます。
No3を、「コードの表示」にコピーし、Max関数を入れて、早速試してみましたところ、下記の行でエラーになりました。
エラー表示は、「実行時エラー1004　　Rangeメソッドは失敗しました」となっています。

If Not Intersect(Target, Range(Max(a1, a100))) Is Nothing Then

また、以下の2つを試しましたが、やはりエラーです。
If Not Intersect(Target, Range("Max(a1, a100)")) Is Nothing Then

If Not Intersect(Target, Range(a1, a100)) Is Nothing Then


ここでは、Range() の（）内の記述に問題があるようですが、正しい記述をご教授お願いできますでしょうか。
なお、B2=max(A:A) 、1世代前の数値は、B１に格納したと思います。
（A:Aの列の最大値を、B2に格納し、1世代前の数値は、B１に格納したと思います）

お手数をおかけしますが、よろしくお願いいたします。

お礼日時：2017/03/20 11:31

No.5 回答者： yokomaya 回答日時： 2017/03/19 21:24

＞式は、マクロと思いますが、マクロの知識がないのですが、この式をどのようにExcelに組み込めばよいでしょうか。

No3にそれを書いたつもりです。
よく読んでください。

No.4 回答者： yokomaya 回答日時： 2017/03/19 20:38

SUMじゃなかった、MAXだ、

でも変わらないので読み替えてください。

この回答へのお礼

早速ご回答いただき、感謝申し上げます。
式は、マクロと思いますが、マクロの知識がないのですが、この式をどのようにExcelに組み込めばよいでしょうか。

初歩的な質問で恐縮ですが、重ねてよろしくお願いします。

お礼日時：2017/03/19 21:05

No.3 回答者： yokomaya 回答日時： 2017/03/19 20:22

失礼しました。

以下をシート名右クリックのコードの表示
で表示されるところに貼り付け
Range()の中を実態に変えてください。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim befor
If Not Intersect(Target, Range("SUMの中のアドレス")) Is Nothing Then
Application.EnableEvents = False
Application.Undo
befor = Range("SUM式のセル").Value
Application.Undo
Range("１世代前のセル") = befor
Application.EnableEvents = True
End If
End Sub

No.2 回答者： yokomaya 回答日時： 2017/03/19 19:31

間違いでした。

これは、直接入力ならこうなんですけど
SUMですね。でしたらSUMするセル領域が
必要です。

No.1 回答者： yokomaya 回答日時： 2017/03/19 19:27

以下はQ列に変更があったとき

２列右に前のデータが入ります。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim befor
If Target.Column = Columns("Q").Column Then
Application.EnableEvents = False
Application.Undo
befor = Target.Value
Application.Undo
Target.Offset(0, 2) = befor
Application.EnableEvents = True
End If
End Sub