
Excel2010です。
今、book1の各シート(ここでは"S1"で特定していますが、たとえばs1、s2、s3の3つがあるとします。)の左上隅「X」マークを右クリックすると出てくる「コードの表示」に以下の内容を記録しています。
-------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "s1" Then Exit Sub
Worksheets("s1").Range("e6") = Sh.Range("an7")
Worksheets("s1").Range("e9") = Sh.Range("bj7")
Worksheets("s1").Range("e10") = Sh.Range("br7")
End Sub
-------------
これをbook1のマクロ本体の実行によってbook1のシート"s1"を含むいくつかのシートのあるコピーbook2に、同じようにマクロでこの「Private Sub」をコピーしたいと思っています。どのようのすればいいでしょうか。
よろしくお願いします。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
こんにちは。
Microsoft Visual Basic for Applications Extensibility の参照設定をしてやる方法もあるのですが、今どき、マクロをマクロで書き換えたり、コピーするという程度でウィルス・ライクとかいうのは程度問題ですが、やっぱり、今どきになっても、掲示板の中では「禁じ手」として暗黙の了解になっているわけです。
ただ、実際、私から言わせると、そういうコードは汚いし、低能なマクロなのですね。
インターネットで調べれば、ここに書かなくても出てくるし、VBAなんかを使わなくても、Windowsマクロを使えば、そんなコードを書かなくても、セキュリティも関係なく簡単にコードを貼り付けることも可能です。(Windowsマクロは、簡単なコードで可能です)
お見かけした内容では簡単なコードのようですから、VBAで行うなんて、難題を言わないで、コードを、VBEditor を開いて、コピペしていけば、10数個レベルでしたら、そんなに面倒な作業ではないと思います。
>「book1にはbook2を作るメインのマクロがあり、それを実行する一連の動作の中で、上記のことをやりたい」
この質問は、意味が通じていないのです。Book1が、Book2を作る?
それらしいものを考えると、Class で、インスタンスを設けておけば、一応、同じ動きします。仮想のマクロを貼り付けてあげるわけです。難しいものにしてしまいます。
他にもアドインという手はあるのですが、それも状況によりますね。
ところで、
>Private Sub Workbook_SheetActivate(ByVal Sh As Object)
> If Sh.Name = "s1" Then Exit Sub
> Worksheets("s1").Range("e6") = Sh.Range("an7")
> Worksheets("s1").Range("e9") = Sh.Range("bj7")
> Worksheets("s1").Range("e10") = Sh.Range("br7")
>End Sub
なぜ、このコードで、イベントが必要なのでしょうか。
s1以外のシートを開けたら、s1の一定のセルに上書きしていくだけで、Book自体の特定化もされていません。とすれば、ひとつのマクロで済むような気がします。
(Excel2010では、Personal.xlsmに置けばできるのではないかと思います。)
No.2
- 回答日時:
>よくわかりません
そうですか。ではアナタの直接の投稿は、コンピュータウィルスの作り方を質問しているのと同じ、非常識な質問なんだと承知してください。
>一連の動作の中で、上記のことをやりたい
出来る方法はお話ししましたが、コピーして使えるマクロを教わるには情報提供が足りていません。
でも何もわからない割には「ブック1にはブック2を作るメインのマクロがあり」とかなので、まぁ「言ってるだけ」なんだろうなと判断するわけです。
あなたの「ブック2を作るメインのマクロ」を編集せずにそのままコピー貼り付けして、新しいご相談として投稿してください。
そしたらそれにどう追記したり修正したらいいか、回答しましょう。ちゃんと情報提供すれば、私じゃなくても誰でもさくっと教えてくれます。
No.1
- 回答日時:
>マクロをマクロを使ってコピーしたい
そもそもマクロを使ってマクロをコピーしたり取り付ける操作は、勿論やり方はありますが、そのままマクロウィルスの技法につながるので、ここのような公開の掲示板ではあまり触れない話題です。
また今のエクセルでは、安全のために、マクロを操作するマクロは動作禁止の設定になっています。
このセキュリティを解除してもよいときは、手動操作で、エクセルのオプションからセキュリティセンターの設定で「VBAプロジェクトオブジェクトモデルのアクセスを信頼する」のチェックを入れます。
>book1のシート"s1"を含むいくつかのシートのあるコピーbook2に、同じようにマクロでこの「Private Sub」をコピーしたい
ご相談の事は「マクロをコピーする」のではなく、次の手順で安全に実現できます。
1.オリジナルのブック1を名前を付けて保存などで「ブック1のコピー」として丸ごと別に保存する
2.ブック1のコピーに、ブック2から必要なシートや必要なデータなどをコピーしてくる
以上の動作は、手動でも、もちろんマクロを使っても出来ます。
早速にお返事をいただきましてありがとうございます。小生、基礎知識・予備知識も皆無に等しいもので、よくわかりません。やりたいことは、
「book1にはbook2を作るメインのマクロがあり、それを実行する一連の動作の中で、上記のことをやりたい」わけです。
具体的な記述を教えていただければ助かります。よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
エクセルのvbaにて thisworkbookに記載のマクロを他のブックにマクロにて自動コピー出来る
Excel(エクセル)
-
VBA This Workbookモジュールを別ファイルにコピーする方法
Visual Basic(VBA)
-
-
4
エクセル ボタンに設定したマクロごとボタンをコピー
Excel(エクセル)
-
5
【ExcelVBA】sheet作成時にマクロを埋め込みたい
その他(Microsoft Office)
-
6
エクセルVBAで作成した別ブックにVBAを記述したい
Access(アクセス)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
9
Excel マクロでShearePoint先のフォルダ指定
Excel(エクセル)
-
10
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
13
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
14
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
15
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
16
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
17
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
18
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
19
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
20
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
複数のマクロボタンをまとめて...
-
エクセル ボタンに設定したマク...
-
Excel マクロの編集がグレーに...
-
エクセル マクロ名にブック名...
-
Ctrl+Zが使えない
-
エクセルの、記録を終了したマ...
-
エクセルでマクロ(Excel 4.0)...
-
Excelのマクロ名の並び順の法則...
-
Excelのマクロでボタンを押すと...
-
Excelで、マクロが含まれ...
-
(Excel VBA)シートコピー時マ...
-
VBAで有効なURLのみ抽出する方法
-
マクロ実行ボタンを自動削除したい
-
転職に備えてのExcelマクロ習得
-
エクセルマクロで、別のブック...
-
エクセルで、「いいね」のよう...
-
エクセルのマクロについて教え...
-
エクセルの表を複数枚印刷した...
-
Excel:マクロを消す方法教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
複数のマクロボタンをまとめて...
-
エクセル ボタンに設定したマク...
-
エクセルでマクロ(Excel 4.0)...
-
エクセル マクロ名にブック名...
-
Excelのマクロでボタンを押すと...
-
Excelマクロで、稼働中のマクロ...
-
エクセルの、記録を終了したマ...
-
エクセルで、「いいね」のよう...
-
エクセルの表を複数枚印刷した...
-
エクセルマクロで、別のブック...
-
LDPlayerのマクロの編集方法を...
-
(Excel VBA)シートコピー時マ...
-
Excelのマクロ名の並び順の法則...
-
マクロをマクロを使ってコピー...
-
エクセルで明日の日付を表示す...
-
Excelマクロをバックグラウンド...
-
Ctrl+Zが使えない
-
マクロ実行ボタンを自動削除したい
おすすめ情報