UncleFather » 14 янв 2014 10:33, Вт
Задача:
Имеется рабочая книга (документ) MS Excel с очень длинным списком. Этот список необходимо структурировать вручную, поскольку структура алгоритмизации не поддается.
Обычным способом делать долго: нужно
-
выделить только одну группу ячеек
-
зайти в меню -> Данные -> Группа и структура -> Группировать
-
в появившемся окне указать, что группировать необходимо по строкам
Хотелось бы выделить сразу несколько несвязанных диапазонов ячеек и сгруппировать их нажатием одной кнопки, без дополнительных вопросов.
Решение:
Для этого пишем макрос и настраиваем новую кнопку в панели инструментов Excel на запуск этого макроса:
Код: Выделить всё
Sub RowsGroupping()
'
With Selection
For I = 1 To .Areas.Count
Range(.Areas(I).Address).Rows.Group
Next I
End With
End Sub
Теперь, выделив несколько несвязных диапазонов ячеек:
одним нажатием кнопки получаем сгруппированные строки:
[b][size=150]Задача:[/size][/b]
Имеется рабочая книга (документ) MS Excel с очень длинным списком. Этот список необходимо структурировать вручную, поскольку структура алгоритмизации не поддается.
Обычным способом делать долго: нужно
[list=1][*] выделить только одну группу ячеек
[*] зайти в меню -> [b][i]Данные -> Группа и структура -> Группировать[/i][/b]
[*] в появившемся окне указать, что группировать необходимо по строкам[/list]
Хотелось бы выделить сразу несколько несвязанных диапазонов ячеек и сгруппировать их нажатием одной кнопки, без дополнительных вопросов.
[b][size=150]Решение:[/size][/b]
Для этого пишем макрос и настраиваем новую кнопку в панели инструментов Excel на запуск этого макроса:
[spoiler][code]Sub RowsGroupping()
'
With Selection
For I = 1 To .Areas.Count
Range(.Areas(I).Address).Rows.Group
Next I
End With
End Sub[/code][/spoiler]
Теперь, выделив несколько несвязных диапазонов ячеек:
[spoiler][attachment=1]01.JPG[/attachment][/spoiler]
одним нажатием кнопки получаем сгруппированные строки:
[spoiler][attachment=0]02.JPG[/attachment][/spoiler]