Excelのこととか色々

マクロをどんな Excel ファイルにも実行できるように設定して、3秒かかる操作も1秒で完了。あといろいろ書いてみます・・・

【Excel/VBAのこと31】行列をグループ化

   f:id:tuna-kichi:20200223230814p:plain

 

以前、必要な列は表示させ、不要な列をグループ化する記事を書きました。

www.tuna-kichi.com

 

この中のグループ化する部分を取り出して、リボンに登録します。

 

マクロ

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

 

※この一行で行・列両方解除できます。

**********************************************************

 このマクロを個人用マクロブックの標準モジュールに記述して、リボンに登録します。

 全部クリックだけで完了するから楽ちんです。

 

リボンに登録

 

 

 

個人用マクロブックについてはこちら

www.tuna-kichi.com

 

リボンに登録についてはこちら

www.tuna-kichi.com

 

 

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

にほんブログ村 子育てブログ 幼稚園児育児へ にほんブログ村 英語ブログ 初心者英語へ にほんブログ村 IT技術ブログ VBAへ

==================================

  Graspyで無料プログラミング講座を受講する