Microsoft Project宏中的顏色編碼任務

這看起來應該是直截了當，但我看到一些奇怪的行爲。我試圖根據標記對我的任務進行顏色編碼。它看起來正確地着色任務，但在處理的某個時刻，被着色的初始任務正在被重置爲黑色。它發生的任務似乎也相當不一致。以下是我正在努力執行這項任務（簡化爲它的最起碼的形式）：Microsoft Project宏中的顏色編碼任務

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

此代碼似乎工作只是罰款較小的數據集，但這個項目包含了大約2000個任務。有任何想法嗎？

來源

2011-05-10 Shawn

我很好奇這個爲好;如果你找到答案，請發帖。 – 2011-05-25 15:29:30

是我也是有類似的問題::

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種顏色....

來源

2011-06-09 19:26:40

我知道這是一個老問題，但我希望它可能有用的人有類似的問題。

的錯誤是，你忘了前十六進制數增加「H」，所以正常應該有：

Font32Ex CellColor:=&H3A3AD4 
etc

來源

2013-12-02 23:43:28 Tomek

Microsoft Project宏中的顏色編碼任務

回答

相關問題