以前、必要な列は表示させ、不要な列をグループ化する記事を書きました。
この中のグループ化する部分を取り出して、リボンに登録します。
マクロ
列
Sub GroupColumns()
Dim c As Long '列番号を格納します
c = Selection.Column '列番号を取得します
Columns(c).Group '選択した列をグループ化します
ActiveSheet.Outline.ShowLevels ColumnLevels:=1 'グループ化した列を非表示にします。
End Sub
-----------------------------------------------
行
Sub GroupRow()
Dim r As Long
r = Selection.Row
Rows(r).Group
ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub
-----------------------------------------------
列解除
Sub Release_ColumsGroup()
Selection.Columns.Ungroup
End Sub
-----------------------------------------------
行解除
Sub Release_RowsGroup()
Selection.Rows.Ungroup
End Sub
-----------------------------------------------
両方解除
Sub Release_ColumsGroup()
Columns.ClearOutline
End Sub
※この一行で行・列両方解除できます。
**********************************************************
このマクロを個人用マクロブックの標準モジュールに記述して、リボンに登録します。
全部クリックだけで完了するから楽ちんです。
個人用マクロブックについてはこちら
リボンに登録についてはこちら
＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／
