エクセルシート：ボタン押下で特定列の表示←→非表示切り替え

質問

（行いたいこと）
ｓｈｅｅｔ１の中にコマンドボタン１があって、そのボタンが押されたとき既にC列からF列が非表示のときは表示してやり、また逆に表示のときは非表示にする。

（macroを作って実行したい）

（現在の考えている状況）
後どうすればいいですか。今は何も動作しません。

今macro3というマクロの中に次のようなものが入っています。

Private Sub CommandButton1_Click()
If Selection.EntireColumn.Hidden = True Then Columns("B:G").Select
Range("G1").Activate
Selection.EntireColumn.Hidden = False
Else: Columns("C:F").Select
Selection.EntireColumn.Hidden = True

End Sub

Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2006/3/24 ユーザー名 :
' Columns("C:F").Select
Selection.EntireColumn.Hidden = True
Columns("B:G").Select
Range("G1").Activate
Selection.EntireColumn.Hidden = False
Range("B2").Select
End Sub

回答No.1

mshr1962 · ベストアンサー

マクロを使わないでもC列からF列を選択して
「データ」「グループとアウトラインの設定」「グループ化」すれば
シートの上に[1][2]というボタンができます。
[1]を押すとグループ化した列が非表示になり、[2]で再表示されます。

お礼

確かにこれでやればいいのでした。
思い出しました。ご回答どうもありがとうございました。

回答No.2

noname#22222

Private Sub CommandButton1_Click()
　　Columns("C:F").Select
　　Selection.EntireColumn.Hidden = Not Selection.EntireColumn.Hidden
End Sub