Макрос для автосортировки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для автосортировки (Макросы/Sub)

Timberwolf

Дата: Пятница, 26.12.2014, 23:04 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброе время суток, форумчане.
Помогите создать макрос который будет автоматически сортировать данные по 4 столбцам (сначала В, затем С, затем Е, D)
Создал макрос, но там больше, чем по 3 столбцам не получается отсортировать.

К сообщению приложен файл: 9710140.xlsm (14.0 Kb)

Ответить

ikki

Дата: Суббота, 27.12.2014, 01:21 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

Вы использовали старый метод, который, действительно, позволяет отсортировать не более трёх столбцов за раз.
можно выкрутиться и с ним - отсортировывая частями "справа налево" - т.е. первый раз по столбцам C, E, D и второй - по столбцу B

но, начиная с версии 2007, появился другой метод.
и макрорекодер пишет именно его.
для Вашего примера это выглядит так:
[vba]

Код

Sub Макрос1()
     ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B2:B100") _
         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("C2:C100") _
         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("E2:E100") _
         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("D2:D100") _
         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     With ActiveWorkbook.Worksheets("Лист1").Sort
         .SetRange Range("B1:Z100")
         .Header = xlYes
         .MatchCase = False
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
     End With
End Sub

[/vba]

естественно, такой код в версиях 2003 и старше выполняться не будет.
так что выбирайте сами.

пс. а это правильно - что у Вас столбец A не включен в диапазон?

Код

[/vba]

естественно, такой код в версиях 2003 и старше выполняться не будет.
так что выбирайте сами.

пс. а это правильно - что у Вас столбец A не включен в диапазон?ikki

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

СообщениеВы использовали старый метод, который, действительно, позволяет отсортировать не более трёх столбцов за раз.
можно выкрутиться и с ним - отсортировывая частями "справа налево" - т.е. первый раз по столбцам C, E, D и второй - по столбцу B

но, начиная с версии 2007, появился другой метод.
и макрорекодер пишет именно его.
для Вашего примера это выглядит так:
[vba]

Код