行と列の非表示、表示を設定する。

シートの行の表示／非表示を操作するにはRowsプロパティもしくはEntireRowプロパティのHiddenプロパティ、列の場合はColumnsプロパティもしくはEntireColumnプロパティのHidden プロパティ利用して指定した行・列の表示、非表示を設定することができます。

非表示にするにはHiddenプロパティに 対して True を設定します。また表示させる場合は、同プロパティに False を設定します。
また表示、非表示の操作は複数の行・列をまとめて設定もできます。

下記の画像はサンプルコードの非表示処理前の状態です。

●行の非表示

'******************************************************************
'　行の非表示
'******************************************************************
Sub Main_HiddenRow()

    '3行目を非表示にする(Rows)
    Sheets("Sheet1").Rows(3).Hidden = True

    '5～8行目を非表示にする(Rows)
    Sheets("Sheet1").Rows("5:8").Hidden = True

    '10～12行目を非表示にする(Range.EntireRow)
    Sheets("Sheet1").Range("A10:A12").EntireRow.Hidden = True

End Sub

　■実行結果

　●列の非表示

'******************************************************************
'　列の非表示
'******************************************************************
Sub Main_HiddenColumn()

    'A列を非表示にする(Columns)
    Sheets("Sheet1").Columns(1).Hidden = True

    'B～E列を非表示にする(Columns)
    Sheets("Sheet1").Columns("B:E").Hidden = True

    'F～H列を非表示にする(Range.EntireColumn)
    Sheets("Sheet1").Range("F:H").EntireColumn.Hidden = True

End Sub

　■実行結果

以下の行と列の表示処理を実行するとそれぞれ非表示前の状態にもどります。
　●行の表示

'******************************************************************
'　行の表示
'******************************************************************
Sub Main_HiddenRowClear()

    '3行目を表示にする(Rows)
    Sheets("Sheet1").Rows(3).Hidden = False

    '5～8行目を表示にする(Rows)
    Sheets("Sheet1").Rows("5:8").Hidden = False

    '10～12行目を表示にする(Range.EntireRow)
    Sheets("Sheet1").Range("A10:A12").EntireRow.Hidden = False

End Sub

　●列の表示

'******************************************************************
'　列の表示
'******************************************************************
Sub Main_HiddenColumnClear()

    'A列を表示にする(Columns)
    Sheets("Sheet1").Columns(1).Hidden = False

    'B～E列を表示にする(Columns)
    Sheets("Sheet1").Columns("B:E").Hidden = False

    'F～H列を表示にする(Range.EntireColumn)
    Sheets("Sheet1").Range("F:H").EntireColumn.Hidden = False

End Sub