第21回.ユーザーフォームの各種イベント
ユーザーフォーム入門として基礎から解説します。
ユーザーフォームに対する操作（アクション）で発生するイベントの一覧です、
ユーザーフォームのイベント一覧
| イベント | 構文 | 説明 |
| Activate | UserForm_Activate() | Activate イベントは、オブジェクトがアクティブなウィンドウになったときに発生します。Deactivate イベントは、オブジェクトがアクティブなウィンドウではなくなったときに発生します。 |
| AddControl | UserForm_AddControl(ByVal Control As MSForms.Control) | フォーム、 Frame 、または MultiPage の Page にコントロールが追加されたときに発生します。 |
| BeforeDragOver | UserForm_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Control As MSForms.Control, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal State As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer) | ドラッグ アンド ドロップ操作の実行中に発生します。 |
| BeforeDropOrPaste | UserForm_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Control As MSForms.Control, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer) | ユーザーがオブジェクトにデータをドロップするか貼り付けようとすると発生します。 |
| Click | UserForm_Click() | クリックされたときに発生します。 |
| DblClick | UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean) | DblClick イベントは、マウス ポインターをオブジェクトの上に置き、システムで設定されているダブルクリックの間隔内に、マウスの左ボタンを押してから離す動作を 2 回続けて行ったときに発生します。 |
| Deactivate | UserForm_Deactivate() | フォームがフォーカスを失い、アクティブでなくなると発生します。 |
| Error | UserForm_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean) | Error イベントは、フォームやレポートにフォーカスがあるときに、Access で実行時エラーが検出されたときに発生します。 |
| Initialize | UserForm_Initialize() | UserForm が読み込まれた後で表示される前に発生します。 |
| KeyDown | UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) | ユーザーがキーを押すと発生します。 |
| KeyPress | UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) | ユーザーが ANSI キーを押すと発生します。 |
| KeyUp | UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) | ユーザーがキーを離すと発生します。 |
| Layout | UserForm_Layout() | 子コントロールの位置を変更する必要があるときに発生します。 |
| MouseDown | UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) | ユーザーがマウス ボタンを押したときに発生します。 |
| MouseMove | UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) | ユーザーがマウスを動かしたときに発生します。 |
| MouseUp | UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) | ユーザーがマウス ボタンを離したときに発生します。 |
| QueryClose | UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) | UserForm が閉じる前に発生します。 |
| RemoveControl | UserForm_RemoveControl(ByVal Control As MSForms.Control) | コントロールが コンテナーから削除されたときに発生します。 |
| Resize | UserForm_Resize() | フォームを開いたとき、およびフォームのサイズが変更されるたびに、 Resizeイベントが発生します。 |
| Scroll | UserForm_Scroll(ByVal ActionX As MSForms.fmScrollAction, ByVal ActionY As MSForms.fmScrollAction, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle) | マウスまたはキーボードの操作でスクロール ボックスが移動したときに発生します。 |
| Terminate | UserForm_Terminate() | オブジェクトを参照するすべての 変数が Nothing に設定されて、オブジェクトのインスタンスへの参照がメモリからすべて削除されるか、オブジェクトへの最後の参照が スコープ外になったときに発生します。 |
| Zoom | UserForm_Zoom(Percent As Integer) | Zoom プロパティの値が変更されたときに発生します。 |
太字のイベントが良く使われるイベントになります。
それ以外は、特殊な機能を実装したい場合に限られます。
QueryCloseの引数
UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ユーザー フォームに未完了のタスクが含まれていないかどうかを確認するために使用されます。
CloseModeの定数
| 引数 | 説明 |
| cancel | 整数型 (Integer) の値を指定します。 この引数をTrueに設定すると、読み込み済みのすべてのユーザー フォームで QueryClose イベントが停止され、 UserFormとアプリケーションを閉じられなくなります。 |
| closemode | QueryClose イベントの原因を示す値または定数です。 |
CloseModeの定数
| 定数 | 値 | 内容 |
| vbFormControlMenu | 0 | ユーザー フォームのコントロール メニューの [閉じる] がクリックされました。 |
| vbFormCode | 1 | コードから Unload ステートメントが起動されました。 |
| vbAppWindows | 2 | 現在の Microsoft Windows のオペレーティング環境セッションが終了しました。 |
| vbAppTaskManager | 3 | Windows のタスク マネージャによって、アプリケーションが閉じられました。 |
イベントの発生順について
ユーザーフォームを表示する時
以下の順でイベントが発生します。
UserForm_Initialize
↓
UserForm_Activate
↓
UserForm_Activate
ユーザーフォームを閉じる時
以下の順でイベントが発生します。
UserForm_QueryClose
↓
UserForm_Terminate
↓
UserForm_Terminate
同じテーマ「ユーザーフォーム入門」の記事
第18回.２段階のコンボボックス
第19回.数値専用のテキストボックス
第20回.テキストボックスの各種イベント
第21回.ユーザーフォームの各種イベント
第22回.コントロールの動的作成
第23回.イベントプロシージャーの共通化
第24回.イベントプロシージャーの共通化（Enter,Exit）
第25回.簡易音楽プレーヤーの作成
第26回.プログレスバーを自作する
第27回.インクリメンタルサーチの実装
第28回.テンキーのスクリーンキーボード作成
新着記事NEW ・・・新着記事一覧を見る
ListBox・ComboBoxをマウスホイール対応させる｜ユーザーフォーム入門(2026-08-09)
VBA モジュールエクスポートツール｜モジュールを選別して一括出力｜VBAサンプル集(2026-08-06)
「SUMIFSで動くのにXLOOKUPでエラー？」型不一致の関数別挙動｜エクセル関数応用(2026-08-03)
生成AIが暴いた「VBAオワコン説」の盲点｜問われるのは言語ではなく評価軸｜エクセル雑感(2026-07-04)
【ITとは何か】Excel・VBAを学ぶ前に知っておきたい「4つの本質」｜エクセル雑感(2026-06-24)
2つのシート名を交換するVBAをGeminiに作らせてみた。｜VBA技術解説(2026-05-22)
ヘッダーに合わせて列をソートして値貼り付けするスマートな方法｜VBAサンプル集(2026-05-20)
4大分岐関数の使い分け（IF/IFS/SWITCH/CHOOSE）｜エクセル入門(2026-05-19)
Excel主要関数 習得難易度 10段階（文字列・日付除く）｜エクセル雑感(2026-04-27)
Excelのシート5分類｜エクセル雑感(2026-03-27)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.マクロとは？VBAとは？VBAでできること｜VBA入門
8.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
9.メッセージボックス(MsgBox関数)｜VBA入門
10.セルのクリア（Clear,ClearContents）｜VBA入門
- ホーム
- マクロVBA応用編
- ユーザーフォーム入門
- ユーザーフォームの各種イベント
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.