MsgBoxはい/いいえExcel VBA

Question

私はYes/No MsgBoxを私のVBAスクリプトに書いておきます。 「はい」または「いいえ」ボタンが押されると、それぞれのコードを実行しているスクリプトのほかに、数字「6」または「7」の別のMsgBoxがポップアップします。これを無効にするにはMsgBox？

Dim question As Integer 
question = MsgBox("Unfortunately, the Database has no sources regarding " & Category & " in " & country & ". Would you like to broaden your search and see all sources regarding " & country & "?", vbYesNo + vbQuestion, "Empty Sheet") 

MsgBox question 

If question = vbYes Then 
    Sheets("Results").Range("D6").ClearContents 
    Sheets("Results").Range("D7").ClearContents 
    Category = Sheets("Results").Range("D6").Value 
Else 
    Sheets("Results").Range("D5").ClearContents 
    Sheets("Results").Range("D6").ClearContents 
    Sheets("Results").Range("D7").ClearContents 
    Exit Sub 
End If 

Answer 1

MsgBox機能が列挙されvbMsgBoxResult値を返し（及びLong整数、ではないIntegerなければなりません）。

あなたはそれを2回呼び出している：

Dim question As Integer 
question = MsgBox("Unfortunately, the Database has no sources regarding " & Category & " in " & country & ". Would you like to broaden your search and see all sources regarding " & country & "?", vbYesNo + vbQuestion, "Empty Sheet") 

MsgBox question 

を一度questionを割り当てるために、一度question表示する - その時点でvbYes（6）またはvbNo（7のいずれかを含むように起こっています）。

私はあいまいさを避けるために、あなたが後でそれを使用する場合、オートコンプリート/インテリセンスを取得するためにquestion As vbMsgBoxResultを宣言します。実際にはまたはanswerがより良い識別子になります。質問はのように聞こえますが、ユーザー自身の応答ではなく、質問です。

Answer 2

がMsgBox questionを削除します。

は、ここに私のコードです。これは、質問の値（たとえば、vbYesが戻り値6を持つように、「はい」または「いいえ」を選択したかどうかによって、6または7の値が設定された2番目のメッセージボックスを不必要に作成しています）。

Answer 3

だけで十分だろう

question = "Unfortunately, the Database has no sources regarding " & Category & " in " & country & ". Would you like to broaden your search and see all sources regarding " & country & "?." 

を使用しています。インクルード機能ができた場合に二回