Только что определил часть макроса, которая приводит к ошибке "ошибка в части содержимого в книге .... Выполнить попытку восстановления? Если вы доверяете источнику, из которого получена книга то нажмите "Да"." Это сортировка от А до Я в столбце 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]
Это код не привязанный к листу... вероятно это и приводит к такому итогу.
Ошибка проявляется, после следующего алгоритма действий: применяем макрос, сохраняем файл, закрываем файл, открываем файл - ошибка.
День добрый дамы и господа.
Только что определил часть макроса, которая приводит к ошибке "ошибка в части содержимого в книге .... Выполнить попытку восстановления? Если вы доверяете источнику, из которого получена книга то нажмите "Да"." Это сортировка от А до Я в столбце 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
Добавить ключ "сортировать по возрастанию" Добавить ключ "сортировать по убыванию" Проделать это с одним столбцом Заставить Excel выполнить все это разом
А после спрашивать, почему у Excel крыша едет.
Добавить ключ "сортировать по возрастанию" Добавить ключ "сортировать по убыванию" Проделать это с одним столбцом Заставить Excel выполнить все это разом
А после спрашивать, почему у Excel крыша едет. RAN
Yar4i, проверил ваш кусок кода. Во-первых он ничего не сортирует. Ни вверх ни вниз. Во-вторых не приводит к ошибкам про которые вы говорите. Выкладывайте весь ваш макрос и пишите что вы вообще хотите сделать.
Yar4i, проверил ваш кусок кода. Во-первых он ничего не сортирует. Ни вверх ни вниз. Во-вторых не приводит к ошибкам про которые вы говорите. Выкладывайте весь ваш макрос и пишите что вы вообще хотите сделать.fairylive
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
