formatação condicional no MS Project

0

Eu preciso usar a formatação condicional para alterar a cor da fonte para branco no campo 'Custo' se as figuras estiverem entre 0 e 500. Eu só quero formatar o campo "Custo" e não a linha inteira

Eu seria ótimo se alguém genial pudesse me ajudar com isso.

    
por marie 25.09.2013 / 08:47

1 resposta

0

Não pode ser feito de forma nativa, mas pode ser obtido com algum código VBA. Eu copiei uma amostra que eu preparei anteriormente, que aplica formatação à coluna flag1 com base em seu valor. Um pouco de ajustes deve fazê-lo fazendo o que você precisa. Você precisará executar o código para atualizar. Ele não será recalculado após cada edição.

Espero que ajude Andrew

    Sub ApplyFormattingToFlag1()
' ===================================================================================
' ===== This section applies the formatting to the current view                 =====
' ===================================================================================
Dim t As task
Dim pj As Project
Dim boo_AnyYes
Dim app As Application
Set app = MSProject.Application
Set pj = activeProject
boo_AnyYes = False
    For Each t In pj.Tasks

        If t.Flag1 = True Then
            boo_AnyYes = True
        End If

    Next t


    With app
        .ScreenUpdating = False ' Attempt to stop the screen refreshing

        .FilterApply "&All Tasks"
        .OutlineHideSubTasks
        .OutlineShowAllTasks

        .SelectTaskColumn Column:="flag1"

        If boo_AnyYes Then
            .FontEx CellColor:=1, Pattern:=1
        Else
            .FontEx CellColor:=16, Pattern:=0
        End If

    End With
End Sub
    
por 31.05.2014 / 00:23