msgbox vbaのコマンドボタンは可能ですか？

Question

vbaのmsgboxウィンドウにコマンドボタンを追加することは可能ですか？

たとえば、コードを続行するのではなく停止するキャンセルボタンを追加したいとします。新しいuserformを作成することもできますが、スペースを節約して既に存在するmsgboxを使用するといいでしょう。

Answer 1

VBAは、まさにこの目的のためにコマンドボタンを内蔵したメッセージボックスのいくつかの種類があります。メッセージボックスに含まれるボタンの種類2番目のパラメータとして宣言されている - のMsgBox（プロンプト、などボタン）

あなたはおそらくに興味があるタイプは、次のとおりです。

• vbYesNo
• vbYesNoCancel
• vbAbortRetryIgnore
• vbOkCancel
• vbRetryCancel

これらのボタンは、比較のために格納または使用する必要がある整数値を返します。

VBAには、これらの整数の回答が定数として格納されています（例：vbOK = 1、VbCancel = 2など）。詳細はMicrosoft Developer Network MsgBox Functionを参照してください。

Sub mySub() 

Dim answer as Integer 

answer = MsgBox("Would you like to choose yes?", vbYesNoCancel) 

If answer = vbYes Then 
    'Do whatever you want 
ElseIf answer = vbNo Then 
    'Do whatever 
Else 
    Exit Sub 
End If 

End Sub 

Answer 2

これを試してみてください：

If MsgBox("Cancel or Continue, are you sure?", vbOKCancel) = vbOK Then 
    'continue whatever you want to do. 
End if