Microsoft Project 宏中的颜色编码任务

Question

这看起来应该是直截了当的，但我看到了一些奇怪的行为。我正在尝试根据标志对我的任务进行颜色编码。它似乎正确地为任务着色，但在处理过程中的某个时刻，着色的初始任务被重置为黑色。它发生的任务似乎也相当不一致。以下是我尝试执行此任务的方式（简化为最简单的形式）：

Sub ColorTasks()
    Dim t As Task
    For Each t In ActiveProject.Tasks
        SelectRow t.ID, RowRelative:=False
        Font32Ex Color:=2366701
    Next
End Sub

此代码似乎适用于较小的数据集，但此项目包含大约 2,000 个任务。有什么想法吗？

Answer 1

我知道这是一个老问题，但我希望它对有类似问题的人有用。

错误是你忘记在十六进制数之前添加“H”，所以正确应该是：

Font32Ex CellColor:=&H3A3AD4
etc

Answer 2

是的，我也遇到了类似的问题：：

For Each t In tsks
    Select Case t.Text1
        Case "COMPLETE"
            SelectRow Row:=t.ID, RowRelative:=False
            Font32Ex CellColor:=&659B59
        Case "NOT STARTED"
            SelectRow Row:=t.ID, RowRelative:=False
            Font32Ex CellColor:=&862525
        Case "IN PROGRESS"
            SelectRow Row:=t.ID, RowRelative:=False
            Font32Ex CellColor:=&3A3AD4
    End Select
Next t

根据：http://msdn。 microsoft.com/en-us/library/ff863572.aspx 这应该可以工作，但我每次都会遇到语法错误。我可以让它工作的唯一方法是使用 FontEx 方法，该方法将我限制为只有 16 种颜色......

Answer 3

我发现使用 RGB 值更容易。
Font32Ex CellColor:=RGB(255, 199, 206) '更改填充
Font32Ex Color:=RGB(156, 0, 6) ' 更改字体颜色

使用您的代码，我将整个工作表变成粉红色的红色，350 个任务。我没有办法在 2000 上测试它，尽管不需要做很多额外的工作。