Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)
-   -   [решено] Сохранение критериев автофильтра в ячейке (http://forum.oszone.net/showthread.php?t=241965)

Delirium 04-09-2012 10:21 1982673

Сохранение критериев автофильтра в ячейке
 
На листе выделяем заголовки - Автофильтр. В фильтре выбираем, например, 3 значения из 1000(например, мы выбрали "Запись1", "Запись2", "Запись3"). Жмем ОК, выводятся отфильтрованные значения.
В VBA это выглядит как
Код:

ActiveSheet.Range("$A$1:$C$36").AutoFilter Field:=1, Criteria1:="=Запись1", Operator:=xlOr, Criteria2:="=Запись2"
и т.д.
Вопрос в следующем: Как выдернуть вот эти самые выбранные значения в отдельную ячейку? Т.е. я выбираю значения, жму ОК, а в ячейке, например, A50, выводится "Запись1, Запись2, Запись3"? Меняю фильтр, в A50 вбиваются новые данные.

okshef 04-09-2012 10:56 1982685

Delirium, может расширенным фильтром?

Delirium 04-09-2012 11:36 1982713

Не пойдет, слишком много может быть фильтров и значений.
Я вроде бы нарыл функцию, надо ее доработать только, она не работает при выборе 3 и более условий из одного столбца
http://www.tek-tips.com/faqs.cfm?fid=6288


Время: 15:01.

Время: 15:01.
© OSzone.net 2001-