HOME技術ExcelExcelで起動時にフォームのみ表示する

Excelで起動時にフォームのみ表示する

Excelで起動時にフォームを表示し、Excelそのものの表画面は非表示にする方法です。

起動時にフォームを表示する

「開発」→「コードの表示」から「Microsoft Visual Basic for Applications」を起動します。

「挿入」→「ユーザーフォーム」でフォームをつくります。
フォームの名前を「menu」とします。

VBAProject→「Microsoft Excel Objects」→「ThisWorkbook」を右クリックし「コードの表示」をクリックしてコード編集画面を表示します。
以下のコードを入力します。

Private Sub Workbook_Open()
menu.Show
End Sub

Workbook_Open()という名前のプロシージャを作成すると、ワークブックが開いたときに呼び込まれます。
この中に、[フォーム名].Showと書くと、フォームを表示します。

フォームが表示されたときにExcel本体を非表示にする

VBAProject→「フォーム」→「menu」を右クリックして、「コードの表示」をクリックします。

コード編集画面に以下のコードを書きます。

Private Sub UserForm_Initialize()
Application.Visible = False
End Sub

UserForm_Initialize()というプロシージャ名にすると、フォームが表示されるときに呼び込まれます。
Application.VisibleをFalseにすると、Excel本体が非表示になります。

フォームを閉じたときにExcel本体を表示する

menuのコード編集画面に、以下を追加します。

Private Sub UserForm_Terminate()
Application.Visible = True
End Sub

UserForm_Terminate()というプロシージャ名にすると、フォームを閉じたときに呼び込まれます。
Application.Visible = Trueにすると、Excel本体が表示されます。

関連記事

Excelで数字をコピーしたときに連番にならない

Excelで数字が入力されているセルの右下にマウスカーソルを合わせて、下にコピーしていくと、通常は数字が1つずつ足された連番の値でコピーされていきます。 それが何度やっても、何をやっても連番にならなか…続きを読む

Excelでワークシートを追加しようとすると「名前が変更されたか、移動や削除が行われた可能性があります」というエラーが表示される

Excelでワークシートを追加しようとしたら、「****\ワークシート.xlsxが見つかりません。名前が変更されたか、移動や削除が行われた可能性があります。」と表示されて、ワークシートを追加することが…続きを読む

Excelで開発タブを表示する

ExcelでVBAをつくるときに「開発」メニューを使いますが、最初は表示されていません。 「開発」を表示するには、Excelを起動して、「ファイル」→「オプション」→「リボンのユーザー設定」から、「リ…続きを読む

Excelで計算式を入れたセルに計算結果が反映されない

Excelで計算式を予め設定していたにもかかわらず、数値を入力してもそのセルに計算結果が反映されない時があります。 通常、自動計算する設定になっていますが、これが手動計算に変わっていることが原因です。…続きを読む

Excel VBAで他のプログラムを実行する際にウィンドウを最小化する

Excel VBAで他のプログラムを実行した際に、実行しているプログラムのウィンドウを最小化表示にする方法です。 CreateObject(“WScript.Shell”).R…続きを読む

Excel VBAでシートを並び替える

ExcelVBAでシート内のデータを並び替える方法です。 VBAのコード Endrow  = Worksheets(SheetName).Range(“A1”).End(xlD…続きを読む

Excelで複数部印刷しようとしても指定部数印刷されない

Excelを開いて複数部印刷しようとしても、指定部数が印刷されない不具合への対処法です。 例えば、5部印刷しようとしても、1部ないしは2部しか印刷されません。 そして、エラーメッセージとして「【プリン…続きを読む

Excel VBAで「はい」「いいえ」の条件分岐をする

Excel VBAでメッセージ(質問)を表示して、ユーザに「はい」「いいえ」の選択をさせて、その結果で処理を分岐させる方法です。 if文による条件分岐 条件分岐には以下のようなif文を使います。 If…続きを読む

Excel VBA:フォルダを開く

Excelでボタンをクリックしたらフォルダを開くようにするVBAです。 Shell EXPLORERPATH & OPENFOLDER , vbNormalFocus EXPLORERPATH…続きを読む

Excelのフォームのタブオーダーを指定する

Excelでフォームを設定し、部品を複数配置していると、タブキーやEnterキーを押すと次の部品にフォーカスを飛ばすことができます。 この順序が意図したとおりでない場合に、自分で設定する方法を調べまし…続きを読む