すぐに役立つエクセルVBAマクロ集 FAQ MsgBox関数のbuttons引数

　すぐマク　YNxv9a84

MsgBox関数のbuttons引数の指定方法は？

Ｑuestion 017k　メッセージボックス

拙著「組み方講座」

77ページ [3-1-9図]　◆ 環境・・ Excel 2000 & Windows XP

申し訳ありません。
77ページのボタンの種類とアイコンのスタイルの設定方法ですが、「vbExclamation+vbYesNo」の入力方法は本文の通りでしょうか。アイコンのスタイルは出なく、ボタンの種類は「はい」のみです。
以下の通り入力しましたが違いますか。お教え下さい。宜しくお願い致します。

Private Sub Workbook_Open()
    MsgBox "権限をお持ちですか", vdExclamation + vdYesNo, "閲覧制限されたブックです"
End Sub

Ａnswer　　

「ExcelVBAマクロ組み方講座」をご購読いただき、ありがとうございます。

単なる入力ミスのようですね。
'vd' となっているところを、'vb' に修正すれば本文どおりになるはずです。正しくは、

Private Sub Workbook_Open()
    MsgBox "権限をお持ちですか", vbExclamation + vbYesNo, "閲覧制限されたブックです"
End Sub

となります。お試しください。

http://www.geocities.jp/happy_ngi/