５、VBAによるマクロの作成（応用編）

５−１、メッセージボックスの応用

メッセージボックスの応用

• メッセージボックスにはただメッセージを表示するだけでなく、そのメッセージに対して「はい」か「いいえ」の返事を返すという使い方もできます。いわゆる、「条件選択」というもので、その選択により、以降の処理を分岐させたりもできます。

例）

※ここでの例は他の（基本編などの）例文とのつながりはありません。新規ファイルを用意してください。

「文字を入力しますか？」というメッセージボックスに「はい」「いいえ」ボタンを配置し、「はい」が選択されたら、B2セルに「メッセージボックスの応用」という文字を入力し、「いいえ」が選択されたら、文字は入力せずに「終了します」というメッセージを表示します。

Sub Sample()
　　Worksheets("Sheet1").Select
　　Rtn = MsgBox("文字を入力しますか？",vbYesNo,"選択")
　　If Rtn = vbYes Then
　　　　Range("B2") = "メッセージボックスの応用"
　　Else
　　　　MsgBox "終了します"
　　End If
End Sub

【このコードの解説】

• Rtn = MsgBox("文字を入力しますか？",vbYesNo,"選択")
  「MsgBox」に続けて（　）の中にそのメッセージボックスの設定を記述します。（　）の中は、「表示するメッセージ」、「配置するボタンの種類」、「タイトル」の順に記述します。今回の例では「はい」「いいえ」ボタンを配置するのでボタンの種類の記述は「vbYesNo」となります。
  この他の種類については、＋α講座の表を参照して下さい。

• 定数
  メッセージボックスに表示されるボタン（「はい」「いいえ」ボタンなど）には、それぞれ定数（値）が割り当てられていて、その定数を判定することにより、処理を分岐させることができます。
  例えば、「はい」ボタンの定数は「vbYes」、「いいえ」ボタンの定数は「vbNo」と決まっています。
  変数「Rtn」はこの定数を格納するためのもので、メッセージボックスで「はい」ボタンを押した場合は、「vbYes」が、「いいえ」ボタンを押した場合は「vbNo」がそれぞれ格納されます。

• If Rtn = vbYes Then
  　　Range("B2") = "メッセージボックスの応用"
  Else
  　　MsgBox "終了します"
  End If
  これは、押されたボタンの定数を判定し、処理を分岐する記述です。「はい」が押された場合は、「Rtn」には「vbYes」が格納されているので、B2セルに「メッセージボックスの応用」と入力されます。「いいえ」が押された場合は「Rtn」には「vbNo」が格納されているので、文字は入力されずに「終了します」というメッセージが表示されます。
  　

＋α講座

• ボタンの定数と値
  ボタンの定数には、それぞれの代わりとなる値（数字）が用意されています。例えば、「はい」ボタンの場合、定数は「vbYes」でしたが、その代わりとなる値は「６」です。「いいえ」ボタンは定数が「vbNo」、値は「７」です。
  また、メッセージボックスに配置するボタンの種類にも定数と値が用意されています。例えば「はい」「いいえ」ボタンの場合は定数が「vbYesNo」、値は「４」です。
  　
  この「値」を利用すると、今回の（例）は次のように書き換えることができます。

Sub Sample()
　　Worksheets("Sheet1").Select
　　Rtn = MsgBox("文字を入力しますか？",vbYesNo,"選択")
　　If Rtn = vbYes Then
　　　　Range("B2") = "メッセージボックスの応用"
　　Else
　　　　MsgBox "終了します"
　　End If
End Sub

↓　　↓　　↓　　↓　　↓　　↓

Sub Sample()
　　Worksheets("Sheet1").Select
　　Rtn = MsgBox("文字を入力しますか？", 4 ,"選択")
　　If Rtn = 6 Then
　　　　Range("B2") = "メッセージボックスの応用"
　　Else
　　　　MsgBox "終了します"
　　End If
End Sub

• メッセージボックスに配置できるボタン一覧

配置できるボタン	定数	値
「OK」ボタンのみ	vbOKOnly	０
「OK」ボタンと「キャンセル」ボタン	vbOKCancel	１
「中止」「再試行」「無視」の３つ	vbAbortRetryIgnore	２
「はい」「いいえ」「キャンセル」の３つ	vbYesNoCancel	３
「はい」と「いいえ」の２つ	vbYesNo	４
「再試行」と「キャンセル」の２つ	vbRetryCancel	５

• 押されたボタン一覧

ボタン	定数	値
「OK」	vbOK	１
「キャンセル」	vbCancel	２
「中止」	vbAbort	３
「再試行」	vbRetry	４
「無視」	vbIgnore	５
「はい」	vbYes	６
「いいえ」	vbNo	７