Как в excel развернуть все сгруппированные строки на VBA
Формулировка задачи:
Как в excel развернуть все сгруппированные строки?
Хотелось бы средствами VBA сворачивать и разворачивать всех потомков и родителей. Кто-нибудь умеет?
Хотелось бы средствами VBA сворачивать и разворачивать всех потомков и родителей. Кто-нибудь умеет?
Решение задачи: «Как в excel развернуть все сгруппированные строки на VBA»
textual
Листинг программы
Sub GrouperRows()
On Error GoTo ErrCl
NextHandler:
Dim i As Integer
i = InputBox("Выберите уровень группировки", "Уровень группировки", 1)
ActiveSheet.Outline.ShowLevels RowLevels:=i
Exit Sub
ErrCl:
Result = MsgBox("Такого уровня нет. Выбрать другой? " & Chr(10) & _
Err.Description, vbYesNo, "Ошибка")
If Result = vbYes Then Resume NextHandler
End Sub