MS Project Alterar cor do texto na linha com base no campo de status

Question

Pretendo alterar a cor do texto de uma linha inteira com base no que é indicado no campo "Status".

Eu procurei em outros fóruns e encontrei soluções próximas, mas nada que realmente faça o que estou procurando. Estou ciente do recurso de destaque e da formatação condicional, mas não consigo fazer com que eles façam o que eu preciso. Eu escrevi um código VB para fazer exatamente isso há 5 anos, mas eu sou um novato, levei cerca de 5 dias para escrever o código básico, e então perdi quando deixei meu último emprego. : - (

Então, estou procurando apenas ter um VBA que faça o seguinte:

• Se Status="Late", cor o texto na linha para "RED"
• Se Status="Na programação", cor o texto na linha para "VERDE"
• Se Status="Tarefa Futura", cor o texto na linha para "PRETO"
• Se Status="Complete", cor o texto na linha para "GREY"

Eu adoraria ser avançado e ter algo como o seguinte: Se Status="Na programação", E% concluída é < 85% E "Data de término" é < 5 dias no futuro, depois, colora o texto na linha "ORANGE"

    

Answer 1

Sub CompletePercentSub ()

Dim t As Task Dim i As Integer

'Itera ao longo de todo o arquivo de projeto ms

i = 1 Para cada t em ActiveProject.Tasks

SelectRow Row:=i, RowRelative:=False

If Not t Is Nothing Then

    Select Case t.Status
        Case 0 'Complete
            Font32Ex CellColor:=&H98FB98 'LIGHT GREEN
        Case 1 'On Schedule
            Font32Ex CellColor:=&HE0FFFF 'TAN
        Case 2 'Late
            Font32Ex CellColor:=&HC0FF& 'LIGHT RED
        Case 2 'Future Task
            Font32Ex CellColor:=&HFFFFFF 'WHITE
    End Select
End If

i = i + 1

Próximo t

End Sub