MS Project 中的条件格式

MS Project 中的条件格式

如果数字介于 0-500 之间,我需要使用条件格式将“成本”字段中的字体颜色更改为白色。我只想格式化“成本”字段,而不是整行

如果有天才能帮助我解决这个问题,我将不胜感激。

答案1

无法在本机完成,但可以使用一些 VBA 代码实现。我复制了一个我之前准备的示例,该示例根据 flag1 列的值对其应用格式。稍加调整应该可以实现您需要的功能。您需要运行代码进行刷新 - 它不会在每次编辑后重新计算。

我希望这能有所帮助,安德鲁

    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

相关内容