

いつもお世話になっております。
下記のことがしたいのですがどうやって良いのかがわからなくって困っております。
やりたいこと。
AブックとBブックが有るとします。(双方ともエクセルファイル)
エクセルのVBAで、Aブックのシート上のコマンドボタンを押すと
Bブックのシート上のコマンドボタンをクリックするという動きを
VBAでさせたいのですがどうしてもクリックさせることができません。
試したこと。
初めは、AのボタンをクリックするとBのボタンをセレクトして
SendKeysでENTERを送ってみたりしたのですがうまくいきませんでした。
何かやり方が有りましたら、お教えいただけませんでしょう。
宜しくお願いいたします。
No.3ベストアンサー
- 回答日時:
Privateスコープを変更しない場合、Application.Runメソッドを使う手もあります。
Application.Run "'C:\Book1.xls'!Sheet1.CommandButton1_Click"
※『Sheet1』の部分はシートモジュールのオブジェクト名になります。
ですが、Bブックのボタン_Clickの中味を標準モジュールに置いて、
AブックのボタンとBブックのボタンと、両方から実行できるようにしておくほうが良いような気もしますね。
(コマンドボタンが[フォーム]ボタンの事だったら、同じマクロを[マクロの登録]するだけの話?)
end-uさん、ご回答ありがとうございます。
Application.Run "'C:\Book1.xls'!Sheet1.CommandButton1_Click"で
無事できました!!
>ですが、Bブックのボタン_Clickの中味を標準モジュールに置いて、
>AブックのボタンとBブックのボタンと、両方から実行できるようにしておくほうが良いような気もしますね。
また、上記のご意見を参考に色々考えてみたいと思います。
ありがとうございました。
No.2
- 回答日時:
ブックAのボタンが押されたら
ブックBのボタンのコードが実行されるように
しておく。というのはダメなのかな?
記述的にはブックやシートの指定が面倒かも知れませんが
pofstarさん、ご回答ありがとうございます。
>ブックAのボタンが押されたら
>ブックBのボタンのコードが実行されるように
>しておく。というのはダメなのかな?
できる限り、ブックAではブックBを実行させるだけ
のソースにしたいと思っております。
しかし、pofstarさんのご意見も参考にして、
色々考えてみたいと思います。
ありがとうございました。
No.1
- 回答日時:
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というモジュールを実行できます。
Masa2072さん、ご回答ありがとうございます。
早速試してみました!!
Sheets("Sheet1").CommandButton1_Clickは以前挑戦して
駄目だったのですが、Publicにするだけで実行できるのでね。
勉強になりました!!
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
Excel vbaで別ブックのコマンドボタンをクリック
Visual Basic(VBA)
-
別のユーザーフォームのコマンドボタンを押す
Visual Basic(VBA)
-
-
4
別シートのマクロボタンをマクロで実行させることができるかどうか
Excel(エクセル)
-
5
別シートのマクロを実行する方法
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
複数のマクロボタンをまとめて一つのマクロボタンにするということ。
Excel(エクセル)
-
11
Application.Runエラー(1004)
Excel(エクセル)
-
12
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
13
UserForm1.Showでエラーになります。
工学
-
14
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
15
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
16
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
17
モジュールからフォームのボタンをクリックするには?
Access(アクセス)
-
18
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
19
コマンドボタンがあるかどうかを取得するには?
PowerPoint(パワーポイント)
-
20
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォーム中の入力順番...
-
VBA ユーザーフォームラベルキ...
-
VBAで多数のプログラムを一つの...
-
VBAでオプションボタンによって...
-
セルをマクロのボタンにしたい。
-
コマンドボタンやテキストボッ...
-
VBでのエラー音の消し方
-
C#プログラムで、ボタンをショ...
-
コマンドボタンの長押し
-
Edge操作のアプリが例外発生に
-
VBAのボタンの位置が変わって困...
-
CommandButtonのCaptionを変化...
-
PythonでChrome操作について
-
プロシージャからイベントをコ...
-
C#でSendInputを使ったサンプル...
-
アイコンとボタンの違い
-
VBA CommandButtonの文字ずれ
-
コマンドボタンやイメージにマ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
セルをマクロのボタンにしたい。
-
フォームの再読み込み
-
Access VBA でデータペーストを...
-
コマンドボタンやイメージにマ...
-
ボタン
-
Excel VBA Application.caller...
-
VBA CommandButtonの文字ずれ
-
バックスペース機能の作り方
-
VBAのボタンの位置が変わって困...
-
VBAでオプションボタンによって...
-
Excel マクロ 閉じるボタン
-
プロシージャからイベントをコ...
-
ボタンの枠線の様なものを消したい
-
ボタンをマウスで押し続けたと...
-
C#プログラムで、ボタンをショ...
-
C#で動的に作ったtextboxを消す。
-
CommandButtonのCaptionを変化...
-
閉じると「+」になり開くと「-...
おすすめ情報