excelでマクロシートをコピーしたとき

質問

excelでbook1のsheet1のセルＡ１に「１」を入力→プリントアウト→Ａ１に「１１」を入力→プリントアウト・・・以下「31」まで繰り返し。
というマクロが組んであります。
（ボタンにマクロが登録されています。）

このシートをbook2にコピーをしたときに
マクロを実行する（ボタンを押す）とbook1が開いてしまいます。

これをbook1を開かずにbook2でマクロを実行するには
どのようにしたらよいでしょうか。

book2でマクロを作成し直して
さらにボタンにマクロを登録していますが、
bookの数が多いのでけっこうな手間になります。

簡単な方法があれば教えて下さい。

回答No.3

papayuka · ベストアンサー

表示－ツールバー－フォームにあるボタンを使っているのかな？
Book1を閉じた状態で、Book2へコピーしたシート上のボタンを右クリックしてマクロの登録を見ると「C:\xxxxxx.xls!マクロ名」のようにフルパスでマクロの場所を指定した状態になっていると思います。

改善策として

1. Book1を名前を付けて保存でBook2にしてあげれば、こういった事は起こりません。

2. マクロを標準モジュールではなく該当のシートモジュールに書いてコピーすれば、ボタンに登録したマクロを指定し直すだけでOKとなり、標準モジュールのコピーやマクロのコピペ、書き直しが不要になります。

3. 表示－ツールバー－コントロールツールボックスの CommandButton を置き、ダブルクリックして Clickイベントに該当マクロを書けば、コピー後に何もしなくてもOKのハズです。

Private Sub CommandButton1_Click()
　'該当のマクロ（先頭の Sub xxx() と 最後の End Subを除く）を
　'ここにコピペする。
End Sub

ちなみに繰り返しの処理はループを憶えると便利ですよ。

Sub Test()
　For i = 1 To 31 Step 10
　　ActiveSheet.Range("A1").Value = i
　　'ActiveSheet.PrintOut
　Next i
End Sub

お礼

回答ありがとうございました。なんとかできあがりました。
１はシートの名前が変更できないのでダメでした。
２は標準モジュールやシートモジュールがわからないのでできませんでした。（勉強不足で・・・）
ということで、３のやり方でやりました。
ループは書き換えができるかどうか不安だったので、
とりあえず今回は今までのマクロをコピーして使いました。
次にチャレンジします。
お世話になりましたm(_ _)m

回答No.2

kinokoyasan2004

はじめまして。＃１の補足になりますが、
アクティブなシートにするには、
Sheets("Sheet1").xxxとかなっているのを、
ActiveSheet.xxxって感じでなおせばいいと思います。

お礼

回答ありがとうございました。
これからいろいろ勉強したいと思います。

補足

何度も済みません・・・こんな感じなんですけど、どこを・・・
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select
ActiveCell.FormulaR1C1 = "11"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select
ActiveCell.FormulaR1C1 = "21"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select
ActiveCell.FormulaR1C1 = "31"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"

回答No.1

edomin

ＶＢＡで作ってあるマクロ自体が「Sheet1」を参照するようになっているからだと思います。
ＶＢＥを開いて、シート１のマクロを「アクティブなシート」に変更してからコピーすれば大丈夫でしょう。

お礼

回答ありがとうございました。
なんとか解決しました。

補足

早速ありがとうございます。
今開いてみましたが、アクティブなシートに変更するやり方がわかりません。教えて下さいm(_ _)m