Vba を使用してすべてのシートを表示する方法 (例あり)


VBA でVisibleプロパティを使用すると、Excel ブックにシートを表示できます。

ワークブック内のすべてのシートを表示するには、次の構文を使用できます。

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

単純なFor Eachループを使用し、 Visible = Trueを指定すると、ブック内のすべてのシートを表示するように Excel に指示します。

次の例は、この構文を実際に使用する方法を示しています。

例:VBAを使用して全シートを表示する方法

4 つのシートを含む Excel ワークブックがあるとします。

ここで、 Sheet4 を右クリックし、 [非表示]をクリックするとします。

Sheet2でこのプロセスを繰り返し、表示されるシートがSheet1Sheet3だけになったとします。

VBA を使用してワークブック内のすべてのシートを表示するとします。

これを行うには、次のマクロを作成できます。

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

このマクロが実行されると、ワークブック内のすべてのシートが表示されます。

: VBA のVisibleプロパティの完全なドキュメントは、ここで見つけることができます。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: 最後に使用された行を見つける方法
VBA: 最後に使用された列を見つける方法
VBA: ペインをフリーズする方法

コメントを追加する

メールアドレスが公開されることはありません。 が付いている欄は必須項目です