Excel VBA:ユーザーフォームを全画面表示する (4 つの簡単な方法)

多くの場合、ユーザーフォーム 私たちが生成するものは非常に大きく、小さな場所に多くの情報が含まれています。それらすべてがぎゅうぎゅう詰めの場所にあると、ユーザーフォームの明瞭さが損なわれる可能性があります . ユーザーフォーム を表示する方法を知りたい場合 VBA を使用して Excel で全画面表示する場合は、この記事が役立つ場合があります。この記事では、 ユーザーフォーム を表示する方法について説明します 詳細な説明を含む VBA を使用した Excel の全画面表示。

この練習用ワークブックを以下からダウンロードしてください。

Excel で VBA を使用して全画面表示でユーザー フォームを表示する 4 つの簡単な方法

以下のデータセットを使用して、 ユーザーフォーム を表示する方法を示します。 Excel VBAを使用してフルスクリーンで。ファイルは xlsm で保存する必要があります 通常の xlsx の代わりにフォーマット

1. xlMaximized の使用

以下の VBA を使用します 表示するコード ユーザーフォーム フルスクリーンで

手順

• まず、[開発者] をクリックします。 タブをクリックし、Visual Basic を選択します .

• Visual Basic を開いた後 ウィンドウで、[挿入] をクリックします .
• 次のステップで、[ユーザーフォーム] を選択します ドロップダウン メニューから。

• その後、長方形のウィンドウ ボックスが表示されます。
• プロパティについて ウィンドウの名前を変更し、そのウィンドウにキャプションを付けることができます。
• これが ユーザーフォーム を使用するためのボックスです 、さまざまな形状、ボタン、チェックボックスなどを追加して、それらをシートにリンクできます。

• そのボックスをダブルクリックします。
• エディタ ウィンドウが表示されます。そのエディタ ウィンドウに、以下のコードを貼り付けます。

Private Sub UserForm_Activate()
Application.WindowState = xlMaximized
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
End Sub

• コードを入力したら、[保存] をクリックします。 アイコンをクリックし、ユーザーフォーム を 2 回クリックします。
• メインの ユーザーフォーム に移動します
• 説明のために ユーザーフォーム にいくつかの要素を追加します
• いくつかの テキスト ボックス を追加しました およびいくつかのコマンド ボタン 、入力ボックス付き。
• 次に実行をクリックします 画像に表示されているボタン

• 実行をクリックする コマンドを実行すると、ユーザーフォーム が表示されます
• ユーザーフォームの後 が実行されると、 ユーザーフォーム が 現在、画面全体を占めています。下の画像に示すとおりです。

🔎 VBA コードの内訳

• まず、ユーザーフォーム を選択します オブジェクトと Activate として
• 次の行で、WindowState 現在実行中のアプリケーションのウィンドウ状態を示します。このコマンド ラインの条件を xlMaximized に設定する アプリケーションのウィンドウを最大化します。
• 次の行では、アプリケーション ウィンドウを選択します。
• 次に、4 つの行を入力します。これらすべてにより、ウィンドウが上下左右の方向に最大化されます。
• 最後に、コードのサブ手順を終了します。

2.高さと幅の調整

以下の VBA を使用します 表示するコード ユーザーフォーム フルスクリーンで

手順

• まず、[開発者] をクリックします。 タブをクリックし、Visual Basic を選択します .

• Visual Basic を開いた後 ウィンドウで、[挿入] をクリックします .
• 次のステップで、[ユーザーフォーム] を選択します ドロップダウン メニューから

• その後、長方形のウィンドウ ボックスが表示されます。
• プロパティについて ウィンドウの名前を変更し、そのウィンドウにキャプションを付けることができます。
• これが ユーザーフォーム を使用するためのボックスです 、さまざまな形状、ボタン、チェックボックスなどを追加して、それらをシートにリンクできます。

• そのボックスをダブルクリックします。
• エディタ ウィンドウが表示されます。そのエディタ ウィンドウに、以下のコードを貼り付けます。

Private Sub UserForm_Activate()
Me.Height = Application.Height
Me.Width = Application.Width
Me.Left = Application.Left
Me.Top = Application.Top
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
End Sub

• コードを入力したら、[保存] をクリックします。 アイコンをクリックし、ユーザーフォーム を 2 回クリックします。
• メインの ユーザーフォーム に移動します
• 説明のために ユーザーフォーム にいくつかの要素を追加します ウィンドウに テキスト ボックス をいくつか追加しました およびいくつかのコマンド ボタン 、入力ボックス付き。
• 次に実行をクリックします 画像に表示されているボタン

• 実行をクリックする コマンドを実行すると、ユーザーフォーム が表示されます
• ユーザーフォームの後 が実行されると、 ユーザーフォーム が 現在、画面全体を占めています。 画像に示すように

🔎 VBA コードの内訳

• まず、ユーザーフォーム を選択します オブジェクトと Activate として
• 次の 4 行で、ウィンドウの高さ、幅の左右の寸法を取得し、高さとして保存します。 、Me.Width 、Me.Left 、私.トップ
• コードのサブ手順を終了します。
• まず、ユーザーフォーム を選択します オブジェクトと Initialize として
• 次に、次の行は、ウィンドウの格納された値をすべての方向で最大化します。これにより、ウィンドウがフルスクリーンで最大化されます。これにより、ウィンドウは上下左右の方向で最大化されます。 .
• 最後に、コードのサブ手順を終了します。

