Excelガントチャートのアレンジ：行のグループ化で折りたたむ(VBAマクロも紹介)

Sub popup()
'ユーザーフォーム（BOX）の召喚 UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
'リストボックスの設定 UserForm1.Caption = "チャート行の挿入"
End Sub
Private Sub CommandButton1_Click()
'変数の定義と値付け Dim Textbx1 As Long Dim Textbx2 As Long Textbx1 = Me.TextBox1.Text 'Textbox1は何行めに挿入か Textbx2 = Me.TextBox2.Text 'Textbox2は何行追加か Dim Ori As Long Dim St As Long Dim Fn As Long Ori = Textbx1 St = Textbx1 + 1 Fn = Textbx1 + Textbx2
'コマンドボタンを押したらBOXが消える設定をする Unload UserForm1
'行を挿入値にする Rows(St & ":" & Fn).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'1行ずつコピーするため、繰り返しFor Next構文を使う Dim i As Long '繰り返し変数定義 Dim Fn2 As Long '繰り返すストップの為 Fn2 = Textbx2 - 1 Rows(Ori & ":" & Ori).Select Selection.Copy For i = 0 To Fn2 Rows(St + i & ":" & St + i).Select ActiveSheet.Paste Next
'チェックボックスがON（事象を下げる）の場合はインデントして”期間1”にして日付を集計に変える If CheckBox1.Value = True Then 'True＝ONです 'インデントの設定 Range("C" & St & ":" & "C" & Fn).Select Selection.IndentLevel = 1 '親事象のD列を"期間1"に変更。D6が"期間1"に相当 Range("D" & Ori).Select ActiveCell.Value = Range("D6").Value '親事象の日付の集計① Range("F" & Ori).Select ActiveCell.FormulaR1C1 = "=MIN(R[1]C:R[" & Textbx2 & "]C)" '親事象の日付の集計② Range("H" & Ori).Select ActiveCell.FormulaR1C1 = "=MAX(R[1]C:R[" & Textbx2 & "]C)" '個事象の折りたたみ追加 Rows(St & ":" & Fn).Select Selection.Rows.Group
　　'追加行のアクションセルへ
　　Range("C" & St).Select End If
End Sub