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でこのプロセスを繰り返し、表示されるシートがSheet1とSheet3だけになったとします。
VBA を使用してワークブック内のすべてのシートを表示するとします。
これを行うには、次のマクロを作成できます。
Sub UnhideAllSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = True
Next ws
End Sub
このマクロが実行されると、ワークブック内のすべてのシートが表示されます。
注: VBA のVisibleプロパティの完全なドキュメントは、ここで見つけることができます。
追加リソース
次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。