Макрос для расширенного фильтра - Microsoft Office Excel

entscheiden · 09.03.2011, 14:03

Здравствуйте.
Имеется диапазон A5:H4000 с данными; A1:H4 -- диапазон условий для фильтрации нужных строк по заданным критериям.

Размер исходного диапазона периодически меняется (добавляются новые строки, удаляются старые).

Можно ли создать макрос, автоматически определяющий текущий размер диапазона и запускающий для него расширенный фильтр?

kuklp · 09.03.2011, 14:38

Можно. А хоть как-то поиском можно воспользоваться? Проблема в определении номера последней строки. Море примеров! Мож хоть немного для себя сделаете... Макрорекордер никто не отменял. А там - к нам, поможем ежли что непонятно.

entscheiden · 09.03.2011, 14:59

Допустим, определяю номер последней строки по формуле "CountIf(C2,""<>"")" -- как в диапазон Range("A5:HXXXX") подставить результат формулы вместо "XXXX"?

EducatedFool · 09.03.2011, 15:50

Код:

Dim ra As Range
Set ra = Range([A5], Range("H" & Rows.Count).End(xlUp))

или так:

Код:

x = Range("C" & Rows.Count).End(xlUp).row ' последняя заполненная строка в столбце С
Set ra = Range("A5:H" & x)

09.03.2011, 14:03	#1
entscheiden Регистрация: 09.03.2011 Сообщений: 6	Макрос для расширенного фильтра Здравствуйте. Имеется диапазон A5:H4000 с данными; A1:H4 -- диапазон условий для фильтрации нужных строк по заданным критериям. Размер исходного диапазона периодически меняется (добавляются новые строки, удаляются старые). Можно ли создать макрос, автоматически определяющий текущий размер диапазона и запускающий для него расширенный фильтр?

09.03.2011, 14:38	#2
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Можно. А хоть как-то поиском можно воспользоваться? Проблема в определении номера последней строки. Море примеров! Мож хоть немного для себя сделаете... Макрорекордер никто не отменял. А там - к нам, поможем ежли что непонятно. mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

09.03.2011, 15:50	#4
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Код: `Dim ra As Range Set ra = Range([A5], Range("H" & Rows.Count).End(xlUp))` или так: Код: `x = Range("C" & Rows.Count).End(xlUp).row ' последняя заполненная строка в столбце С Set ra = Range("A5:H" & x)` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
для работы написать макрос для Excel и Word....	smanna	Microsoft Office Excel	2	30.11.2010 12:43
Надо макрос для Excel для перестановки букв	dionisprf	Microsoft Office Excel	2	10.06.2009 06:04
Подскажите прогу для фильтра сайтов по pr	perevods	PHP	10	29.12.2008 10:00
Кривые рожи на страничке расширенного ответа	Sibedir	О форуме и сайтах клуба	4	15.02.2008 10:51

09.03.2011, 14:59	#3
entscheiden Регистрация: 09.03.2011 Сообщений: 6	Допустим, определяю номер последней строки по формуле "CountIf(C2,""<>"")" -- как в диапазон Range("A5:HXXXX") подставить результат формулы вместо "XXXX"?