对选定任务自定义字段进行计算更改事件

Question

我想知道是否可以创建一个脚本，在发生更改事件后为选定任务的字段运行计算。我目前有一个脚本可以为我的 ms 项目文件中的每个任务运行计算。我想通过实现隔离任务并计算相应值的代码来摆脱这种方法。

有人可以让我知道这是否可能吗？

我目前没有代码块，因为我一直在努力从哪里开始。我已经引用了这个线程 (Microsoft Project VBA to update Custom field on task change)，但未能成功实施。

我的 cm_Events 类模块：

公共 WithEvents MyMSPApp 作为 MSProject.Application

私有子类_Initialize()

Set MyMSPApp = Application

结束子

我的 m_Events 模块：

公共 oMSPEvents 作为新的 cm_Events 公共 EnableEvents 作为布尔值

子 StartEvents()

Set oMSPEvents.MyMSPApp = Application ' MSProject.Application
EnableEvents = True

结束子

我的项目代码块：

私有子项目_打开（ByVal pj 作为项目）

Call m_Events.StartEvents

结束子

Answer 1

为了厘米_事件 班级模块：

Public WithEvents MyMSPApp As MSProject.Application

Private Sub Class_Initialize()

    Set MyMSPApp = Application

End Sub

Private Sub MyMSPApp_ProjectBeforeTaskChange(ByVal tsk As Task, ByVal Field As PjField, ByVal NewVal As Variant, Cancel As Boolean)

    Debug.Print Now, FieldConstantToFieldName(Field), NewVal

    If EnableEvents Then
        EnableEvents = False
        
        tsk.Cost5 = 0
        
        Dim Assgn As Assignment
        For Each Assgn In tsk.Assignments
            If Assgn.Resource.Text1 = "Labor" Then
                tsk.Cost5 = tsk.Cost5 + Assgn.Cost
                Assgn.Cost5 = Assgn.Cost5 + Assgn.Cost
            End If
        Next Assgn
        
        EnableEvents = True
    End If
    
End Sub

为了m_Events模块：

Public oMSPEvents As New cm_Events
Public EnableEvents As Boolean

Sub StartEvents()

    Set oMSPEvents.MyMSPApp = Application ' MSProject.Application
    EnableEvents = True
    
End Sub

为了这个项目模块：

Private Sub Project_Open(ByVal pj As Project)

    Call m_Events.StartEvents

End Sub

尖端：

• 确保厘米_事件是类模块而不是常规模块。
• 任何时候您对代码进行更改时，事件都将停止运行——始终运行启动事件进行任何更改后的程序。
• 从 ProjectBeforeTaskChange 事件中的简单代码开始，如调试语句以验证事件是否被触发。
• 的任务变更事件就是这样——由任务的变化触发，而不是资源或分配的变化。