Microsoft Projectマクロのカラーコーディングタスク

Question

これはまっすぐ進むはずのようですが、奇妙な動作が見られます。私はフラグに基づいて私のタスクを色分けしています。タスクの色が正しく表示されているように見えますが、処理中のある時点で初期のタスクが黒にリセットされています。それが起こる作業もかなり矛盾しているようです。ここで（それはbarestフォームのように簡略化）私はこのタスクを実行しようとしている方法は次のとおりです。

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

はい、私はあまりにも、同様の問題::

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これは動作するはずですが、まだ私は毎回構文エラーを取得します。私はこれを働かせることができる唯一の方法は、私はわずか16色に制限FontExメソッドを使用する場合です....

Answer 2

私はこれは古い質問であることを知っていますが、それは同様の問題。

間違いはあなたが進数の前に「H」を追加することを忘れてしまったということなので、きちんとそこにする必要があります：

Font32Ex CellColor:=&H3A3AD4 
etc