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 VBAで他のプログラムを実行する際にウィンドウを最小化する

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

Excel VBAでフィルタの絞り込みを解除する

ExcelVBAを使って、フィルタで絞り込んだ内容を解除する方法です。 VBAコード If Worksheets(“シート名”).FilterMode Then Workshe…続きを読む

Excel:ハイパーリンクで別ファイルを開く

Excelにおいて、別ファイルにハイパーリンクを付けて、リンクをクリックすると指定したファイルが開くようにします。 通常のハイパーリンクの作成の場合だと、セルの上で右クリック→「リンク」をクリックして…続きを読む

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

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

Excel:起動時に「MICROSOFT365を試す」と表示される

MicrosoftExcel2016を使っていて、あるときから起動時に「MICROSOFT365を試す 1TBのクラウドストレージで、ファイルを安全に保護し、ファイルにいつでもアクセスできるようになり…続きを読む

Excel:保存先の場所を常にデスクトップにする

Microsoft Excel2019で新規に保存をしようとするとOne Driveなどが最初に候補にあがってきてしまい、コンピュータ上に保存したいときに、いちいちデスクトップを指定するのに手間取りま…続きを読む

Excelでセルに入力できる文字数制限を設定する

Excelで、セルに入力できる字数の制限を設定する方法です。 全角・半角問わず字数制限する メニューから「データ」を選択し「データの入力規則」をクリックします。 データの入力規則設定画面で、「設定」タ…続きを読む

Excel VBA:フィルタを操作して絞り込む

Excel VBAでフィルタ操作をして、行を絞り込みむ方法です。 コード Sub autoFilter(Retsu, Atai) Worksheets(“シート名”).Rang…続きを読む

Excel VBA:指定した列を非表示にする

Excel VBAで、予め指定した列を非表示にします。 コード hiddenColumn = Array(3, 4, 5, 6) For i = 0 To UBound(hiddenColumn) W…続きを読む

Excel VBA:メールを送信する

Excel VBAからメールを送信するボタンをつくります。 パスワードロックをかけたブックを利用していて、パスワードがわからなくなったらメールを送信してパスワードを教える機能を付けようと思い、調べまし…続きを読む