エクセルVBA MsgBox関数
エクセルVBAでのMsgBox関数は、結果を返すことができますが、単純なMsgBoxにはできません。
状況：
ワークシート上のコマンドボタンを配置し、次のコード行を追加します。
1.まず、我々はInteger型の答えという変数を宣言します。
Dim answer As Integer
2.当社は、ユーザーからの入力を変数answerを初期化するために、MsgBox関数を使用します。
MsgBox関数は、括弧を使用した場合、3つの引数を持っています。最初の部分は、メッセージボックス内のメッセージのために使用されます。あなたがメッセージボックスに表示したいボタンやアイコンを指定するために、第2の部分を使用してください。第三部は、メッセージボックスのタイトルバーに表示されています。
answer = MsgBox("Are you sure you want to empty the sheet?", vbYesNo + vbQuestion, "Empty Sheet")
注：Visual Basic EditorでvbYesNo上にカーソルを置き、あなたが使用することができ、他のどのボタンやアイコンを参照してF1をクリックします。代わりに定数vbYesNoとvbQuestionの、あなたはまた、対応する値4と32を使用することができます
3.ユーザーは、[はい]ボタンをクリックすると、Excel VBAシートを空にします。ユーザーいいえ]ボタンをクリックすると、何も起こりません。これを達成するために、次のコード行を追加します。
If answer = vbYes Then Cells.ClearContents Else 'do nothing End If
シート上のコマンドボタンをクリックします。4.。
-
[はい]をクリックします。
結果：
