EXCEL2003 書換えたセルを元に戻すマクロ

質問

お世話になります。

質問に関してですが、次のような内容になります。

セルB2：J2までの各セルに数式が入っており、セルL2に入力された内容によって各セルにデータが表示されるような物があります。
例えば、B2のセルのデータ内容を書換えるとします。通常であれば数式によりデータが表示されている為、データを書換える為には数式を消さなければなりません。
そこで、内容を書換える為にマクロを組んでおり、コマンドボタンを押すと、セルの値のみをコピーしてセルに表示させています。（アクティブセルをコピー→形式を選択して貼付け→値のみを貼付ける、という動作をマクロにしています）

この書換えた内容を元に戻す（元の数式の入ったセルに戻す）為のマクロの組み方について質問があります。

書換える前のセルの数式をセルB250：J250に入れているのですが、
セルB2の内容を書換える場合はセルB250、セルG2の内容を書換えるにはセルG250のように
アクティブセルの位置によって、同じ列の数式を選択して貼付けるようにするにはどうすればいいでしょうか？

回答No.2

tsubuyuki · ベストアンサー

要するに、
アクティブ列の２５０行目の式を、アクティブセルに「数式を貼り付け」
してやれば良いんですよね？

例えば、ごく簡単に考えて

Sub myUndo()
　　　　Cells(250, ActiveCell.column).copy
　　　　ActiveCell.PasteSpecial Paste:=xlFormulas
　　　　Application.CutCopyMode = False
End Sub

コレだけで良いと思いますが、いかがでしょう。

お礼

ありがとうございます！

スゴク単純な事でしたね。。
期待通の結果になり安心しました！

回答No.1

keithin

＞書換える前のセルの数式をセルB250：J250に入れている

例えばＢ２：Ｊ２の式を２５０行にコピーしといたとか「ではなく」，２行目に入るべき数式の「文字通り」が２５０行に待避してあるとします。

作成例：
sub macro1()
　if application.intersect(activecell, range("B2:J2")) is nothing then exit sub
　activecell.formula = cells(250, activecell.column).formula
end sub

お礼

ありがとうございます。