別シートのマクロを実行する方法

こんばんは、エクセル2010を使っていて、別シートからマクロを実行したいと思っていますが、どうも上手く行きません。

やりたいのは　Sheet12のマクロの実行後、Sheet9　の　統合シート.xlsm!Sheet9_ボタン1_Click　と言うボタンクリックのマクロを実行させたいと思います。

詳しい方、教えて頂けませんでしょうか、よろしくお願いいたします。

■　試してみた
sheet12のマクロのコード

Dim vR As Variant
Dim vA As Variant
Dim iRow As Long, iCol As Long
Dim i As Long, j As Long
Const CROW As Long = 11
Const CFIGW As Long = 6
Const CFIGNEXT As Long = CFIGW + 1
　　　　　　　　　～
　　　　　　　　　～

Sheets("sheet9").Select
ボタン1_Click

Sheets("sheet5").Select

Dim a As Integer
a = Cells(1, 1).Value
a = a + 1
Cells(1, 1) = a
MsgBox a

Sheets("sheet9").Select

end sub

No.2 ベストアンサー 回答者： soixante 回答日時： 2015/08/02 20:00

別シートのマクロという概念が少し違う気がします。

Sheet9にボタン１を配置して、そのボタンに登録してあるマクロは標準モジュールにあると思います。
この標準モジュールにあるものを、Sheet9のボタン１に登録してあるだけであって、「シート９のマクロ」
というものではないのでは。

仮にその名前が「Sheet9_ボタン1_Click」と言う名前なんだったら、

Call Sheet9_ボタン1_Click

で動くと思います。

この回答へのお礼

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

Call Sheet9_ボタン1_Click　を私が提示した位置では動かなかったのですが、最下行にもって行ったら動作しました。

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

お礼日時：2015/08/02 20:28

No.3 回答者： WindFaller 回答日時： 2015/08/02 20:17

たぶん、フォームコントロールのボタンでしょうから、私の知っている範囲なら、このようにします。

名称があるなら、Buttonsの中に名前を入れてください。Shapesでも可。コードが別に書かれているかどうかではなく、そのオブジェクトにマクロ登録しているという前提です。

Sub Test1()
　'フォームボタン
　Run Worksheets("Sheet9").Buttons(1).OnAction
End Sub

'ちなみに、ActiveX 側はこちら
Sub Test2()
　'ActiveX コントロール・ボタン
　Worksheets("Sheet9").CommandButton1.Value = True
End Sub

No.1 回答者： hallo-2007 回答日時： 2015/08/02 19:58

別のシート？

良くわかりませんが
ボタン1_Click
を
Application.Run "統合シート.xlsm!Sheet9_ボタン1"
のことでしょうか。

この回答へのお礼

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

Call Sheet9_ボタン1_Click　を私が提示した位置では動かなかったのですが、最下行にもって行ったら動作しました。

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

お礼日時：2015/08/02 20:28