Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сортировка столбца, скрытого под группировкой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка столбца, скрытого под группировкой (Макросы/Sub)
Сортировка столбца, скрытого под группировкой
argetlam Дата: Четверг, 30.10.2014, 12:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Доброе время суток.

Возник такой вопрос: как сделать сортировку столбца от большего к меньшему (с захватом соседних), который находится в группировке? Попытался сделать через макросрекордер, но если группировку закрыть, сортировка не происходит. Подскажите, как её сделать не открывая группировку?
К сообщению приложен файл: 4851876.xlsm (18.3 Kb)
 
Ответить
СообщениеДоброе время суток.

Возник такой вопрос: как сделать сортировку столбца от большего к меньшему (с захватом соседних), который находится в группировке? Попытался сделать через макросрекордер, но если группировку закрыть, сортировка не происходит. Подскажите, как её сделать не открывая группировку?

Автор - argetlam
Дата добавления - 30.10.2014 в 12:19
krosav4ig Дата: Четверг, 30.10.2014, 14:34 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Sub сортировка()
'
' сортировка Макрос
'
     With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
     With Sheets("Лист1").[C4:D29].Rows
         .Parent.Outline.ShowLevels .OutlineLevel
         .Sort [D4], 2
         .Parent.Outline.ShowLevels .OutlineLevel - 1
     End With
     With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]
К сообщению приложен файл: 1683089.xlsm (18.6 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
Sub сортировка()
'
' сортировка Макрос
'
     With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
     With Sheets("Лист1").[C4:D29].Rows
         .Parent.Outline.ShowLevels .OutlineLevel
         .Sort [D4], 2
         .Parent.Outline.ShowLevels .OutlineLevel - 1
     End With
     With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 30.10.2014 в 14:34
argetlam Дата: Пятница, 31.10.2014, 16:26 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Спасибо!
 
Ответить
СообщениеСпасибо!

Автор - argetlam
Дата добавления - 31.10.2014 в 16:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка столбца, скрытого под группировкой (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!