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

The following two tabs change content below.

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

taka

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

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

• 『雑記』最近の私の話～ - 2019年9月26日
• 【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
• VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
• 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
• VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

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

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

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

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

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

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

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

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

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

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

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

まとめ

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

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

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

VBA以外についてのブログはこちら↓

■Twitterフォロー

■YouTubeチャンネル登録

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

Sponsored Link