MS Project根据状态字段更改行中的文本颜色

我希望根据“状态”字段中指示的内容更改整个行的文本颜色。

我搜索了其他论坛并找到了接近的解决方案，但是没有任何事情可以真正满足我的需求。我知道突出显示功能和条件格式，但是我无法让他们做我需要的事情。我大约在5年前编写了一些VB代码来完成此操作，但是我是一个新手，我花了大约5天的时间编写了非常基本的代码，但是当我离开上一份工作时，我丢失了它。:-(

因此，我希望仅使用一些VBA即可完成以下任务：

• 如果Status =“ Late”，则将行中的文本颜色设置为“ RED”
• 如果状态=“按计划”，则将行中的文本上色为“绿色”
• 如果Status =“ Future Task”，则将行中的文本涂成“ BLACK”
• 如果Status =“ Complete”，则将行中的文本上色为“ GRAY”

我很想获得进步，并具有以下类似内容：如果Status =“ On Schedule”，并且％完成度是<85％，并且“ Finish Date”是<5天以后，然后为“ ORANGE”行中的文本上色“

子CompletePercentSub（）

视任务为整数

'遍历整个ms项目文件

i = ActiveProject.Tasks中的每t = 1

SelectRow Row:=i, RowRelative:=False

If Not t Is Nothing Then

    Select Case t.Status
        Case 0 'Complete
            Font32Ex CellColor:=&H98FB98 'LIGHT GREEN
        Case 1 'On Schedule
            Font32Ex CellColor:=&HE0FFFF 'TAN
        Case 2 'Late
            Font32Ex CellColor:=&HC0FF& 'LIGHT RED
        Case 2 'Future Task
            Font32Ex CellColor:=&HFFFFFF 'WHITE
    End Select
End If

我=我+ 1

下一个

结束子