教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA シート操作】シート見出しを非表示/表示(DisplayWorkbookTabs)にするにはどうすればいいの?教えて!

f:id:m_kbou:20200418155823p:plain

Excelブックの左下に表示されているシート見出しを非表示/表示にする方法について説明します。

 

 

構文

記述方法は以下の通りとなります。

Windows(”[ブック名]”).DisplayWorkbookTabsFalse

Windows(”[ブック名]”).DisplayWorkbookTabsTrue

[説明]:

シート見出しを非表示にするには「Windows(”[ブック名]”).DisplayWorkbookTabs = False」と記述し、表示するには「Windows(”[ブック名]”).DisplayWorkbookTabs = True」と記述します。[ブック名]にはシート見出しを非表示又は表示したいブック名を記述します。また、ブック名は「”」(ダブルクォーテーション)で囲みます。Falseシート見出しを非表示にするとの意味となり、Trueシート見出しを表示するとの意味になります。内容を纏めると、「[ブック名]で記述したブックのシート見出しを非表示又は表示して下さい。」との意味になります。

[記述例]:

Windows("Book1.xlsm").DisplayWorkbookTabs = False
Windows("Book1.xlsm").DisplayWorkbookTabs = True

 

使い方

使い方について具体的に説明していきます。

シート見出しを非表示にする方法

シート見出しを非表示にする方法について説明します。

[プログラミング例]:

Sub サンプル()
    Windows("Book1.xlsm").DisplayWorkbookTabs = False
    MsgBox "シート見出しを非表示にしました。"
End Sub

内容は、「Book1.xlsmブックのシート見出しを非表示にし、最後にMsgBoxで”シート見出しを非表示にしました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210301063845p:plain

※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この時点ではSheet1・Sheet2・Sheet3シートは表示されています。<実行>ボタンをクリックします。(※ボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210301063908p:plain

②結果は以下の様になります。シートの見出しを非表示にしたため、Sheet1・Sheet2・Sheet3シートが見えなくなりMsgBoxで「シート見出しを非表示にしました。」が表示されます。

f:id:m_kbou:20210301063922p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

シート見出しを非表示にする方法についての説明は以上です。

 

シート見出しを表示にする方法

シート見出しを表示にする方法について説明します。

[プログラミング例]:

Sub サンプル()
    Windows("Book1.xlsm").DisplayWorkbookTabs = True
    MsgBox "シート見出しを表示しました。"
End Sub

内容は、「Book1.xlsmブックのシート見出し表示にし、最後にMsgBoxで”シート見出しを表示しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210301070301p:plain

※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この時点ではシートの見出しが非表示となっているため、シートは見えていません。<実行>ボタンをクリックします。(※ボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210301070318p:plain

②結果は以下の様になります。シートの見出しを表示にしたため、Sheet1・Sheet2・Sheet3シートが見える様になり、MsgBoxで「シート見出しを表示しました。」が表示されます。

f:id:m_kbou:20210301070334p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

シート見出しを表示にする方法についての説明は以上です。

 

おわりに

今回はシート見出しを非表示/表示する方法について説明しました。Excelで業務ツールを作成しようとした場合等、シートを表示させたくないケースがあります。その様な場合に活用してみて下さい。