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

Вход

Регистрация

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

 

= Мир MS Excel/Сортировать данные в столбце L - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировать данные в столбце L (Макросы/Sub)
Сортировать данные в столбце L
Yar4i Дата: Среда, 16.10.2019, 15:09 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 137
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
День добрый дамы и господа.

Только что определил часть макроса, которая приводит к ошибке "ошибка в части содержимого в книге .... Выполнить попытку восстановления? Если вы доверяете источнику, из которого получена книга то нажмите "Да"."
Это сортировка от А до Я в столбце L
[vba]
Код

Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'Определяем последнюю строку
Range("L1").CurrentRegion.Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("L2:L" & LastRow), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add Key:=Range("L2:L" & LastRow), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("L1:L" & LastRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
[/vba]

Это код не привязанный к листу... вероятно это и приводит к такому итогу.

Ошибка проявляется, после следующего алгоритма действий: применяем макрос, сохраняем файл, закрываем файл, открываем файл - ошибка.
К сообщению приложен файл: 777777.xlsx (18.5 Kb)


Сообщение отредактировал Yar4i - Среда, 16.10.2019, 17:00
 
Ответить
СообщениеДень добрый дамы и господа.

Только что определил часть макроса, которая приводит к ошибке "ошибка в части содержимого в книге .... Выполнить попытку восстановления? Если вы доверяете источнику, из которого получена книга то нажмите "Да"."
Это сортировка от А до Я в столбце L
[vba]
Код

Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'Определяем последнюю строку
Range("L1").CurrentRegion.Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("L2:L" & LastRow), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add Key:=Range("L2:L" & LastRow), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("L1:L" & LastRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
[/vba]

Это код не привязанный к листу... вероятно это и приводит к такому итогу.

Ошибка проявляется, после следующего алгоритма действий: применяем макрос, сохраняем файл, закрываем файл, открываем файл - ошибка.

Автор - Yar4i
Дата добавления - 16.10.2019 в 15:09
RAN Дата: Среда, 16.10.2019, 17:31 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Добавить ключ "сортировать по возрастанию"
Добавить ключ "сортировать по убыванию"
Проделать это с одним столбцом
Заставить Excel выполнить все это разом

А после спрашивать, почему у Excel крыша едет. hands


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДобавить ключ "сортировать по возрастанию"
Добавить ключ "сортировать по убыванию"
Проделать это с одним столбцом
Заставить Excel выполнить все это разом

А после спрашивать, почему у Excel крыша едет. hands

Автор - RAN
Дата добавления - 16.10.2019 в 17:31
fairylive Дата: Пятница, 18.10.2019, 17:30 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 122
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
Yar4i, проверил ваш кусок кода. Во-первых он ничего не сортирует. Ни вверх ни вниз. Во-вторых не приводит к ошибкам про которые вы говорите. Выкладывайте весь ваш макрос и пишите что вы вообще хотите сделать.
 
Ответить
СообщениеYar4i, проверил ваш кусок кода. Во-первых он ничего не сортирует. Ни вверх ни вниз. Во-вторых не приводит к ошибкам про которые вы говорите. Выкладывайте весь ваш макрос и пишите что вы вообще хотите сделать.

Автор - fairylive
Дата добавления - 18.10.2019 в 17:30
Yar4i Дата: Вторник, 22.10.2019, 17:29 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 137
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Спасибо, что разжевали код.
Пока сортирую вручную...
 
Ответить
СообщениеСпасибо, что разжевали код.
Пока сортирую вручную...

Автор - Yar4i
Дата добавления - 22.10.2019 в 17:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировать данные в столбце L (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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