VbMsgBoxResult型とは

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

MsgBox関数の戻り値VbMsgBoxResultとは

「vbmsgboxresultの使いかた」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがあることに気づきました。

VBAのMsgBox関数の戻り値を受け取る変数を、おそらくIntegerやLongで宣言してらっしゃる方による検索でしょう。

［スポンサードリンク］

VbMsgBoxResultを使ったサンプルマクロ

VbMsgBoxResult列挙型を使った簡単なSubプロシージャをご紹介しておきます。

Sub VbMsgBoxResultを使ったサンプル()

　Dim ans As VbMsgBoxResult

　ans = MsgBox("ボタンを押してください。", vbYesNo)

　If ans = vbYes Then
　　MsgBox "「はい」が押されました。"
　End If

End Sub

VbMsgBoxResultは、上記のマクロのようにMsgBox関数の戻り値を代入する変数の宣言文で使います。

マクロ初心者のうちは、MsgBox関数の戻り値を代入する変数は、IntegerやLongでも十分だと思います。

ですが、オブジェクトブラウザーで調べるとわかるとおり、そもそもMsgBox関数はVbMsgBoxResult列挙型に定義されている定数を返すように作られているのです。

MsgBox関数の戻り値VbMsgBoxResultとは

このVbMsgBoxResult列挙型には、MsgBox関数の戻り値による条件分岐文を書くときに使う、vbYesやvbNoなどの定数も定義されています。

MsgBox関数の戻り値VbMsgBoxResultとは

値順に並べると以下のとおりです。

この、そもそもの作りにしたがってコードを書けば、上記のように宣言するのがMsgBox関数の本来の使い方です。

上記のように
　　Dim ans As VbMsgBoxResult
と宣言しておけば、コーディング時に、下図のような自動メンバー表示が行われ、コーディングも楽になります。

MsgBox関数の戻り値VbMsgBoxResultとは

MsgBox関数の戻り値を代入する変数をIntegerやLongで宣言していた場合には、このようなメンバー表示は行われません。

オブジェクト変数の宣言を、
　　Dim rng as Object
とした場合は自動メンバー表示されることはありませんが、
　　Dim rng as Range
としておけば、自動メンバー表示されコーディングが楽になるのと同じ話です。

最終更新日時：2019-12-03 15:57

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBA経験者向けに、Word VBAの基本をキンドル本にしました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

日経BP社から出版されたExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

「VBA関数」の記事一覧