Application.FilterEdit method (Project)

Создание, изменение или копирование фильтра.

Синтаксис

выражение. FilterEdit (Name, TaskFilter, Create, OverwriteExisting, Parenthesis, NewName, FieldName, NewFieldName, Test, Value, Operation, ShowInMenu, ShowSummaryTasks)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Обязательный	String	Имя фильтра для редактирования, создания или копирования.
TaskFilter	Обязательный	Boolean	True , если фильтр, указанный с помощью Имени, содержит сведения о задаче. Значение false , если фильтр содержит сведения о ресурсе.
Создание	Необязательный	Логический	Значение True , если создается новый фильтр. Новый фильтр является копией фильтра, указанного с помощью Name, которому присваивается имя, указанное с помощью NewName. Если параметр NewName пуст, новому фильтру присваивается имя, указанное в поле Name. Значение по умолчанию — False.
ПерезаписатьСуществующее	Необязательный	Логический	Имеет значение "True ", если существующий фильтр перезаписывается новым фильтром. Значение по умолчанию — False.
Круглые скобки	Необязательный	Логический	True , если условие, установленное полями, ClassName и Value, оценивается как предложение And или OR (значение, указанное с помощью Operation) по отношению к другим условиям наподобие (a И b) OR c.
NewName	Необязательный	String	Новое имя фильтра, указанное с помощью Name (значение Create — False) или имени нового фильтра (Create — True). Если параметр NewName пуст, а значение Create — значение False, фильтр, указанный с помощью Name, сохраняет свое текущее имя. Значение по умолчанию — Empty.
FieldName	Необязательный	String	Имя поля, которое нужно изменить.
NewFieldName	Необязательный	String	Новое имя для поля, указанного с помощью FieldName.
Test	Обязательный	String	Тип сравнения FieldName и Value, который выступает в качестве условия выбора для фильтра. Может быть одной из строк сравнения.
Значение	Необязательный	String	Значение, которое нужно сравнить со значением поля, указанного с помощью FieldName.
Операция	Необязательный	String	Каким образом условие, созданное с помощью полей "Имя", "Тест" и "Значение", соотносится с другими условиями в фильтре. Аргумент "Операция" может быть задан в "И" или "Или".
ShowInMenu	Необязательный	Логический	Имеет значение "True ", если фильтр отображается в раскрывающемся списке "Фильтр ". Значение по умолчанию — False. Примечание Чтобы отобразить список фильтров, на ленте на вкладке " Вид " выберите раскрывающийся список фильтров .
ПоказатьСуммарные задачи	Необязательный	Логический	True , если отображаются суммарные задачи отфильтрованных задач. Значение по умолчанию — False.

Строки сравнения

Строка сравнения	Описание
«равно»	Значение FieldName равно Value.
"не равно"	Значение "Имя поля " не равно "Значение".
"больше, чем"	Значение FieldName больше, чем Value.
"больше или равно"	Значение FieldName больше или равно значению Value.
"меньше, чем"	Значение FieldName меньше, чем Value.
"меньше или равно"	Значение FieldName меньше или равно значению Value.
"находится внутри"	Значение FieldName находится в пределах Value.
«не внутри»	Значение FieldName не входит в значение Value.
«содержит»	FieldName содержит значение.
"не содержит"	FieldName не содержит Value.
"Содержит точно"	FieldName точно содержит Значение.

Возвращаемое значение

Boolean

Пример

В приведенном ниже примере создается фильтр (если он отсутствует) для задач с наивысшим приоритетом, а затем применяется фильтр.

Sub CreateAndApplyHighestPriorityFilter() 
    Dim TaskFilter As Variant  ' Index for For Each loop. 
    Dim Found As Boolean    ' Whether or not the filter exists. 
    Found = False   ' Assume the filter does not exist. 
    ' Look for filter. 
    For Each TaskFilter In ActiveProject.TaskFilterList 
        If TaskFilter = "Highest Priority" Then 
            Found = True 
            Exit For 
        End If 
    Next TaskFilter 
 
    ' If filter doesn't exist, create it. 
    If Not Found Then FilterEdit Name:="Highest Priority", _ 
        Create:=True, TaskFilter:=True, FieldName:="Priority", _ 
        Test:="equals", Value:="Highest" 
    FilterApply "Highest Priority" 
End Sub    

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.