1314164046 マクロ エクセルシートのコピー


エクセルのシートに
「並べ替え」用マクロとボタンを作成しました。

これをヒナガタとして
同じブック内にマクロごとシートをコピーする方法を
教えてください。

シートをコピーするとマクロつきの新シートができますが
新シートのマクロボタンをクリックすると
元シートが並べ替えになってしまいます。
そして新シートは並べ替えになっていない。

ボタンの登録か、マクロの記録の
どこかが間違っているのでしょうが、わからないのです。

新シートと元シートが連動しないように
シートごとでマクロが作動するにはどうしたらよいのでしょうか。

各シートごとに並べ替えを作動したいので
マクロの保存先は「作業中のブック」にしてあります。

添付の「Sheet 34 商品」を元シートとしています。
標準モジュール1に入っています。

"商品"を単純に"ActiveSheet"と直したら
「実行時エラー インデックスが有効範囲にありません」と出てきました。

回答の条件
  • 1人3回まで
  • 登録:
  • 終了:2011/08/24 15:11:14
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

回答1件)

id:kopj No.1

回答回数123ベストアンサー獲得回数6

>"商品"を単純に"ActiveSheet"と直したら

これでは エラーになるでしょう。

"商品"を ActiveSheet.Name にしてみたら どうでしょうか?

これで エラーが 出なければいいですけど。

id:keromancang

ご回答ありがとうございました。

ざんねんながらエラーになってしまいました。

すべての Worksheets("商品") を ActiveSheet に、という作業で

なんとか解決できました。

お世話になりました。

2011/08/24 15:10:44
  • id:a-kuma3
    >"商品"を単純に"ActiveSheet"と直したら
    違う。
    Worksheets("商品") を ActiveSheet にするんだ。全部ね。
  • id:keromancang
    a-kuma3さま

    コメントありがとうございました。

    おっしゃるとおりで解決できました。

    どうして逐一この作業が必要なのかハテナなところもありますが
    とりいそぎ作業をすすめられて助かります。

    ありがとうございました。
  • id:a-kuma3
    あらー、質問キャンセルしちゃったのか。
    ぼくは、回答拒否を食らってたから、コメントに書いたけど、
    せっかく(当たりじゃなかったにしろ)回答が付いてるんだから、正当に終了して欲しかったな。
  • id:keromancang
    a-kuma3さま

    ごめんなさい!!

    a-kuma3さんのコメントどおりで完結したものと
    これ以上お世話かけないために終了しちゃいました。
    ポイントもどうしてよいかわからず。。

    理解不足でたいへん失礼いたしました。
  • id:a-kuma3
    ぼくは、いらないからさ、id:kopj さんに、気持ちだけでもポイント送信してあげたら?

    回答のアイコンの横にある kopj をクリックして、kopj さんのマイページに飛んで、
    その右側にある「Myはてなを見る」のリンクをクリック。
    Myはてなのページの右っかわにメールのアイコンが付いた
    「ポイント付きメッセージを送信する」ってのをクリックして、
    流れに乗って操作していけば、ポイントが送信できます。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません