Set d = ActiveSheet.Range("B3:G10")
d.AutoFilter
d.AutoFilter Field:=1, Criteria1:="*a*"
Использование фильтра
Я столкнулся с одной проблемой, что-то не как не могу разобраться с работой фильтра. Мне необходимо делать фильтрацию, условия такие:
Надо оставить все строки, которые имеют в себе, допустим, "CPU", а потом из них оставить те, в каких есть - "1.6GHz" и так далее.
Но вот как это сделать программно я не знаю, что-то у меня с этим фильтром не сладилось.
Буду рад любому совету. Спасибо.
З.Ы. Потом обязательно выложу конечный результат, что б Вы оценили его.
Надо оставить все строки, которые имеют в себе, допустим, "CPU", а потом из них оставить те, в каких есть - "1.6GHz" и так далее.
Но вот как это сделать программно я не знаю, что-то у меня с этим фильтром не сладилось.
Буду рад любому совету. Спасибо.
З.Ы. Потом обязательно выложу конечный результат, что б Вы оценили его.
Цитата:
Originally posted by Kashuk
Я столкнулся с одной проблемой, что-то не как не могу разобраться с работой фильтра. Мне необходимо делать фильтрацию, условия такие:
Надо оставить все строки, которые имеют в себе, допустим, "CPU", а потом из них оставить те, в каких есть - "1.6GHz" и так далее.
Но вот как это сделать программно я не знаю, что-то у меня с этим фильтром не сладилось.
Буду рад любому совету. Спасибо.
З.Ы. Потом обязательно выложу конечный результат, что б Вы оценили его.
Я столкнулся с одной проблемой, что-то не как не могу разобраться с работой фильтра. Мне необходимо делать фильтрацию, условия такие:
Надо оставить все строки, которые имеют в себе, допустим, "CPU", а потом из них оставить те, в каких есть - "1.6GHz" и так далее.
Но вот как это сделать программно я не знаю, что-то у меня с этим фильтром не сладилось.
Буду рад любому совету. Спасибо.
З.Ы. Потом обязательно выложу конечный результат, что б Вы оценили его.
Обычным Экселевским автофильтром.
Тебе что, обязательно программно???
Цитата:
Originally posted by Kashuk
Я столкнулся с одной проблемой, что-то не как не могу разобраться с работой фильтра. Мне необходимо делать фильтрацию, условия такие:
Надо оставить все строки, которые имеют в себе, допустим, "CPU", а потом из них оставить те, в каких есть - "1.6GHz" и так далее.
Но вот как это сделать программно я не знаю, что-то у меня с этим фильтром не сладилось.
Буду рад любому совету. Спасибо.
З.Ы. Потом обязательно выложу конечный результат, что б Вы оценили его.
Я столкнулся с одной проблемой, что-то не как не могу разобраться с работой фильтра. Мне необходимо делать фильтрацию, условия такие:
Надо оставить все строки, которые имеют в себе, допустим, "CPU", а потом из них оставить те, в каких есть - "1.6GHz" и так далее.
Но вот как это сделать программно я не знаю, что-то у меня с этим фильтром не сладилось.
Буду рад любому совету. Спасибо.
З.Ы. Потом обязательно выложу конечный результат, что б Вы оценили его.
А сводную таблицу не пробовал???
Ну а если програмно, то я бы сделал UserForm, на которой:
SortBy=ComboBox1.Value
ThenBy=ComboBox2.Value
.....
...я правильно понял???:)
Цитата:
Originally posted by SergeySV
Тебе что, обязательно программно???
Тебе что, обязательно программно???
Да, именно программно.
Дело в чем, есть прайс лист и поле, в поле пользователь вводит товар, а снизу ему идет сортировка, вот так быстро он и находит товар...
Цитата:
Originally posted by Kashuk
Да, именно программно.
Дело в чем, есть прайс лист и поле, в поле пользователь вводит товар, а снизу ему идет сортировка, вот так быстро он и находит товар...
Да, именно программно.
Дело в чем, есть прайс лист и поле, в поле пользователь вводит товар, а снизу ему идет сортировка, вот так быстро он и находит товар...
Так чем автофильтр не угодил?
Цитата:
Originally posted by Cutty Sark
Так чем автофильтр не угодил?
Так чем автофильтр не угодил?
Так в том и проблема что я запутался его использовать, что-то я там не понял. Будь добр подскажи как его применить. Просто у меня офис обрезанный, и хелп не установлен :-(
Ok.
Вот из инфа из хелпа (уж извини, лень на русский переводить, если непонятно что - спроси):
AutoFilter Method
Syntax 1: Displays or hides the AutoFilter drop-down arrows.
Syntax 2: Filters a list using the AutoFilter.
Syntax 1
expression.AutoFilter
Syntax 2
expression.AutoFilter(Field, Criteria1, Operator, Criteria2)
expression Required. An expression that returns a Range object.
Field Optional Variant. The integer offset of the field on which you want to base the filter (from the left of the list; the leftmost field is field one).
Criteria1 Optional Variant. The criteria (a string; for example, "101"). Use "=" to find blank fields, or use "<>" to find nonblank fields. If this argument is omitted, the criteria is All. If Operator is xlTop10Items, Criteria1 specifies the number of items (for example, "10").
Operator Optional Variant. Can be one of the following XlAutoFilterOperator constants: xlAnd, xlBottom10Items, xlBottom10Percent, xlOr, xlTop10Items, or xlTop10Percent. Use xlAnd and xlOr with Criteria1 and Criteria2 to construct compound criteria.
Criteria2 Optional Variant. The second criteria (a string). Used with Criteria1 and Operator to construct compound criteria.
Пример:
- фильтр по всем записям, содержащим в 1-м столбце букву "a"
Вот из инфа из хелпа (уж извини, лень на русский переводить, если непонятно что - спроси):
AutoFilter Method
Syntax 1: Displays or hides the AutoFilter drop-down arrows.
Syntax 2: Filters a list using the AutoFilter.
Syntax 1
expression.AutoFilter
Syntax 2
expression.AutoFilter(Field, Criteria1, Operator, Criteria2)
expression Required. An expression that returns a Range object.
Field Optional Variant. The integer offset of the field on which you want to base the filter (from the left of the list; the leftmost field is field one).
Criteria1 Optional Variant. The criteria (a string; for example, "101"). Use "=" to find blank fields, or use "<>" to find nonblank fields. If this argument is omitted, the criteria is All. If Operator is xlTop10Items, Criteria1 specifies the number of items (for example, "10").
Operator Optional Variant. Can be one of the following XlAutoFilterOperator constants: xlAnd, xlBottom10Items, xlBottom10Percent, xlOr, xlTop10Items, or xlTop10Percent. Use xlAnd and xlOr with Criteria1 and Criteria2 to construct compound criteria.
Criteria2 Optional Variant. The second criteria (a string). Used with Criteria1 and Operator to construct compound criteria.
Пример:
Код:
- фильтр по всем записям, содержащим в 1-м столбце букву "a"
Цитата:
Originally posted by Cutty Sark
Ok.
Вот из инфа из хелпа (уж извини, лень на русский переводить, если непонятно что - спроси):
AutoFilter Method
Syntax 1: Displays or hides the AutoFilter drop-down arrows.
Syntax 2: Filters a list using the AutoFilter.
Syntax 1
expression.AutoFilter
Syntax 2
expression.AutoFilter(Field, Criteria1, Operator, Criteria2)
expression Required. An expression that returns a Range object.
Field Optional Variant. The integer offset of the field on which you want to base the filter (from the left of the list; the leftmost field is field one).
Criteria1 Optional Variant. The criteria (a string; for example, "101"). Use "=" to find blank fields, or use "<>" to find nonblank fields. If this argument is omitted, the criteria is All. If Operator is xlTop10Items, Criteria1 specifies the number of items (for example, "10").
Operator Optional Variant. Can be one of the following XlAutoFilterOperator constants: xlAnd, xlBottom10Items, xlBottom10Percent, xlOr, xlTop10Items, or xlTop10Percent. Use xlAnd and xlOr with Criteria1 and Criteria2 to construct compound criteria.
Criteria2 Optional Variant. The second criteria (a string). Used with Criteria1 and Operator to construct compound criteria.
Пример:
- фильтр по всем записям, содержащим в 1-м столбце букву "a"
Ok.
Вот из инфа из хелпа (уж извини, лень на русский переводить, если непонятно что - спроси):
AutoFilter Method
Syntax 1: Displays or hides the AutoFilter drop-down arrows.
Syntax 2: Filters a list using the AutoFilter.
Syntax 1
expression.AutoFilter
Syntax 2
expression.AutoFilter(Field, Criteria1, Operator, Criteria2)
expression Required. An expression that returns a Range object.
Field Optional Variant. The integer offset of the field on which you want to base the filter (from the left of the list; the leftmost field is field one).
Criteria1 Optional Variant. The criteria (a string; for example, "101"). Use "=" to find blank fields, or use "<>" to find nonblank fields. If this argument is omitted, the criteria is All. If Operator is xlTop10Items, Criteria1 specifies the number of items (for example, "10").
Operator Optional Variant. Can be one of the following XlAutoFilterOperator constants: xlAnd, xlBottom10Items, xlBottom10Percent, xlOr, xlTop10Items, or xlTop10Percent. Use xlAnd and xlOr with Criteria1 and Criteria2 to construct compound criteria.
Criteria2 Optional Variant. The second criteria (a string). Used with Criteria1 and Operator to construct compound criteria.
Пример:
Код:
Set d = ActiveSheet.Range("B3:G10")
d.AutoFilter
d.AutoFilter Field:=1, Criteria1:="*a*"
d.AutoFilter
d.AutoFilter Field:=1, Criteria1:="*a*"
- фильтр по всем записям, содержащим в 1-м столбце букву "a"
Когда я в начале увидел этот кусок:
Set d = ActiveSheet.Range("B3:G10")
d.AutoFilter
d.AutoFilter Field:=1, Criteria1:="*a*"
то понял, что проблема не в том, что я что-то не понял с автофильтром, а это проблема самого офиса. Ведь я так и делал. Так и оказалось, как только я переставил офис, так все глюки и пропали.