Excel VBA MsgBoxについて(3)アイコンとタイトルも追加する

はじめに

Excel VBA MsgBoxについて(2)選択肢があるタイプのMsgBox

2020年3月22日

Excel VBAの入り口 MsgBoxについて(1)OKボタンしか無い単なるメッセージボックス

2019年4月16日

前回の記事で、Excel VBAのメッセージボックスMsgBoxについて、選択肢を持たせるタイプのものを扱った。

そこまでの段階では、このMsgBoxはまだちょっと味気ないものになっているので、今回はMsgBoxにデザイン的な要素も追加していく。

MsgBoxに、オプション的に追加できる主なものは、アイコンとタイトルだ。
順に述べていく。

アイコンを追加する

アイコンを使ったソースコードを書いてみる

前回使用したMsgBoxのソースコードがこちら。
少しだけコメント文を追加してるけど。

Sub msgTest()
    'OKかキャンセルかなど、選択肢が複数ある中からどれか答え・結果を受け取りたい場合は
    'MsgBoxの後に括弧()を入れる。

'ここから--------------------------------------------------------------------------------------------
    If MsgBox("OKかキャンセルを選んで下さい。", vbOKCancel, "タイトル部分です") = vbOK Then
        'メッセージボックスに対し、OKボタンを押す一択しかない場合は、
        'MsgBoxの後に括弧()を入れない。
        MsgBox "OKですね。"
    Else 'vbOKではなかった場合＝vbCancelでキャンセルされた場合の処理
        MsgBox "キャンセルされました。"
    End If
'ここまで--------------------------------------------------------------------------------------------

End Sub

Sub msgTest()

'OKかキャンセルかなど、選択肢が複数ある中からどれか答え・結果を受け取りたい場合は

'MsgBoxの後に括弧()を入れる。

'ここから--------------------------------------------------------------------------------------------

If MsgBox("OKかキャンセルを選んで下さい。", vbOKCancel, "タイトル部分です") = vbOK Then

'メッセージボックスに対し、OKボタンを押す一択しかない場合は、

'MsgBoxの後に括弧()を入れない。

MsgBox "OKですね。"

Else 'vbOKではなかった場合＝vbCancelでキャンセルされた場合の処理

MsgBox "キャンセルされました。"

End If

'ここまで--------------------------------------------------------------------------------------------

End Sub

で、これを、ちょっと次のように書き換えてみる。
vbInfomationという、情報のアイコンを使うものだ。

コメントで「ここから」「ここまで」っていうのがあるけど、この間にあるソースコードをいったん消去。そして
If MsgBox(“OKかキャンセルを選んで下さい。”
のところだけコピペで書いてみる。
そして次にカンマ , 文字を打つと、選択肢が表示されるはずだ。
その選択肢から「vbOKCancel」を選ぶ。
選ぶには、カーソルを下に持っていってもいいし、vboとか途中までキーボードで打っていくと候補がより出やすくなる。
「vbOKCancel」を入力できたら、「+」文字を打つと、またすぐ候補が一覧表示されるはずだ。
その中から今度は「vbInfomation」を選ぶ。
次に
)=
と入力。また選択肢が表示されるので「vbCancel」を選択し、
Then Exit Sub
まで続けて入力する。