excel - 加粗的前 50% 的总和值和值 => 50,000

Question

Sub Highlight_Top50_AND_50K()
    Dim CheckRange As Range
    With ActiveSheet
        Set CheckRange = .Range("E2:E" & .Cells(.Rows.Count, "E").End(xlUp).Row)
    End With

    With CheckRange
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="=0.5*SUM(E:E)", Formula2:="=50,000"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1)
            .Font.Bold = True
            .StopIfTrue = False
        End With
    End With
End Sub

在范围内 (E2:E)，

条件 1: 的粗体值大于等于总和值的 50% .

条件 2: 的粗体值大于等于 50,000 .

代码运行没有错误，但没有生成任何内容。有人可以启发我吗？

Answer 1

测试下面的代码，看看它是否适合你。您发布的代码仅添加了一个条件，而不是您声明的两个条件!

With CheckRange
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="50000"
    With .FormatConditions(1)
        .Font.Bold = True
        .StopIfTrue = False
    End With
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="=0.5*SUM(E:E)"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1)
        .Font.Bold = True
        .StopIfTrue = False
    End With
End With