[[20060113113325]]　『MsgBoxをvbModelessで』（sscl_oba）　ページの最後に飛ぶ

『MsgBoxをvbModelessで』（sscl_oba）

題名の通り、メッセージボックスをモードレスで

表示させたいのですが可能でしょうか？
具体的には

Sub 印刷()

    rtn = MsgBox("印刷しますか？", vbYesNo + vbInformation, "印刷")
        If rtn = vbYes Then
            Workbooks("□□□□.xls").PrintOut
        End If
End Sub

ここで印刷する前に確認のため、モードレスにしたいのです。

どなたかご教授下さい。
宜しくお願いします。

 Msgboxにモードレスは無いと思いまっせぇ。
 ユーザーフォームをMsgBox状に仕立てるか
 もしくは　If　rtn=vbyes then　の後に再確認のMsgBoxを表示させるとか・・・
 　　　　　（弥太郎）

なるほど。

やはりユーザーフォームしか方法がなさそうですね。

弥太郎さん、有難う御座いました。
（sscl_oba）

コメント返信：

[ 一覧(最新更新順) ]

[[20060113113325]] 『MsgBoxをvbModelessで』（sscl_oba） ページの最後に飛ぶ

[[20060113113325]]　『MsgBoxをvbModelessで』（sscl_oba）　ページの最後に飛ぶ