【VBA】行・列をクリック１つで「表示／非表示」にする

2021年9月13日2022年4月30日

VBA_表示_非表示_１ — 黄色くなっている [C列] を「表示⇔非表示」にさせるVBAを考えます。

例えば、↑の画面で、Ｃ列を表示／非表示させたい場合、
そのVBAコードは下記になります。
ご参考までに。
　

このコードでは

[ i = ３ ]

この数字の部分を変更すると、別の列が対象の列となり、
表示／非表示　となります。
一度に表示／非表示にする列を増やしたければ、
[ j = ●] などと、増やしてください。

このようにする事で、あとで編集・修正変更をかける際に、１箇所で済むようになり便利です。
　

Option Explicit

Sub HideShow_Columns()
      
 Dim i As Long
 
 i = 3     '[i]列目を表示/非表示にする
 
 If Columns(i).Hidden = False Then  'もしも[i]列目が表示されていれば
  Columns(i).Hidden = True  '非表示にする
 Else
  Columns(i).Hidden = False  '表示にする
 End If

End Sub

　
このコードの考え方としては、
　もしも現在、Ｃ列が表示されているならば、非表示に
　もしも現在、Ｃ列が非表示状態ならば、表示状態に
といった内容になっています。

VBA_表示_非表示_７ — 上記のコードでマクロを実行すると、C列が【表示／非表示】になります。

　
ちなみに、
「列(縦)」ではなく「行(横)」を表示／非表示にしたい場合は
上のコードの [Columns] → [Rows] へ変更するだけです。

　◆【縦・列】・・・Columns
　◆【横・行】・・・Rows

コードは下記になります。
　

Option Explicit

Sub HideShow_Rows()
      
 Dim i As Long
 
 i = 3     '[i]行目を表示/非表示にする
 
 If Rows(i).Hidden = False Then  'もしも[i]行目が表示されていれば
  Rows(i).Hidden = True  '非表示にする
 Else
  Rows(i).Hidden = False  '表示にする
 End If

End Sub

　
あとは、任意の図形・オブジェにマクロを登録すれば、
ボタン１つで「表示／非表示」の仕掛けの出来上がりです。
　