Страницы: 1
RSS
Автоматическая многоуровневая группировка, Автоматическая многоуровневая группировка
 
Добрый день! Подскажите, пожалуйста, можно ли автоматически сгруппировать данные в таблице по колонке D из примера. В примере это номер уровня предполагаемого отчёта. На листе 2 результат.
В конечном итоге файлы очень большие как вниз, так и в сторону, работает множество пользователей и постоянно группировка сбивается.
Помогите пожалуйста. Возможно ли решить задачку без макроса?
 
Цитата
Loksana написал: Возможно ли решить задачку без макроса?
Если все же дело дойдет до макросов
Код
Sub AddGroup()
Dim lRow&
Dim iCell As Range
With ActiveSheet
  lRow = .Cells(.Rows.Count, "D").End(xlUp).Row
  For Each iCell In .Range("D3:D" & lRow)
    iCell.Rows.OutlineLevel = iCell.Value
  Next
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
 
Sanja, Спасибо Вам огромное! Попробовала этот вариант, срабатывает. Единственное придётся всем файлы настроить под другое расширение Excel.
 
Цитата
Loksana написал:
Единственное придётся всем файлы настроить под другое расширение
- совсем не обязательно, можно применять макрос из стороннего файла или надстройки.
Вообще у Вас и так файл уже с расширением с поддержкой макросов.
Изменено: Hugo - 24.03.2025 18:22:22
 
Hugo, да, это у меня такой файл, экспериментировала. А вот пользователей порядка 50ти человек и каждому эту настройку нужно сделать. Вечно группировки у них слетают.
 
Извините, пожалуйста, а чтобы группировка была не снизу вверх, а сверху вниз, это макрос переписать нужно? Важно , чтобы была возможность раскрывать группировку последовательно проваливаясь на следующий уровень.  
 
Цитата
написал:
сверху вниз
настройками в структуре сделала, нашла. Но когда раскрываю напр.уровень три, дальше нажимаю на + и раскрываются все шесть уровней. Последовательно не получается.
 
У меня нормально всё работает - если все уровни закрыты (последовательно все закрыть) - то и открываются все последовательно плюсами или кнопками наверху.
Страницы: 1
Читают тему
Наверх