|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.11.2012, 11:12 | #1 |
Регистрация: 08.11.2012
Сообщений: 9
|
Макрос работает на заданных строках
Здравствуйте!
Данный макрос поднимает (сортирует по возрастанию) строку верх по ключу в столбце А Private Sub Worksheet_Change(ByVal Target As Range) Range("A:B").Sort _ Key1:=Range("A1"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, DataOption1:=xlSortNormal End Sub а как делать чтобы он поднимал (сортировал по возрастанию) строки в указанном диапазоне строк, например строк с 5 по 100? |
18.11.2012, 11:22 | #2 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Range("A5:B100")
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
18.11.2012, 11:41 | #3 |
Регистрация: 08.11.2012
Сообщений: 9
|
Спасибо большое
Все работает |
18.11.2012, 11:53 | #4 |
Регистрация: 08.11.2012
Сообщений: 9
|
Возможно ли сделать чтобы он еще и в диапазоне "A111:B200" мог работать. Или проще макрос продублировать?
|
18.11.2012, 12:28 | #5 |
Регистрация: 08.11.2012
Сообщений: 9
|
Range("A5:B100", "A111:B200") так не работает Пишет - "Нужно чтобы ячейки имели одинаковый размер"
|
18.11.2012, 13:22 | #6 | ||
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Цитата:
Цитата:
Вот и "ругается")
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
||
18.11.2012, 15:26 | #7 |
Регистрация: 08.11.2012
Сообщений: 9
|
Да Вы правы, объединенные ячейки есть. Они разделяют группы данных. Мне и нужно чтобы этот макрос мог сортировать в каждой группе отдельно.
|
18.11.2012, 17:01 | #8 |
Регистрация: 08.11.2012
Сообщений: 9
|
Все решил задачу
Вот так. Все просто. Private Sub Worksheet_Change(ByVal Target As Range) Range("4:107").Sort _ Key1:=Range("A1"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, DataOption1:=xlSortNormal Range("111:214").Sort _ Key1:=Range("A111"), Order1:=xlAscending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("218:310").Sort _ Key1:=Range("A218"), Order1:=xlAscending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub Всем спасибо |
18.11.2012, 17:01 | #9 |
Регистрация: 08.11.2012
Сообщений: 9
|
Всем спасибо
Последний раз редактировалось maxpay; 18.11.2012 в 17:35. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не работает макрос в XP | vefer | Microsoft Office Excel | 6 | 22.01.2012 15:28 |
Не работает макрос по сети | ZHDN | Microsoft Office Excel | 8 | 11.12.2011 21:16 |
Макрос не правильно работает | staniiislav | Microsoft Office Excel | 6 | 12.10.2011 17:02 |
Макрос работает неправильно | AllenJ | Microsoft Office Word | 0 | 13.04.2011 21:17 |
Нужна программа \ макрос в екселе для расчета вариантов лотерейных билетов из заранее заданных критериев | elenaaaa | Фриланс | 7 | 10.01.2011 15:02 |