Блокировать отфильтрованные задачи в MS Project 2003

Question

В MS Project 2003 мне нужно применить некоторые фильтры к расписанию, чтобы отображались только некоторые задачи. Это легко, и я знаю, как это сделать, но когда я изменяю представление, фильтр исчезает, и мне нужно снова применить его. Есть ли способ заблокировать отфильтрованные задачи, чтобы при изменении представления фильтр сохранялся? Может быть и через vba.

Answer 1

Представления представляют собой набор настроек: определение таблицы, группу и фильтр. Поэтому по определению фильтр будет сброшен, когда вы выберете другое представление. Одно из предложений заключалось бы в создании набора видов, которые вам нужны, и чтобы все они использовали ваш желаемый фильтр.

Вы можете создать макрос и прикрепить его к кнопке, но было бы так же легко повторно выбрать фильтр, как и щелкнуть по кнопке, чтобы запустить макрос.

Answer 2

Вот краткий пример использования фильтров в MSProject VBA. Это фильтры по Unique ID:

Sub Filter_unique_ID() 

Dim R As Resource 
Dim Report_End As String 

ViewApply Name:="Detail Gantt" 
'TableApply Name:="Task Tracking" 
Report_End = InputBox$("Enter the unique ID:") 
If Report_End <> "" Then 
FilterEdit Name:="Select", Taskfilter:=True, Create:=True, _ 
OverwriteExisting:=True, FieldName:="Unique ID", Test:="equals", _ 
Value:=Report_End, ShowInMenu:=False, ShowSummaryTasks:=False 

FilterApply Name:="Select" 
End If 
End Sub 

Эта функция удаляет все фильтры:

Sub ClearFilters() 
FilterClear 
End Sub