【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには？

シート内にマクロボタンを設置しており、
それをクリックすると、そのシート内の表が指定した項目順にソートされるようになっています。仮に「シート1」とします。

しかし、このシートをコピーやリネームして「シート2」にすると正常動作しません。
原因は分かっていて、ソースを見ると「シート1」の記述のままになっているからだと思います。
シート名を変更したり、コピーしても常に、「自分自身のシート内で動作する」という指定をする方法は無いでしょうか？

No.3 回答者： siffon9 回答日時： 2018/10/03 19:41

シートモジュールに書かれているマクロの場合

Meが自身のワークシートになります。ですから以下の様に置換してください。

Worksheets("シート1") → Me
シート名文字列 "シート1" → Me.Name

もし標準モジュール上のプロシージャにシート名が直接書かれている場合は、
ボタンクリックイベントで標準モジュールのプロシージャを呼び出す際に、引数として自身のシート名をプロシージャに渡して利用するように変更して下さい。

この回答へのお礼

回答ありがとうございます。
最初からソースを具体的に挙げておけば良かったですね。失礼いたしました。

ソースの一部ですが、下記のような記述となっております。

ActiveWorkbook.Worksheets("元データ").Sort.SortFields.Add Key:=Range("C8:C37"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

これはマクロの記録を録っただけの状態です。
標準モジュール - Module1内(General)に記載されておりました。
シートをコピーして各シート上で動作するようにするにはどうしたら良いでしょうか？

お礼日時：2018/10/04 10:13

No.2 回答者： pontajya 回答日時： 2018/10/03 19:36

Worksheets("Sheet1")～～を ActiveSheet～～に変える。

また、シート名を省略するとActiveSheetに対しての操作になるので、～～の前をなくしてもいいかも。

ただし、私は最近VBAいじってないので、自信ないです。

この回答へのお礼

回答ありがとうございます。
最初からソースを具体的に挙げておけば良かったですね。失礼いたしました。

ソースの一部ですが、下記のような記述となっております。

ActiveWorkbook.Worksheets("元データ").Sort.SortFields.Add Key:=Range("C8:C37"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

これはマクロの記録を録っただけの状態です。
標準モジュール - Module1内(General)に記載されておりました。
シートをコピーして各シート上で動作するようにするにはどうしたら良いでしょうか？

お礼日時：2018/10/04 10:13

No.1 回答者： pontajya 回答日時： 2018/10/03 18:33

シート1の部分をアクティブシートにしたらどうでしょうか。

この回答へのお礼

そのやり方もう少し教えていただけませんか？

お礼日時：2018/10/03 18:47