|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2011, 13:18 | #1 |
Регистрация: 08.12.2010
Сообщений: 7
|
Не работает метод SORT
Здравствуйте, господа!
Столкнулся с интересной ситуацией. Не отрабатывает метод Sort/ У меня таблица из 4 столбцов. В первом - значение, во втором - текст, третий пустой и в 4 текст. Сортировка от большего к меньшему. Код такой: 'end_block - это номер конечной строки 'st_block - это номер первой/стартовой строки 'el_count - это количество строк в блоке, который нужно отсортировать 'sort_col - столбец, по которому сортирую st_block = end_block - el_count + 1 sort_col = "D" & st_block Range(Cells(end_block - el_count + 1, sum_col), Cells(end_block, code_col)).Select With ActiveWorkbook.Worksheets("R").Sort ActiveWorkbook.Worksheets("R").Sort .SortFields.Clear Selection.Sort.SortFields.Add Key1:=Range(sort_col) _ , SortOn:=xlSortOnValues, Order1:=xlDescending, DataOption1:=xlSortNormal .SetRange Range(Cells(end_block - el_count + 1, sum_col), Cells(end_block, code_col)) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With После отработки макроса все значения остаются на месте.. Что я не так делаю? Спасибо! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TfrxReport - Метод DesignReport не работает | l2qwe | Компоненты Delphi | 3 | 22.11.2010 13:44 |
Не работает метод GET | Golovastik | PHP | 6 | 08.07.2010 22:40 |
Не работает метод Рунге - Кутта 2-го порядка | CsandeRR | Общие вопросы C/C++ | 1 | 13.04.2010 16:27 |
TList->Sort | ongleb | Общие вопросы C/C++ | 0 | 12.03.2010 14:58 |
Почему у компонента TImage не работает метод Perform? | devi409 | Win Api | 7 | 22.12.2008 17:51 |