根据完成百分比值更改任务行的背景颜色

Question

我想根据 Microsoft Project 中的完成百分比值更改整个任务行的背景颜色。

代码遍历整个文档并将每一行更改为红色阴影。

如何根据完成百分比改变颜色？

如何让代码在包含任务信息的最后一行之后停止运行？

Sub Test2()

Dim t As Task
Dim i As Integer

i = 1
For Each t In ActiveProject.Tasks

    SelectRow Row:=i, rowrelative:=False

    Select Case t.PercentComplete
        Case 100
           Font32Ex CellColor:=vbGreen
        Case 2 - 99
           Font32Ex CellColor:=vbYellow
        Case Else
           Font32Ex CellColor:=vbRed
    End Select

    i = i + 1
Next t
End Sub

Answer 1

试试这个：

Sub colorrows()
FilterEdit Name:="test", TaskFilter:=True, Create:=True, OverwriteExisting:=True, _
    FieldName:="% Complete", Test:="equals", Value:=100
FilterApply Name:="test"
SelectAll
FontEx cellcolor:=pjGreen
FilterEdit Name:="test", TaskFilter:=True, Create:=True, OverwriteExisting:=True, _
    FieldName:="% Complete", Test:="is greater than or equal to", Value:="2", ShowInMenu:=True
FilterEdit Name:="test", TaskFilter:=True, NewFieldName:="% Complete", Test:="is less than or equal to", _
    Value:="99", Operation:="And"
FilterApply Name:="test"
SelectAll
FontEx cellcolor:=pjYellow
FilterEdit Name:="test", TaskFilter:=True, Create:=True, OverwriteExisting:=True, _
    FieldName:="% Complete", Test:="equals", Value:=0
FilterApply Name:="test"
SelectAll
FontEx cellcolor:=pjRed
FilterClear

End Sub