[vovaomsk]

MS Excel позволяет устанавливать автофильтр.

Параметры метода: Field, Criteria1, Operator, Criteria2, VisibleDropDown.

К примеру, следующий код устанавливает автофильтр по критерию "не равно 66130*" (* - любое количество символов), в столбце Col1:

Код:

1	MyExcel.ActiveWorkBook.ActiveSheet.Range['A1:'+LastCell].AutoFilter(Col1, '<>66130*', 2, EmptyParam, false);

ВОПРОС:
Как установить автофильтр по нескольким критериям одновременно?

К примеру, мне нужен фильтр по таким критериям:

• не равно 66130*
• не равно 66131*
• не равно 66132*
• не равно 66133*
• не равно 66134*
• равно *-15

Или хотя бы так:

• не равно 66130*
• не равно 66131*
• не равно 66132*
• не равно 66133*
• не равно 66134*

[Alegun]

Насколько помню, в самой среде Excel критерии фильтрации задаются каждый с новой строки, возможно и здесь нужно так делать

Код:

1 2 3 4 5 6 7

.AutoFilter(Col1, '<>66130*' + #13#10 + '<>66131*' + #13#10 + '<>66132*' + #13#10 + '<>66133*' + #13#10 + '<>66134*' + #13#10 + '=*-15', 2, EmptyParam, false);

[vovaomsk]

Сообщение от Alegun

Насколько помню, в самой среде Excel критерии фильтрации задаются каждый с новой строки, возможно и здесь нужно так делать

Попробовал. К сожалению, не сработало
Вообще я перепробовал множество различных вариантов описания Criteria1. Во всех случаях фильтр ставится, но неправильно - ни одна строка не удовлетворяет критерию.

Прошу подсказать, как все-таки можно описать этот параметр, включив несколько критериев.