メッセージボックスのＯＫボタンをＶＢＡでクリックさせたい

解決済

質問者：tibi_boris
質問日時：2008/10/12 10:57
回答数：5件

ＥＸＣＥＬの１つのブックに２つのマクロを組んでいます。

普段は１つ目のマクロを実行したあと、処理結果を確認してから
２つ目のマクロを動かしています。

※１つ目のマクロ終了時に、完了のメッセージボックスが出ます。

この２つのマクロを、自動で処理するためのマクロを
作ろうとしていて、

１．１つ目のマクロを実行
２．処理完了のメッセージボックスのＯＫをクリック
３．２つ目のマクロを実行

という流れで処理しようと思っています。

今、メッセージボックスのＯＫボタンをＶＢＡでクリックする方法がわからなくて
調べているのですが、お分かりになる方いらっしゃいましたら
教えていただけませんでしょうか。

例えば、１つフラグを作って、そのフラグが立っている時は
メッセージボックスを出さないような制御は出来るのですが、
今回は、メッセージボックスをクリックする方法が
知りたいと思っています。

よろしくお願いいたします。

通報する

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

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： redfox63
回答日時：2008/10/12 11:33

無理です

MsgBox自体がモーダルで表示されるので MsgBoxからExcelへ処理が戻ってこない限りExcelからの制御が不能になります

フラグを作って MsgBoxの表示、非表示を切り替えるほうが現実的です

- 5
- 件

通報する

この回答へのお礼

やはり制御できないんですね。
フラグでやるか検討してみます。
ありがとうございましたm(__)m

通報する

お礼日時：2008/10/12 15:31

No.5

回答者： redfox63
回答日時：2008/10/12 16:58

下記のようにしてみてはいかがでしょう

Sub Macro1() ' マクロ1
　　Macro1Auto
End Sub

' マクロ1の実行内容をこちらへ移す
Sub Macro1Auto( optional flag as Boolean = false )
' 1つめのマクロ
' メッセージボックスをフラグで制御
if flag = false then
　　MsgBox "確認メッセージ"
end if
End Sub

' 自動でやる場合は TrueをセットしてMacro1Autoをコール
Sub CallMAcro1Auto()
　　Macro1Auto True
End Sub

- 8
- 件

通報する

No.4

回答者： imogasi
回答日時：2008/10/12 16:45

小生も質問を一読して、＃３のご指摘と同じ感想を持ちました。

自動でプログラムでOKにするなら、MsgBoxのコードを,その入れなければよいのでは。
利用者に知らせるだけなら他の表示だけのコントロールもあり、表示が見る人にうるさければ、一定時間で消えるとかの方に頭が行くような気がします。
結局、質問の真意が説明（表現）できてないのでは。

- 0
- 件

通報する

No.3

回答者： diashun
回答日時：2008/10/12 13:34

diashunです。

質問者さんの意図がいま一つ理解できないのですが・・・。
そもそもMsgboxはある処理の結果がOKかNGかをオペレータに判断させるためのもので、これをプロシージャ内でOK(クリック？)とさせることに意味があるのでしょうか？常にOKと判断するなら、そのMsgboxを表示する意味はないのではないでしょうか？
#2のn-junの参考URLのWSH(ウィンドウズスクリプティングホスト)を使えば、一定時間後にMsgboxを自動で閉じることも確かにできますが、わざわざMsgboxを表示する意味はないと思います。

- 1
- 件

通報する

この回答へのお礼

意図が不明ですみませんでした。

チェックしなくてもいいケースと、しないといけないケースがあって
チェックしなくてもいいケースの場合は、
スケジュールを組んでBATのように自動で全て動かしたいと思っていました。

わざわざメッセージボックスがないＰＧを分けて作るのも管理しにくく
なりますし、と思っていましたが
フラグを追加してBAT処理の場合はメッセージボックスを表示しない方が
良さそうですね。

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

通報する

お礼日時：2008/10/12 15:42