Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогите с фильтром в Excel Добавлено: 28.12.05 20:46  

Автор вопроса:  Alfa05
Такая проблема.
Большая таблица в Excel. Нужно отфильтровать строки по 10 условиям (конкреиным значениям). В Excel нашел только возможность фильтра по 2 значениям. При записи макроса выглядит это так:
Sub Макрос1()
'
Selection.AutoFilter Field:=11, Criteria1:="=Вася", _
            Operator:=xlOr, Criteria2:="=Петя"
End Sub

А как сделать чтобы список отфильтровался по Вася, Петя, Сергей и т.д. (10 значений)?

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 Victor



ICQ: 345743490 

Вопросов: 42
Ответов: 385
 Web-сайт: vt-dbnz.narod.ru
 Профиль | | #1
Добавлено: 29.12.05 00:20
Примени этот автофильтер 10 раз для каждого из условий.

Ответить

Номер ответа: 2
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
 Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #2
Добавлено: 29.12.05 08:28
Можно с макросом или без макроса: заводишь ещё одну колонку, где значения будут только двух видов, например, 0 и 1. Всё, что тебя устраивает условимся = 1, всё остальное = 0. Фильтруешь по одному полю и по одному значению. Всё!

Ответить

Номер ответа: 3
Автор ответа:
 Alfa05



Вопросов: 2
Ответов: 2
 Профиль | | #3 Добавлено: 29.12.05 12:31
К сожалению это не подходит. Я эти варианты знаю и не рассматривал их.
1.Таблица очень большая и самих таблиц много. Я не в состоянии повторять по 10 раз филтрацию.
2.Я не могу сделать лишние 10 колонок,т.к. нет возможности пеерносить в каждую свою отфильтровку. Очень трудоемко.
НУЖЕН ТОЛЬКО ОДИН МАКРОС! HELP

Ответить

Номер ответа: 4
Автор ответа:
 Alfa05



Вопросов: 2
Ответов: 2
 Профиль | | #4 Добавлено: 29.12.05 12:52
Все братья разрешилось. Мне помогли на сторне.
Оказалось нужно воспользоваться расширенным фильтром:
Private Sub CommandButton1_Click()
    Range("B14:C69";).AdvancedFilter _
    Action:=xlFilterInPlace, CriteriaRange:=Range("B2:B12";)
End Sub
ВСЕМ СПАСИБО!!!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам