Добрый день. Ребят подскажите, как можно разгруппировать и группировать столбцы , в зависимости от Индекс "i"
Суть задачи.
12 это кол-во месяцев и мне необходимо допустим в при Индексе 3 открыть 3 столбца и дальше в той же логике каждый месяц.
Мне необходимо вначале разгруппировать диапазон всех 12 месяцев, т.е. 12 столбцов. Потом сгруппировать уже в зависимости от Индекс(тек. месяца)
Написал ниже код, но возникает проблема. Я разгруппировал весь диапазон и при группировке я выделяю нужный диапазон, но выделенный остаётся так же весь ( 12 месяцев, как при индексе 12) . При группировке нужных столбцов, группируются все 12.
После некоторых изменений начала возникать ошибка
Метод ungroup из класса Range завершён не верно
Помогите решить задачу, буду очень благодарен.
Суть задачи.
12 это кол-во месяцев и мне необходимо допустим в при Индексе 3 открыть 3 столбца и дальше в той же логике каждый месяц.
Мне необходимо вначале разгруппировать диапазон всех 12 месяцев, т.е. 12 столбцов. Потом сгруппировать уже в зависимости от Индекс(тек. месяца)
Написал ниже код, но возникает проблема. Я разгруппировал весь диапазон и при группировке я выделяю нужный диапазон, но выделенный остаётся так же весь ( 12 месяцев, как при индексе 12) . При группировке нужных столбцов, группируются все 12.
После некоторых изменений начала возникать ошибка
Метод ungroup из класса Range завершён не верно
Помогите решить задачу, буду очень благодарен.
Код |
---|
Sub qwe () i = InputBox("Ввести от 1 до 12") Dim wb As Workbook, shAs Worksheet Set wb= ActiveWorkbook Set sh = ActiveWorkbook.Worksheets(1) If i = 1 Then sheetS.Columns("AC:AO").Select Selection.Columns.Ungroup sheetS.Columns("AD:AO").Select Selection.Columns.Group ElseIf i = 2 Then sh.Columns("AC:AO").Select Selection.Columns.Ungroup sh.Columns("AE:AO").Select Selection.Columns.Group End If End sub |