メッセージボックスを使いこなす【yes/no】

1 メッセージボックスを使いこなす【yes/no】

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

メッセージボックスを使いこなす【yes/no】

メッセージボックスはよく使うものですが、メッセージボックスの使い方で初心者と中級者を分けるのがメッセージボックスでyes/noで条件を分岐できるかです。

メッセージボックスの表示

メッセージボックスを使用する場合は【MsgBox関数】を使用します、このMsgBox関数を使用すると

Sub Sample()
MsgBox "メッセージボックス"’←文字列や変数を表示できる
End Sub

Sub Sample()

MsgBox "メッセージボックス"’←文字列や変数を表示できる

End Sub

このようにOKボタンしかない表示されないメッセージボックスが表示されます。

メッセージボックスで条件分岐する方法

さて今回の本題である条件分岐の方法です。

Sub Sample()
Dim res As Variant
res = MsgBox("処理を続けますか?", vbYesNo)
If res = vbYes Then
MsgBox "はいボタンが押されました"
End If
If res = vbNo Then
MsgBox "いいえボタンが押されました"
Exit Sub
End If
End Sub

Sub Sample()

Dim res As Variant

res = MsgBox("処理を続けますか?", vbYesNo)

If res = vbYes Then

MsgBox "はいボタンが押されました"

End If

If res = vbNo Then

MsgBox "いいえボタンが押されました"

Exit Sub

End If

End Sub

まず一番の違いはMsgboxを変数として扱う事です。

Dim res As Variant
res = MsgBox("処理を続けますか?", vbYesNo)

1 2	Dim res As Variant res = MsgBox("処理を続けますか?", vbYesNo)

そして【vbYesNo】、メッセージボックスの最後にこの【vbYesNo】を追加することによって【はい、いいえ】が表示することができます。

そして続いてどちらのボタンが押されたのかを判定する必要があります。そのコードがこちらのIF文です。

If res = vbYes Then
MsgBox "はいボタンが押されました"
End If
If res = vbNo Then
MsgBox "いいえボタンが押されました"
Exit Sub
End If

If res = vbYes Then

MsgBox "はいボタンが押されました"

End If

If res = vbNo Then

MsgBox "いいえボタンが押されました"

Exit Sub

End If

このコードはいたって単純で、変数resのvbyesを押されたら、vbNoが押されたらというIF文です。
※ボタンからの帰り値は数値で返されますので変数の型はLongやvariantのような数値を扱える型を宣言してください。

メッセージボックス関数に用意されている定数

今回はvbYesNoは【はい、いいえ】を表示する定数でしたが、他にもたくさんの定数があります、一覧で紹介いたします。

vbOKOnly	[OK] ボタンのみを表示します。
vbOKCancel	[OK] ボタンと [キャンセル] ボタンを表示します。
vbAbortRetryIgnore	[中止]、[再試行]、および [無視] の 3 つのボタンを表示します。
vbYesNoCancel	[はい]、[いいえ]、および [キャンセル] の 3 つのボタンを表示します。
vbYesNo	[はい] ボタンと [いいえ] ボタンを表示します。
vbRetryCancel	[再試行] ボタンと [キャンセル] ボタンを表示します。
vbCritical	警告メッセージアイコンを表示します。
vbQuestion	問い合わせメッセージアイコンを表示します。
vbExclamation	注意メッセージアイコンを表示します。
vbInformation	情報メッセージアイコンを表示します。
vbDefaultButton1	第 1 ボタンを標準ボタンにします。
vbDefaultButton2	第 2 ボタンを標準ボタンにします。
vbDefaultButton3	第 3 ボタンを標準ボタンにします。
vbDefaultButton4	第 4 ボタンを標準ボタンにします。
vbApplicationModal	アプリケーションモーダルに設定します。メッセージボックスに応答するまで、現在選択中のアプリケーションの実行を継続できません。
vbSystemModal	システムモーダルに設定します。メッセージボックスに応答するまで、すべてのアプリケーションが中断されます。

このようにたくさんの定数が用意されており、仕様によって使い分けることが重要になってきます。

まとめ

メッセージボックスは作業の確認や警告文など重要な役割を持つものですが、既定値ではOKボタンしか表示されないという使用。実行しかできないプログラムは大変危険です、ワンクッション置く為にもvbYesNoを使用して実行確認などを用意しておくこと良いでしょう。

とりあえずはvbYesNoを使いこなせれば大体何とかなります(笑)

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

メッセージボックスを使いこなす【yes/no】

taka

最新記事 by taka (全て見る)

メッセージボックスを使いこなす【yes/no】

メッセージボックスの表示

メッセージボックスで条件分岐する方法

メッセージボックス関数に用意されている定数

まとめ

フォロー・チャンネル登録お願いします

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

2 件のコメント

コメントを残すコメントをキャンセル

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

最新記事 by taka (全て見る)

メッセージボックスを使いこなす【yes/no】

メッセージボックスの表示

メッセージボックスで条件分岐する方法

メッセージボックス関数に用意されている定数

まとめ

フォロー・チャンネル登録お願いします

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

共有:

2 件のコメント

コメントを残す コメントをキャンセル

RECOMMENDこちらの記事も人気です。

VBA イミディエイトウィンドウの使用方法ちゃんと知っていますか？

VBAを始める人にお勧めしたい5つの参考書

VBA 列挙型変数を使ってみる「列挙型変数Enum」

【運営報告】ようやく月30000pv超えた！6月のブログ運営報告

VBA 文字列を繋げる【＆(アンド)】の使い方

VBAの資格【VBAエキスパート】に挑戦してみた結果

ユーザーフォームについて1

VBAの資格【ExcelVBA Basic 】について

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

コメントを残すコメントをキャンセル

VBA　列挙型変数を使ってみる「列挙型変数Enum」

VBA　文字列を繋げる【＆(アンド)】の使い方