当工作量为零时，VBA 从 MS 项目中删除行

Question

我有一份项目计划的主副本，其中包含作为项目一部分我可能需要完成的所有可能任务。我想创建一个宏，一旦 PM 更新了项目计划，它会删除 Work = 0 hrs 的任何行。我是为 MS Project 编写代码的新手，所以无法正确理解以下内容：

Sub DeleteMsProjectTask()  
    Dim proj As Project  
    Dim w As Object  
    Dim t As Task  
    Set proj = ActiveProject  
    For Each t In proj  
       If w = 0 Then  
       Selection.EntireRow.Delete = True  
    End If  
    Next t  
    Loop  
End Sub

我不确定我做错了什么！提前感谢您的帮助。

Answer 1

更新

不是遍历集合，而是按索引引用任务对象。这避免了在循环中修改集合时出现的问题（例如，通过删除成员）。

Sub DeleteMsProjectTask()
    Dim proj As Project
    Set proj = ActiveProject
    Dim NumTasks As Integer
    NumTasks = proj.Tasks.Count
    Dim idx As Integer
    idx = NumTasks
    Dim t As Task
    Do While idx > 0
        Set t = proj.Tasks(idx)
        If t.Work = 0 Then
            t.Delete
            NumTasks = NumTasks - 1
        End If
        idx = idx - 1
    Loop
End Sub