ユーザーフォーム操作する主なメソッド・ステートメント一覧表
| メソッド・ステートメント | 内容 |
|---|---|
| Show【ｼｮｳ】メソッド | ユーザーフォームを表示します。 |
| Load【ﾛｰﾄﾞ】ステートメント | 表示しないでメモリに読み込みます。 |
| Unload【ｱﾝﾛｰﾄﾞ】ステートメント | ユーザーフォームを閉じます。 |
| Hide【ﾊｲﾄﾞ】メソッド | ユーザーフォームを非表示にします。 |
ユーザーフォーム主なイベント
| イベント | 内容 |
|---|---|
| Initialize 【ｲﾆｼｬﾗｲｽﾞ】 | ユーザーフォームがメモリに読み込まれたあと 画面に表示される直前に発生します。 |
| QueryClose 【ｸｴﾘｸﾛｰｽﾞ】 | ユーザーフォームを閉じる直前に発生します。 |
Show【ｼｮｳ】メソッド
ユーザフォームを表示するには、UserForm(ﾕｰｻﾞﾌｫｰﾑ】コントロールオブジェクトのShow【ｼｮｳ】メソッドを使用します。
Show【ｼｮｳ】メソッドの書式と設定値
オブジェクト.Show( Modal )
- オブジェクト（必須）
ユーザーフォームコントロールオブジェクトのオブジェクト名を指定します。 - Modal【ﾓｰﾀﾞﾙ】（省略可）
ユーザーフォームの表示状態をFormShowConstants列挙型の定数で指定します。FormShowConstants列挙型の定数 設定値 値 内容 vbModal 1 モーダルの状態で表示（既定値） vbModeless 0 モードレスの状態で表示
モーダルとは
モーダルとは、ユーザーフォームが表示されているとき、ユーザーフォーム以外の操作ができない状態のことです。したがって、モーダルに設定した場合は、そのほかのExcelの機能が操作できなくなります。ユーザーにユーザーフォーム以外の操作をさせたくないときにモーダルに設定します。
モードレスとは
モードレスとは、ユーザーフォームが表示されているとき、ユーザーフォーム以外の操作もできる状態のことです。したがって、モードレスに設定した場合は、そのほかのExcelの機能も操作できます。ユーザーフォーム内の操作とExcelの機能を連携させながら操作させたいときにモードレスに設定します。
※モーダルのユーザーフォームを表示しているときに、モードレスのユーザーフォームを表示しようとるすとエラーが発生します。
※選択されたセル範囲のアドレスを取得するRefEdit【ﾘﾌｴﾃﾞｨｯﾄ】コントロールを配置したユーザーフォームをモードレスに設定して表示するとユーザーフォームを閉じることできなくなります。
ユーザーフォーム1をモーダルで表示するコード例
Sub ユーザーフォーム表示()
UserForm1.Show
End Sub
ユーザーフォーム1をモードレスで表示するコード例
Sub ユーザーフォーム表示()
UserForm1.Show vbModeless
End Sub
Load【ﾛｰﾄﾞ】ステートメント
ユーザーフォームを表示しないでメモリに読み込むには、Load【ﾛｰﾄﾞ】ステートメントを使用します。
メモリに読み込んだユーザーフォームを表示するには、Show【ｼｮｳ】メソッドを使用します。
このとき、ユーザーフォームはすでにメモリに読み込まれているので表示する処理だけが実行されます。
ユーザーフォーム1をメモリに読み込むコード例
Sub ユーザーフォーム読み込み() Load UserForm1 End Sub
Unload【ｱﾝﾛｰﾄﾞ】ステートメント
ユーザーフォームを閉じるには、Unload【ｱﾝﾛｰﾄﾞ】ステートメントを使用します。Unload【ｱﾝﾛｰﾄﾞ】ステートメント実行するとユーザーフォームを閉じたあと、ユーザーフォームがメモリから削除されます。
Unload【ｱﾝﾛｰﾄﾞ】ステートメントの書式と設定値の説明
Unload オブジェクト
- オブジェクト（必須）
ユーザーフォームのオブジェクト名を指定します。または、オブジェクトが自分自身を参照するMe【ﾐｰ】キーワードを指定します。
Me【ﾐｰ】キーワードとは
Me【ﾐｰ】キーワードは、オブジェクトが自分自身を参照するキーワードです。
例えば、UserForm1のコードウィンドウ内で、Meキーワードを記述するとMeキーワードはUserFrom1を参照します。
UserFrom1を閉じるコードと解説
Private Sub CommandButton1_Click()
Dim 選択 As Integer
選択 = MsgBox("フォームを閉じます。", vbQuestion + vbOKCancel)
If 選択 = vbOK Then
Unload Me
End If
End Sub
ユーザーフォームコントロールにユーザーフォームを閉じるためのコマンドボタンを追加して
コマンドボタンをクリックしたときに発生するClick【ｸﾘｯｸ】イベントプロシージャにコードを記述します。
2行目【Dim 選択 As Integer】
MsgBox関数の第2引数Buttons【ﾎﾞﾀﾝｽﾞ】からの戻り値の値（Okボタンが押されたかCancelがおされたか）を格納する変数「選択」を整数型(Integer)で宣言します。
3行目【選択 = MsgBox(“フォームを閉じます。”, vbQuestion + vbOKCancel)】
MsgBox関数を使用してユーザーにメッセージを表示します。第2引数Buttons【ﾎﾞﾀﾝｽﾞ】に
問い合わせメッセージアイコンを表すvbQuestion【ﾌﾞｲﾋﾞｰｸｴｯｼｮﾝ】と「OK」ボタンと「キャンセル」ボタンを表すvbOKCancel【ﾌﾞｲﾋﾞｰｵｯｹｰｷｬﾝｾﾙ】を設定します。
クリックしたボタンの戻り値があるので、引数はカッコで囲み、戻り値を変数「選択」に代入します。
4行目【If 選択 = vbOK Then】
If【ｲﾌ】ステートメントを使用して、条件分岐します。MsgBox関数の戻り値が格納されている
変数「選択」がvbOk（値が1）のときを定義します。
5行目【Unload Me】
上記の条件分岐が成立したとき、つまり、MsgBox関数で「Ok」ボタンをクリックしたとき
Unload【ｱﾝﾛｰﾄﾞ】ステートメントでMe【ﾐｰ】キーワードで参照しているUserForm【ﾕｰｻﾞﾌｫｰﾑ】コントロールを閉じます。
実行結果
Hide【ﾊｲﾄﾞ】メソッド
ユーザーフォームを非表示にするには、Hide【ﾊｲﾄﾞ】メソッドを使用します。
ユーザーフォーム（UserForm1）上のコマンドボタン（CommandButton1)をクリックしたときにUserForm1を非表示にする場合は以下のように記述します。
コード例
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Hide【ﾊｲﾄﾞ】メソッドを実行した場合、ユーザーフォームはメモリからは削除されません。
表示しないユーザーフォームはUnload【ｱﾝﾛｰﾄﾞ】ステートメントを使用してメモリから削除しておきましょう。
Initialize【ｲﾆｼｬﾗｲｽﾞ】イベント
Initialize【ｲﾆｼｬﾗｲｽﾞ】イベントは、ユーザーフォームがメモリに読み込まれたあと、画面に表示される直前に発生するイベントです。
Initialize【ｲﾆｼｬﾗｲｽﾞ】イベントプロシージャーを使用すると、ユーザーフォームやユーザーフォームに設置されたコントロールなどの初期状態を設定することができます。
Initialize【ｲﾆｼｬﾗｲｽﾞ】イベントのコード例リンク
「コンボボックスにリストを設定する 選択された値を取得する」
QueryClose【ｸｴﾘｸﾛｰｽﾞ】イベント
ユーザーフォームを閉じる直前には、QueryClose【ｸｴﾘｸﾛｰｽﾞ】イベントが発生します。
イベントが発生したときに実行されるQueryClose【ｸｴﾘｸﾛｰｽﾞ】イベントプロシージャーを使用すると、ユーザフォームを閉じる直前の動作を設定することができます。
QueryClose【ｸｴﾘｸﾛｰｽﾞ】イベントプロシージャーを作成する手順
QueryClose【ｸｴﾘｸﾛｰｽﾞ】イベントプロシージャの書式と引数の説明
Private Sub UserForm_QueryClose( Cancel As Integer， CloseMode As Integer )
- Cancel 【ｷｬﾝｾﾙ】
QueryClose【ｸｴﾘｸﾛｰｽﾞ】イベントプロシージャ内で、引数Cancel【ｷｬﾝｾﾙ】にTrueを設定するとユーザーフォームを閉じる処理をキャンセルします。 - CloseMode【ｸﾛｰｽﾞﾓｰﾄﾞ】
引数CloseMode【ｸﾛｰｽﾞﾓｰﾄﾞ】には、ユーザーフォームを閉じようとした方法によってvbQueryClose列挙型の定数が格納されています。vbQueryClose列挙型 定数 値 内容 vbFormControlMenu 0 フォーム右上スミの「✕」をクリックして閉じようとした。 vbFormCode 1 コードを使用して閉じようとした。
フォーム右上スミの「✕」でフォームを閉じられなくするコード例
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "キャンセルボタンで閉じてください。"
Cancel = True
End If
End Sub
以上で、ユーザーフォームを操作する方法についての解説を終了します。ありがとうございました。
ユーザーフォームのプロパティについてはこちらをご覧ください。
その他のユーザーフォームのイベントについてはこちらをご覧ください。