Excel VBAブックを開いたときにユーザーフォームを表示する

ブックを開いた時にユーザーフォームを表示する方法

ブックが開いたときに、ユーザーフォームを表示するには、ThisWorkbook【ﾃﾞｨｽﾜｰｸﾌﾞｯｸ】モジュールにワークブックが開いたときに発生するWorkbook_Open【ﾜｰｸﾌﾞｯｸｵｰﾌﾟﾝ】イベントプロシージャーにUserForm【ﾕｰｻﾞﾌｫｰﾑ】コントロールオブジェクトのShow【ｼｮｰ】メソッドを使用して、ブックが開いたときにユーザーフォームを表示させます。

ThisWorkbookモジュールの使い方手順

開発タブをクリックします。
「Visual Basic」ボタンをクリックします。

「ThisWorkbook」をクリックします。

ダウンリストボタンをクリックします。

Workbookを選択します。

ダウンリストボタンをクリックします。

「Open」を選択します。

Openイベントのプロシージャが自動で作成されます。

ここにコードを記述します。

Show【ｼｮｰ】メソッド

ユーザーフォームを表示するには、UserForm【ﾕｰｻﾞﾌｫｰﾑ】コントロールオブジェクトのShow【ｼｮｰ】メソッドを使用します。

Show【ｼｮｰ】メソッドの書式と設定値(引数)の説明

[]内は省略可能です。
オブジェクト.Show[(Modal)]

オブジェクト（必須）
ユーザーフォームコントロールオブジェクトのオブジェクト名を指定します。

Modal【ﾓｰﾀﾞﾙ】（省略可能）
ユーザーフォームの表示状態をFormShowConstants列挙型の定数または、値で指定します。省略した場合は、既定値のvbModalが指定され、ユーザーフォーム以外の操作ができない。モーダル状態でユーザーフォームが開きます。

定数	値	内容
vbModal 【ﾌﾞｲﾋﾞｰﾓｰﾀﾞﾙ】	0	エクセルの操作をできない状態にしてユーザーフォームを開きます。
vbModeless 【ﾌﾞｲﾋﾞｰﾓｰﾄﾞﾚｽ】	1	エクセルの操作ができる状態でユーザーフォームを開きます。

ブックが開いたときにユーザーフォーム1をモーダルで表示するコード例

Private Sub Workbook_Open()
UserForm1.Show 
End Sub

ブックが開いたときにユーザーフォーム1をモードレスで表示するコード例

Private Sub Workbook_Open()
UserForm1.Show vbModeless
End Sub

StartUpPosition【ｽﾀｰﾄｱｯﾌﾟﾎﾟｼﾞｼｮﾝ】プロパティ

ユーザーフォームを表示する位置を指定するには、UserForm【ﾕｰｻﾞﾌｫｰﾑ】コントロールオブジェクトのStartUpPosition【ｽﾀｰﾄｱｯﾌﾟﾎﾟｼﾞｼｮﾝ】プロパティを使用します。

StartUpPosition【ｽﾀｰﾄｱｯﾌﾟﾎﾟｼﾞｼｮﾝ】プロパティの書式と設定値の説明

オブジェクト.StartUpPosition = 設定値

オブジェクト（必須）
ユーザーフォームコントロールオブジェクトのオブジェクト名を指定します。
設定値（必須）
以下の表示場所を表す値を設定します。
値内容
0 Manual　初期値を設定しません。
1 CenterOwner ユーザーフォームが属する項目の中央
2 CenterScreen　画面全体の中央
3 WindowsDefault　画面の左上隅

値	内容
0	Manual　初期値を設定しません。
1	CenterOwner ユーザーフォームが属する項目の中央
2	CenterScreen　画面全体の中央
3	WindowsDefault　画面の左上隅

画面の左上隅にモードレスでユーザーフォームを開くコード例

Private Sub Workbook_Open()
UserForm1.StartUpPosition = 3
UserForm1.Show vbModeless
End Sub

実行結果

指定したポイントにモードレスでユーザーフォームを表示するコード例

StartUpPositionが0の場合は、TopプロパティとLeftプロパティを使用して表示位置をポイント単位で指定できます。

Private Sub Workbook_Open()
 UserForm1.StartUpPosition = 0
 UserForm1.Top = Application.Top + 300
 UserForm1.Left = Application.Left + 700
 UserForm1.Show vbModeless
End Sub

実行結果

以上でブックを開いたときにユーザーフォームを表示する方法の解説を終了します。
ありがとうございました。