Excelブックの左下に表示されているシート見出しを非表示/表示にする方法について説明します。
【目次】
構文
記述方法は、以下の通りとなります。
=======================================================================
Windows(”[ブック名]”).DisplayWorkbookTabs = False
Windows(”[ブック名]”).DisplayWorkbookTabs = True
=======================================================================
[説明]:
シート見出しを非表示にするには「Windows(”[ブック名]”).DisplayWorkbookTabs = False」と記述し、表示するには「Windows(”[ブック名]”).DisplayWorkbookTabs = True」と記述します。[ブック名]にはシート見出しを非表示又は表示したいブック名を記述します。また、ブック名は「”」(ダブルクォーテーション)で囲みます。Falseはシート見出しを非表示にするとの意味となり、Trueはシート見出しを表示するとの意味になります。内容を纏めると、「[ブック名]で記述したブックのシート見出しを非表示又は表示して下さい。」との意味になります。
[記述例]:
Windows("Book1.xlsm").DisplayWorkbookTabs = False
Windows("Book1.xlsm").DisplayWorkbookTabs = True
使い方
使い方について、具体的に説明していきます。
シート見出しを非表示にする方法
シート見出しを非表示にする方法について説明します。
[記述例]:
※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Windows("Book1.xlsm").DisplayWorkbookTabs = False
MsgBox "シート見出しを非表示にしました。"
End Sub
-------------------------------------------------
内容は、「Book1.xlsmブックのシート見出しを非表示にし、最後にMsgBoxで”シート見出しを非表示にしました。”のメッセージを表示して下さい。」との意味になります。
[実行例]:
(実行前)
※ブック内のSheet1シート・Sheet2シート・Sheet3シートが見えています。
(実行後)
※シートの見出しを非表示にしたため、Sheet1シート・Sheet2シート・Sheet3シートが見えなくなりました。
シート見出しを非表示にする方法についての説明は以上です。
シート見出しを表示にする方法
シート見出しを表示にする方法について説明します。
[記述例]:
※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Windows("Book1.xlsm").DisplayWorkbookTabs = True
MsgBox "シート見出しを表示しました。"
End Sub
-------------------------------------------------
内容は、「Book1.xlsmブックのシート見出しを表示にし、最後にMsgBoxで”シート見出しを表示しました。”のメッセージを表示して下さい。」との意味になります。
[実行例]:
(実行前)
※シートの見出しが非表示となっているため、シートは見えていない状態です。
(実行後)
※シートの見出しを表示としたため、Sheet1シート・Sheet2シート・Sheet3シートが見える様になりました。
シート見出しを表示にする方法についての説明は以上です。
おわりに
今回はシート見出しを非表示/表示する方法について説明しました。Excelで業務ツールを作成しようとした場合等、シートを表示させたくないケースがあります。その様な場合に活用してみて下さい。