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

VBA でHiddenプロパティを使用すると、特定のシートに列を表示できます。

特定のシート上のすべての列を表示するには、次の構文を使用できます。

 Sub UnhideAllColumns()

Columns.EntireColumn.Hidden = False

End Sub

Hiddenプロパティを使用し、値Falseを指定することで、現在のシート上のすべての列を表示するように Excel に指示します。

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

例: VBA を使用してすべての列を表示する方法

さまざまなバスケットボール選手に関する情報を含む Excel シートがあるとします。

ここで、列 A と B を強調表示し、右クリックして[非表示]をクリックするとします。

両方の列が非表示になります。

ここで、VBA を使用して、このシート上のすべての列を自動的に表示するとします。

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

 Sub UnhideAllColumns()

Columns.EntireColumn.Hidden = False

End Sub

このマクロが実行されると、すべての列が表示されるようになります。

元のデータセットのすべての列が再び表示されることに注目してください。

Excel ワークブック内のすべてのシートのすべての列を表示したい場合は、次のマクロを作成してそれを実行できることに注意してください。

 Sub UnhideAllColumnsAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Columns.EntireColumn.Hidden = False
    Next ws

End Sub

単純なFor Each ループを使用すると、ワークブック内の各シートをループし、各シート上のすべての列を表示できます。

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

追加リソース

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

VBA：すべてのシートを表示する方法
VBA: 最後に使用された列を見つける方法
VBA: 使用されている列の数を数える方法