別シートのマクロボタンをマクロで実行させることができるかどうか

Question

同ファイルのsheet1～sheet5までのマクロボタンにＡマクロを登録してあります。
同じくsheet6～sheet10までＢマクロを登録してあります。
sheet11にはsheet1～sheet10までマクロを実行して得られる数字をリンクしています。
sheet11にマクロボタンを作ってsheet1～sheet10までのマクロを実行させたいのですが可能でしょうか。ぜひ方法を教えてください。
※マクロは初心者です。よろしくお願いします。

rukuku · Accepted Answer

こんばんは
＞Ａマクロ・Ｂマクロともに標準モジュールにあります。
ということは
Sub Macro1()
'
' Macro1 Macro
'

'
   〔処理〕
End Sub

Sub Macro2()
'
' Macro2 Macro
'

'
   〔処理〕
End Sub

…と10シート分、あると言うことでしょうか？

一番ベタな方法として、Sheet11のボタンから以下のように各マクロをよびだすことができます。各シートのボタンを押さなくてもマクロから他のマクロを実行することが出来ます。

Sub all()
  Call Macro1
  Call Macro2
  …
End Sub

余談ですが、"Call"は省略しても構いません。サンプルなので、マクロから他のマクロを呼び出しているというのをハッキリさせるためにあえて入れました。

rukuku · Answer

こんばんは

テストとして、以下の手順を試してみてください
・エクセルを開く(ワークシートは３つで)
・名前を付けて保存
・Sheet1のA1に「abc」を入力
・Sheet2のA1に「def」を入力
・標準マクロを作成
・以下のマクロを標準モジュールに作成して実行
を試してみてください。
同じbook内ならば、他のワークシートの値を利用するのは簡単です。

Sub サンプル()
  Worksheets(3).Range("A1") = Worksheets(1).Range("A1")
  Worksheets(3).Range("A2") = Worksheets(2).Range("A1")
End Sub

WindFaller · Answer

昨日、しばらく読んで考えていましたが、あまり良い方向に行きませんね。

「Ａマクロ」1－5、「Ｂマクロ」6－10ともに統一されたマクロとします。

これについては、キーワードがひとつ抜けているとすれば、フォーム・コントールのボタンという前提がなければ、話が頓挫してしまいます。これが、ActiveX のボタンだと変わってきます。

しかし、大変失礼ですが、統合したマクロはお書きになれないでしょうか。できていないから、ボタンを1つずつクリックして、コピーということをおっしゃっているのかもしれません。

もし、そういう要求だとしたら、後でコードはお書きしますが、マクロを専門に回答している者とっては、それは、あまりに嬉しなくないコードです。知っている人なら誰でもできるからです。

#3さんの所でもご指摘になっていますが、質問と答えが咬み合っていないのは、肝心な部分が書かれていないからです。以下のような、初級の内容ですが、この程度は質問の際に見せてほしいと思います。

実際は、データを直接、Sheet11に持っていく方法がありますが、内容としては、イレギュラーです。

ご質問者さんは、初心者といっても、一応まともな目的を持ったコードなら、分かる人はその内容を直そうとしてくれます。その内容を評価だけしたり、バカにしたりする人間は、本当は、マクロなど出来ない人だと思います。小出しに情報を出して、それを受けて答えるという方式では、一向に先に進みません。全部、さらけ出してしまいましょう。（^^;このレベルに仕事での守秘義務などはないでしょうから。

VBAの範疇では、私もみなさんも、ほとんど、みんな初心者と変わりません。10年やっていても、アルゴリズムのトレーニングもしていないし、ポインターがどうとか知っているわけではなく、単に、経験値の違いだけです。だた、回答者の中には、その経験値自体を否定するという輩もいますが、それでは破綻が見えてしまいます。

そういう中で、私が哀しいのは、基礎的な回答をしたのにも関わらず、全然、間違った回答が選ばれることですね。

'//
Sub TestMacro()
　Dim i As Long
　For i = 1 To 10
　　With Worksheets("Sheet" & i)
　　　.Range("AA1").CurrentRegion.ClearContents
　　　.Range("A1").CurrentRegion.AdvancedFilter _
　　　Action:=xlFilterCopy, _
　　　CriteriaRange:=.Range("H1:H2"), _
　　　CopyToRange:=.Range("AA1"), _
　　　Unique:=False
　　　Application.ScreenUpdating = False
　　　With .Range("AA1").CurrentRegion
　　　　.Offset(1).Copy
　　　　Worksheets("Sheet11").Cells(Rows.Count, 1).End(xlUp).PasteSpecial
　　　　.ClearContents
　　　End With
　　　.Select
　　　.Range("A1").Select
　　　Application.ScreenUpdating = True
　　End With
　Next i
　Application.Goto Worksheets("Sheet11").Range("A1")
End Sub
'//

'*-----

Sub ButtonsExecute()
Dim i As Long
Dim myMacro
'フォームコントロール・ボタンが、シートに一個の場合
ThisWorkbook.Activate
For i = 1 To 5
　Application.Run Worksheets("Sheet" & i).Buttons(1).OnAction　'**
Next i
End Sub

'** ActiveX コントロールのボタンの場合は、Application.Runは不要です。
Worksheets("Sheet" & i).OLEObjects(1).Object.Value = True

解説：
Application.Run Worksheets("Sheet" & i).Buttons(1).OnAction　'

これは、ボタンの呼び出しに登録しているマクロを呼び出すことで、もちろん、標準モジュールのマクロを、Call で直接呼び出して間違いなけば、それでも問題はありません。でも、ボタンに登録したマクロと標準モジュールにあるそのマクロとの整合性はありません。それは、限りなく間違いはないでしょうけれども、それなら、シートごとのボタンを実行するのではなく、最初からマクロの一本化を考えたほうがよいと思います。

余計なことを書いて、不愉快になりましたら、申し訳ありません。

rukuku · Answer

前出のrukukuです。
最後の、「Sheet2」は誤記です。

本題です。
「Aマクロ」「Bマクロ」の置き場所はどこでしょうか？
各シートに置いてあると、先ほどの回答のようなことになります。

「標準モジュールに」に置いてあるのならば、どのシートのボタンからでも簡単に呼び出すことができます。

また、補足要求です。
ご質問の状況があいまい過ぎて、回答の方も一般論になってしまいます。
固有名詞や数値などは適当なダミーに置き換えても構いませんので、実際の使用方法をもう少し詳しく教えてください。

rukuku · Answer

こんばんは
Application.Run
という命令を使えば可能です。

例えば、
Sheet1に
Sub Test()
  MsgBox "test"
End Sub

Sheet2に
Sub RunTest()
  Application.Run "Sheet1.Test"
End Sub

というマクロをつくった場合、Sheet2のRunTestを実行すれば、Sheet1のTestが実行されます。
Sheet2

錦鱗 · Answer

sheet1をActiveにしてAマクロを作動→sheet2をActiveにしてAマクロを作動…sheet6をActiveにしてBマクロを作動→sheet7をActiveにしてBマクロを作動
をFor～Next文を使っておこなえばよろしいかと。

別シートのマクロボタンをマクロで実行させることができるかどうか

こんばんは

こんばんは

昨日、しばらく読んで考えていましたが、あまり良い方向に行きませんね。

前出のrukukuです。

こんばんは

sheet1をActiveにしてAマクロを作動→sheet2をActiveにしてAマクロを作動…sheet6をActiveにしてBマクロを作動→sheet7をActiveにしてBマクロを作動

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング