行・列を操作する

今回は行、列の操作についてメモしておきます。

行、列を非表示に設定する

行、列を非表示にするにはHiddenプロパティをTrueに設定します。
表示にするにはFalseを設定します。

実行プログラム

Sub Sample4_8_1()

    Rows(2).Hidden = True     ' 行の非表示
    Columns(2).Hidden = True  ' 列の非表示

End Sub

Sub Sample4_8_1()

Rows(2).Hidden = True ' 行の非表示

Columns(2).Hidden = True ' 列の非表示

End Sub

実行前

実行後

指定したセルを含む行、列を非表示にします。
指定のセル範囲を含む行、列を取得するEntireRowプロパティ、EntireColumnプロパティを使います。

実行プログラム

Sub Sample4_8_2()

    Range(Cells(2, 1), Cells(3, 1)).EntireRow.Hidden = True
    Cells(1, 3).EntireColumn.Hidden = True

End Sub

Sub Sample4_8_2()

Range(Cells(2, 1), Cells(3, 1)).EntireRow.Hidden = True

Cells(1, 3).EntireColumn.Hidden = True

End Sub

実行前

実行後

RowHeightプロパティで指定行の高さを取得します。
ColumnWidthプロパティで指定列の幅を取得します。

実行プログラム

Sub Sample4_8_3()

    MsgBox "行の高さ：" & Rows(1).RowHeight & vbLf & _
           "列の幅　：" & Columns(1).ColumnWidth

End Sub

Sub Sample4_8_3()

MsgBox "行の高さ：" & Rows(1).RowHeight & vbLf & _

"列の幅　：" & Columns(1).ColumnWidth

End Sub

実行条件

実行後

RowHeightプロパティ、ColumnWidthプロパティで設定も可能です。

実行プログラム

Sub Sample4_8_4()

    Rows(1).RowHeight = 20
    Columns(1).ColumnWidth = 10

End Sub

Sub Sample4_8_4()

Rows(1).RowHeight = 20

Columns(1).ColumnWidth = 10

End Sub

実行前

実行後