Macros Microsoft Project宏中的颜色编码任务

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

---

这段代码对于较小的数据集似乎工作得很好，但这个项目包含大约2000个任务。有什么想法吗？

是的，我也有类似的问题：：

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

---

根据：这应该是可行的，但我每次都会遇到语法错误。我唯一能做到这一点的方法是，如果我使用FontEx方法，它将我的颜色限制为16种….

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

错误在于您忘记了在十六进制数之前添加“H”，因此应该正确地有：

Font32Ex CellColor:=&H3A3AD4
etc

---

我发现使用RGB值更容易。

Font32Ex CellColor:=RGB（255、199、206）'更改填充
Font32Ex颜色：=RGB（156,0,6）'更改字体颜色

---

使用你的代码，我把我的整个工作表变成红色，变成粉红色，350个任务。我没有办法在2000年测试它，虽然没有很多额外的工作。

我也很好奇；如果你找到答案，请发帖。

Font32Ex CellColor:=&H3A3AD4
etc