Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ワークシートの非表示・再表示（Visible プロパティ）

2015/09/30

ワークシートの表示・非表示

ワークシートを非表示にしたり、非表示にしたワークシートを再度表示させるには、Visible プロパティ を設定します。

【書式】

object.Visible = boolean

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
boolean ・・・ False を指定すると object で指定したワークシートを非表示にします。True に指定すると object で指定したワークシートが非表示になっている場合、再表示します。

ブックにシートが１つしかない場合、そのシートを非表示にしようとするとエラーが発生します。

XlSheetVisibility 列挙型 を指定する
引数 boolean には、XlSheetVisibility 列挙型 の定数を指定することもできます。

定数	値	内容
xlSheetVeryHidden	2	ワークシートを非表示（VBE プロパティウインドウまたは、マクロで、Visible プロパティの設定を変更する以外、再表示することはできません）Excel で、再表示不可
xlSheetHidden	0	ワークシートを非表示（False と同じ）Excel で、再表示可能
xlSheetVisible	-1	ワークシートを再表示（True と同じ）

Visible プロパティ使用例

サンプルVBAソース 1

　
Sub Sample_SheetVisible1()
        
    '「Sheet3」を非表示（Excel から再表示はできない）
    Dim w As Worksheet
    Set w = Worksheets("Sheet3")
        
    w.Visible = xlSheetVeryHidden


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

　

Sub Sample_SheetVisible1()

'「Sheet3」を非表示（Excel から再表示はできない）

Dim w As Worksheet

Set w = Worksheets("Sheet3")

w.Visible = xlSheetVeryHidden

End Sub

　

サンプルVBAソース 2

　
Sub Sample_SheetVisible2()

    '現在、非表示のシートをすべて再表示する
    
    Dim w As Worksheet
    
    For Each w In Worksheets
        
        w.Visible = True
        
    Next

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

　

Sub Sample_SheetVisible2()

'現在、非表示のシートをすべて再表示する

Dim w As Worksheet

For Each w In Worksheets

w.Visible = True

Next

End Sub

　

実行結果

サンプルVBAソース実行前

サンプルVBAソース 1 実行後

サンプルVBAソース 2 実行後

- ブック・シートの操作 VBA基本, Visible プロパティ, Worksheet オブジェクト, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: WorksheetView オブジェクト

WorkSheetView オブジェクト行列番号や枠線の表示・非表示の設定など …

: セルのコメントを印刷（PageSetup.PrintComments プロパティ）

PageSetup.PrintComments プロパティ PageSetup. …

: ブック作成時のシート数の取得・設定（SheetsInNewWorkbook プロパティ）

SheetsInNewWorkbook プロパティ Excel で新規ブックに自 …

: 並べて比較（CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide）

並べて比較（CompareSideBySideWith メソッド） Compar …

: 印刷の用紙サイズを設定（PageSetup.PaperSize プロパティ）

PageSetup.PaperSize プロパティ PageSetup.Pape …

: 印刷の先頭のページ番号を設定（PageSetup.FirstPageNumber プロパティ）

PageSetup.FirstPageNumber プロパティ PageSetu …

: 印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage

偶数ページに別のヘッダーおよびフッターを設定偶数ページのヘッダーおよびフッター …

: 新規ブック作成（Add メソッド）

新規にワークブックを作成する Workbooks コレクションの Add メソッ …

: ワークシートの数を数える（Count プロパティ）

Count プロパティ指定したWorksheets コレクションやSheets …

: ステータスバーにメッセージを表示（StatusBar プロパティ）

StatusBar プロパティ StatusBar プロパティで、ステータスバー …

PREV: ワークシートをファイルに保存する（SaveAs メソッド）
NEXT: 印刷・印刷プレビュー（PrintOut メソッド、PrintPreview メソッド）