エクセルのマクロ機能で前のシートに返るＶＢＡはどうかくか

あるエクセルのシートで　例えばＳＨＥＥＴ1で　そこでマクロＡをした結果を　他のあるマクロシート（例えばＳＨＥＥＴ100）のある場所にコピーペーストして、再度前のＳＨＥＥＴ1に戻って前とは違うマクロＢの結果を再度ＳＨＥＥＴ100の特定の場所に張り付ける場合は　どのようにＶＢＡ書くか

この場合ＳＨＥＥＴはＳＨＥＥＴ1、2、3・・・・　と変わるがＳＨＥＥＴ100は変わらないものとする。
要するに最初のマクロＡをしてＳＨＥＥＴ100に張り付けた時点で帰るとき　どこのＳＨＥＥＴに帰ってマクロＢを行えばいいかを知っているということです。それを記述するＶＢＡです。

No.2 ベストアンサー 回答者： WindFaller 回答日時： 2019/11/12 08:40

今、気になって調べてみましたが、Worksheet オブジェクトには、Previous というプロパティはあっても、物理的(Sheet2 -> Sheet1) なもので、記録的なものはありません。

(はずです)

最初のシート名が定まらない時は、移動後のシートをActiveSheet という扱いにしますね。それで、 オブジェクトに Set で変数(仮 AcSh=ActiveSheet) に入れておいて
Set AcSh = ActiveSheeet
として、
Worksheets("Sheet100") ....このときに、Sheet100... というオブジェクト名は使ってはいけません。オブジェクト名は絶対名ですから、不明のエラーで一部で動かなくなります。

Worksheets("Sheet100")　で作業して、AcSh (前に登録したシート)に戻るという方法が取られます。

もちろん、No.1 さんが書いた方法は、正解です。

No.1 回答者： fujillin 回答日時： 2019/11/11 16:18

こんにちは

＞張り付けた時点で帰るとき　どこのＳＨＥＥＴに帰ってマクロＢを行えばいいか～～
発想を変えた方が良さそうに思います。
手で操作する場合は、操作の対象とするSgeetをアクティブにしないと操作できませんけれど、VBAからは直接アクセスできますので。

例えば
　Worksheets("SHEET100").Range(AA).value = Worksheets("SHEET1").Range(BB).value
のような記述（＝考え方）であれば、「戻る」とか「帰る」という発想とは無縁になるのではないでしょうか。