VBA - přidání řádku k seskupeným řádkům Vyřešeno
Napsal: 24 srp 2011 12:55
Zdravím, můj problém spočívá v tom, že pomocí makra přidávám dva řádky pod hlavičku listu. Druhý řádek je pak seskupen s prvním (vedle prvního se objeví "rozklikávací plus", které zobrazuje/skrývá tento druhý spodní řádek. Potřeboval bych, aby se mi další řádek přidaný makrem vložil do této seskupené skupiny.Mé makro vytvoří novou skupinu - další "rozklikávací plus".
Makro přidávám níže.
Děkuji za odpověď.
Private Sub Add_an_row_Click()
Rows("6").Select
Selection.Copy
Range("A6").EntireRow.Insert
Range("A7").EntireRow.Insert
Rows("6:7").EntireRow.Value = none
Rows("6:7").RowHeight = 15
Rows("6:7").Interior.ColorIndex = xlColorIndexNone
Rows().Borders.LineStyle = xlLineStyleNone
Rows("7").Group
End Sub
Makro přidávám níže.
Děkuji za odpověď.
Private Sub Add_an_row_Click()
Rows("6").Select
Selection.Copy
Range("A6").EntireRow.Insert
Range("A7").EntireRow.Insert
Rows("6:7").EntireRow.Value = none
Rows("6:7").RowHeight = 15
Rows("6:7").Interior.ColorIndex = xlColorIndexNone
Rows().Borders.LineStyle = xlLineStyleNone
Rows("7").Group
End Sub