VBA(エクセル)で自動的にボタンをクリックさせるには

解決済

質問者：tomiono1
質問日時：2008/07/21 01:47
回答数：3件

いつもお世話になっております。
下記のことがしたいのですがどうやって良いのかがわからなくって困っております。

やりたいこと。
AブックとBブックが有るとします。(双方ともエクセルファイル)
エクセルのVBAで、Aブックのシート上のコマンドボタンを押すと
Bブックのシート上のコマンドボタンをクリックするという動きを
VBAでさせたいのですがどうしてもクリックさせることができません。

試したこと。
初めは、AのボタンをクリックするとBのボタンをセレクトして
SendKeysでENTERを送ってみたりしたのですがうまくいきませんでした。

何かやり方が有りましたら、お教えいただけませんでしょう。
宜しくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

No.3ベストアンサー

回答者：end-u
回答日時：2008/07/21 12:51

Privateスコープを変更しない場合、Application.Runメソッドを使う手もあります。

Application.Run "'C:\Book1.xls'!Sheet1.CommandButton1_Click"
※『Sheet1』の部分はシートモジュールのオブジェクト名になります。

ですが、Bブックのボタン_Clickの中味を標準モジュールに置いて、
AブックのボタンとBブックのボタンと、両方から実行できるようにしておくほうが良いような気もしますね。

（コマンドボタンが[フォーム]ボタンの事だったら、同じマクロを[マクロの登録]するだけの話？）

- 0
- 件

通報する

この回答へのお礼

end-uさん、ご回答ありがとうございます。

Application.Run "'C:\Book1.xls'!Sheet1.CommandButton1_Click"で
無事できました!!

>ですが、Bブックのボタン_Clickの中味を標準モジュールに置いて、
>AブックのボタンとBブックのボタンと、両方から実行できるようにしておくほうが良いような気もしますね。
また、上記のご意見を参考に色々考えてみたいと思います。

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

通報する

お礼日時：2008/07/21 14:05

No.2

回答者：pofstar
回答日時：2008/07/21 12:22

ブックＡのボタンが押されたら

ブックＢのボタンのコードが実行されるように
しておく。というのはダメなのかな？
記述的にはブックやシートの指定が面倒かも知れませんが

- 0
- 件

通報する

この回答へのお礼

pofstarさん、ご回答ありがとうございます。

>ブックＡのボタンが押されたら
>ブックＢのボタンのコードが実行されるように
>しておく。というのはダメなのかな？
できる限り、ブックＡではブックＢを実行させるだけ
のソースにしたいと思っております。

しかし、pofstarさんのご意見も参考にして、
色々考えてみたいと思います。
ありがとうございました。

通報する

お礼日時：2008/07/21 14:01

No.1

回答者：Masa2072
回答日時：2008/07/21 05:44

Book1のSheet1にコマンドボタン(CommandButton1）を作成

Private Sub CommandButton1_Click()
Msgbox "OK"
End Sub
ファイルをC:\Book1.xlsとして保存

Book2のSheet1にコマンドボタン(CommandButton1)を作成
Private Sub CommandButton1_Click()
Call Workbooks.Open("C:\Book1.xls").Sheets("Sheet1").CommandButton1_Click
End Sub

この状態でBook1のボタンをクリックすると"OK"のメッセージボックスが表示されますが、
Book2のボタンをクリックすると「オブジェクトは、このプロパティまたはメソッドをさぽーとしていません。」というエラーが発生します。
この状態を回避するために、Book1の
Private Sub CommandButton1_Click()
を
Public Sub CommandButton1_Click()
と変更して保存します。
これでBook2のコードから、Book1のCommandButton1_Clickというモジュールを実行できます。