スポンサーリンク

列の非表示と再表示

Hiddenプロパティで指定した列を非表示にします。
コードのTrueをFalseに変更すると、再表示になります。

Columnsプロパティ

Columns(2).Hidden = True
 ’列Bを非表示にします 
Columns(2).Hidden = False
 ’列Bを再表示します

サンプルコード
 コード内、Wクリックでコピーできます。
Sub サンプル2780()
     
    Columns(2).Hidden = True
    
    'Columns(2).Hidden = False
 
End Sub

Rangeプロパティ

Range("C3").EntireColumn.Hidden = True
 ’列Cを非表示にします 
Range("C3").EntireColumn.Hidden = False
 ’列Cを再表示にします

サンプルコード
 コード内、Wクリックでコピーできます。
Sub サンプル2782()
     
    Range("C3").EntireColumn.Hidden = True
    
    'Range("C3").EntireColumn.Hidden = False
 
End Sub
スポンサーリンク

列の範囲を指定して非表示と再表示

Columnsプロパティ

Columns("B:D").Hidden = True
 ’列B~列Dを非表示 
Columns("D:D").Hidden = True
 ’列Dを非表示

サンプルコード
 コード内、Wクリックでコピーできます。
Sub サンプル2783()
     
    Columns("B:D").Hidden = True
    
    'Columns("D:D").Hidden = True
 
End Sub

Rangeプロパティ

列Bを指定するには、B1,B2,B3\(\cdots\)のように列Bの数字を選択します。

Range("B2:D2").EntireColumn.Hidden = True
 ’列B~列Dを非表示 
Range("B2,D2").EntireColumn.Hidden = True
 ’列Bと列Dを非表示(,)カンマで区切ります

サンプルコード
 コード内、Wクリックでコピーできます。
Sub サンプル2784()
     
    Range("B2:D2").EntireColumn.Hidden = True
    
    'Range("B2,D2").EntireColumn.Hidden = True
 
End Sub
スポンサーリンク

指定したシートの列を非表示にする

シート2(Sheet2)を指定するには、Worksheets("Sheet2") または Worksheets(2) とします。

 ’Sheet1 の列を非表示 
Worksheets("Sheet1").Columns(2).Hidden = True
Worksheets(1).Columns(2).Hidden = True

 ’Sheet2 の列を非表示 
Worksheets("Sheet2").Columns(2).Hidden = True
Worksheets(2).Columns(2).Hidden = True

サンプルコードは、Sheet2の列Bを非表示にします。

サンプルコード
 コード内、Wクリックでコピーできます。
Sub サンプル2785()
     
    Worksheets("Sheet2").Columns(2).Hidden = True
    
    'Worksheets(2).Columns(2).Hidden = True
 
End Sub

●マクロの実行結果
heet2を開いてみると、列Bが非表示になっています。

以上で「列の非表示と再表示のマクロ」の説明を終わります。




おすすめの記事