![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 06.03.2017
Сообщений: 11
|
![]()
Есть много однотипных листов excel, где нужно делать сортировку одних и тех же ячеек. Как сделать один универсальный скрипт для всех листов.
Sub sort14() ' ' sort14 Ìàêðîñ ' ' Range("B39:AL40").Select ActiveWorkbook.Worksheets("KRISTIAN A").Sort.SortFields.Clear ActiveWorkbook.Worksheets("KRISTIAN A").Sort.SortFields.Add Key:=Range( _ "B40:AL40"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("KRISTIAN A").Sort .SetRange Range("B39:AL40") .Header = xlYes .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With Range("AC50").Select End Sub |
![]() |
![]() |
![]() |
#2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]() Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 06.03.2017
Сообщений: 11
|
![]()
не работает выдает ошибку. Если не сложно сделайте пожалуйста в фаиле, который я прикрепил
|
![]() |
![]() |
![]() |
#4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
поправил пару опечаток
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 06.03.2017
Сообщений: 11
|
![]()
Спасибо за помощь. Работает
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выполнить код в цикле для всех листов Excel-таблицы в VBA | yvcher19 | Microsoft Office Excel | 10 | 09.03.2017 11:32 |
как сделать сортировку для отрицательных элементов? | Irisk | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 23.12.2010 20:05 |
Перенос данных с листов при совпадении определенных значений ячеек | Тантана | Microsoft Office Excel | 11 | 21.05.2010 14:06 |
Как создать кнопку для всех листов книги? | kipish_lp | Microsoft Office Excel | 5 | 06.05.2010 17:43 |
выгрузка определенных ячеек из excel | kate158 | Общие вопросы Delphi | 12 | 23.09.2009 11:26 |