アプリケーションとしてのVBA Excel(エクセル) VBA の役立つ Tips の紹介

アプリケーションとしてのVBA

MsgBox を使用する

MsgBox を使用する


  汎用性のあるアプリケーションを作成する場合には、エラー処理や注意・警告
  などをキチンとアプリケーションに組み込む必要があります。

  MsgBox を使って、注意のアイコンや「はい」「いいえ」ボタンなどを配置した
  メッセージを表示することができます。
  
  戻り値によってどのボタンが押されたか分かるので、If文などでその後の処理を
  振り分けることができます。
  
  MsgBox(prompt[, buttons] [, title] [, helpfile, context])
  
  prompt にメッセージを記述します。
  単にメッセージを表示だけを表示するのが一番シンプルな表示例でしょうか。
  
Sub test1()

    MsgBox "注意を促すメッセージです"
    
End Sub


MsgBox文の表示例1

 
  ボタンを複数表示したり、アイコンを表示したりする例です。

Sub test2()

    Dim OverWrite As Integer

    OverWrite = MsgBox("同じ名前のファイルがあります。上書きしますか?", _
          vbYesNo + vbQuestion + vbDefaultButton1, "処理を選択してください")
           
End Sub


MsgBox文の表示例2


  buttons で設定できる定数の一覧を以下に示します。
  
定数の種類定数内容
ボタンの種類vbOKOnly0[OK] ボタンのみを表示します。
vbOKCancel1[OK] ボタンと [キャンセル] ボタンを表示します。
vbAbortRetryIgnore2[中止]、[再試行]、および [無視] の 3 つのボタンを表示します。
vbYesNoCancel3[はい]、[いいえ]、および [キャンセル] の 3 つのボタンを表示します。
vbYesNo4[はい] ボタンと [いいえ] ボタンを表示します。
vbRetryCancel5[再試行] ボタンと [キャンセル] ボタンを表示します。
アイコンの種類vbCritical16警告メッセージ アイコンを表示します。
vbQuestion32問い合わせメッセージ アイコンを表示します。
vbExclamation48注意メッセージ アイコンを表示します。
vbInformation64情報メッセージ アイコンを表示します。
デフォルトボタンの設定vbDefaultButton10第 1 ボタンを標準ボタンにします。
vbDefaultButton2256第 2 ボタンを標準ボタンにします。
vbDefaultButton3512第 3 ボタンを標準ボタンにします。
vbDefaultButton4768第 4 ボタンを標準ボタンにします。
メッセージボックスの状態設定vbApplicationModal0アプリケーション モーダルに設定します。メッセージ ボックスに応答するまで、現在選択中のアプリケーションの実行を継続できません。
vbSystemModal4096システム モーダルに設定します。メッセージ ボックスに応答するまで、すべてのアプリケーションが中断されます。
その他vbMsgBoxHelpButton16384ヘルプ ボタンを追加します。
VbMsgBoxSetForeground65536最前面のウィンドウとして表示します。
vbMsgBoxRight524288テキストを右寄せで表示します。
vbMsgBoxRtlReading1048576テキストを、右から左の方向で表示します。



Copy (C) 2005   アプリケーションとしてのVBA   All Rights Reserved.