如果数字介于 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