3. With ステートメントの使用

以下に示す VBA コードは、小さな Userform を変換します ウィンドウをフルスクリーンに ウィンドウ。

手順

• まず、[開発者] をクリックします。 タブをクリックし、Visual Basic を選択します .

• Visual Basic を開いた後 ウィンドウで、[挿入] をクリックします .
• 次のステップで、[ユーザーフォーム] を選択します ドロップダウン メニューから。

• その後、長方形のウィンドウ ボックスが表示されます。
• プロパティについて ウィンドウの名前を変更し、そのウィンドウにキャプションを付けることができます。
• これが ユーザーフォーム を使用するためのボックスです 、さまざまな形状、ボタン、チェックボックスなどを追加して、それらをシートにリンクできます。

• そのボックスをダブルクリックします。
• エディタ ウィンドウが表示されます。そのエディタ ウィンドウに、以下のコードを貼り付けます。

Private Sub UserForm_Initialize()
    With Fullscreen_form_3
        .Height = Application.Height
        .Width = Application.Width
    End With
End Sub

• コードを入力したら、[保存] をクリックします。 アイコンをクリックし、ユーザーフォーム を 2 回クリックします。
• メインの ユーザーフォーム に移動します
• ここで説明のために、いくつかの要素を ユーザーフォーム に追加します
• いくつかの テキスト ボックス を追加しました およびいくつかのコマンド ボタン 、入力ボックス付き .
• 次に実行をクリックします 画像に表示されているボタン

• 実行をクリックする コマンドを実行すると、ユーザーフォーム が表示されます
• ユーザーフォームの後 が実行されると、 ユーザーフォーム が 現在、画面全体を占めています。 画像に示すように

🔎 VBA コードの内訳

• まず、ユーザーフォーム を選択します オブジェクトと Initialize として
• 次の行でユーザーフォーム アプリケーション ウィンドウを選択します。
• 次に、アプリケーションの高さと幅を .Height に保存しました。 および .幅
• 最後に、コードのサブ手順を終了します。

4.変数の使用

次の VBA コードは小さな Userform を展開します フルスクリーンを占有するパネル。 .

手順

• まず、[開発者] をクリックします。 タブをクリックし、Visual Basic を選択します .

• Visual Basic を開いた後 ウィンドウで、[挿入] をクリックします .
• 次のステップで、[ユーザーフォーム] を選択します ドロップダウン メニューから

• その後、長方形のウィンドウ ボックスが表示されます。
• プロパティについて ウィンドウの名前を変更し、そのウィンドウにキャプションを付けることができます。
• これが ユーザーフォーム を使用するためのボックスです 、さまざまな形状、ボタン、チェックボックスなどを追加して、それらをシートにリンクできます。

• そのボックスをダブルクリックします。
• エディタ ウィンドウが表示されます。そのエディタ ウィンドウに、以下のコードを貼り付けます。

Private Sub UserForm_Initialize()
Dim xlws As XlWindowState
xlws = Application.WindowState
Application.WindowState = xlMaximized
With Fullscreen_form_4
    .Top = Application.Top
    .Left = Application.Left
    .Width = Application.Width
    .Height = Application.Height
    .Show
End With
Application.WindowState = xlws
End Sub

• コードを入力したら、[保存] をクリックします。 アイコンをクリックし、ユーザーフォーム を 2 回クリックします。
• メインの ユーザーフォーム に移動します
• 説明のために ユーザーフォーム にいくつかの要素を追加します
• いくつかの テキスト ボックス を追加しました およびいくつかのコマンド ボタン 、入力ボックス付き .
• 次に実行をクリックします 画像に表示されているボタン

• 実行をクリックする コマンドを実行すると、ユーザーフォーム が表示されます
• ユーザーフォームの後 が実行されると、 ユーザーフォーム が 現在、画面全体を占めています。 画像に示すように

🔎 VBA コードの内訳

• まず、ユーザーフォーム を選択します オブジェクトと Initialize として
• 次の行で xlws を宣言します XlWindowState の変数として 入力してください。
• 次の行で、WindowState 現在実行中のアプリケーションのウィンドウ状態を示します。 xlws を入れます 現在の窓の状態として。
• WindowState の条件の設定 コマンド ラインを xlMaximized として アプリケーションのウィンドウを最大化します。
• 次の行では、アプリケーション ウィンドウを選択します。
• 次に、4 つの行を入力します。これらすべてにより、ウィンドウが上下左右の方向に最大化されます。
• 最後に、コードのサブ手順を終了します。

結論

要約すると、 ユーザーフォーム をどのように表示できるかという問題です 全画面表示への回答は、ここで 4 つの異なる VBA マクロ によって解決されます コード例。 VBA マクロのコードはかなり時間効率が良いですが、 メソッドには事前のVBA関連が必要です ゼロから理解するための知識

この問題については、これらの方法を実践できるマクロ対応のワークブックが添付されています。

コメント欄から質問やフィードバックをお気軽にお寄せください。 Exceldemy を改善するための提案 コミュニティは非常に高く評価されます