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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

余白を設定する余白を設定する単位は、pt（ポイント：約 0.03528 cm） …

: Excel を全画面表示（DisplayFullScreen プロパティ）

DisplayFullScreen プロパティ DisplayFullScree …

: アウトライン記号の表示・非表示（DisplayOutline プロパティ）

アウトライン記号の表示・非表示（DisplayOutline プロパティ） Di …

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

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

: ウィンドウ枠の固定（FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ）

ウィンドウ枠の固定と解除ウィンドウ枠を固定するには FreezePanes プ …

: ブックを開く（Open メソッド）

ブックを開く（Open メソッド）ブックを開くには、Workbooks コレク …

: 別のブックのマクロを実行（Run メソッド）

別のブックのマクロを実行別のブックのマクロを実行するには、Run メソッドを …

: 印刷設定（ヘッダーに画像を指定）LeftHeaderPicture, CenterHeaderPicture, RightHeaderPicture

ヘッダーに画像を表示するには LeftHeaderPicture プロパティ、C …

: スクロールバーの表示・非表示（DisplayHorizontalScrollBar,DisplayVerticalScrollBar）

スクロールバーの表示・非表示の設定 Windows オブジェクトの Displ …

: 印刷位置を中央に設定（CenterHorizontally, CenterVertically）

PageSetup.CenterHorizontally プロパティ PageS …

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