Excel VBA - 条件突出显示 - 突出显示下一个最大值

Question

我的代码采用 3 对值，突出显示最高（或最低值），然后应该突出显示下一个最高（或最低值），以提供第二轮 2 对匹配。

虽然用于突出显示获胜者或前 3 对的代码可能更简洁一些（我选择高于平均水平，但也许有一种方法可以让它选择最高值，而不是上面和下面的逻辑平均值...），我无法让第二部分工作。我采用了制定前 10 名的逻辑，这将为我提供第四个值。我没有收到任何错误，当我调试并尝试打印一个值时，我什么也得不到。

'Highlight winners of first round
    Range("C4:C6").Select
    Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(1).AboveBelow = xlAboveAverage
    Selection.FormatConditions(1).Interior.Color = 5296274
    Range("C9:C11").Select
    Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(1).AboveBelow = xlAboveAverage
    Selection.FormatConditions(1).Interior.Color = 5296274
    Range("C14:C16").Select
    Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(1).AboveBelow = xlAboveAverage
    Selection.FormatConditions(1).Interior.Color = 5296274

'Highlight highest losing analyst
    Range("C4:C16").Select
    If Selection.FormatConditions(1).Interior.Color <> 5296274 Then
        Selection.FormatConditions.AddTop10
        With Selection.FormatConditions
            .TopBottom = xlTop10Top
            .Rank = 10
        End With
        With Selection.FormatConditions.Interior
            .Color = 10092492
        End With
    End If

对我的问题有什么想法吗？

已编辑：添加了一个屏幕截图以显示脚本运行后文件的外观。显示了每场比赛的获胜者，但是，由于下一轮也将是正面交锋，因此我还需要突出显示“第 4”位的人，在这种情况下，人 B

Answer 1

我不确定您是否能够仅使用条件格式来严格执行您正在尝试的操作。在这种情况下，我会避开它们，只使用常规的 vba。将此 sub 中的 'rng' 设置为每组时间的第一个单元格。根据我们的讨论，最低值是每对的赢家。然后检查每个失败者的价值，看它是否低于迄今为止看到的最低价值；如果是，则使用该值更新“minval”变量，并更新指向该单元格的指针“mincell”。

Sub OrgHighestAndNext1()

    Dim rng As Range: Set rng = [C4,C9,C14]

    Range("C" & rng.Row & ":C" & rng.Areas(3).Rows.Row + 2).Interior.ColorIndex = xlColorIndexNone

    Dim cell As Range, scell As Range, mincell As Range
    Dim minval As Double: minval = 9999.9

    For Each cell In rng
      If cell.Value2 < cell.Offset(2, 0).Value2 Then
         cell.Interior.Color = 5296274
         Set scell = cell.Offset(2, 0).Cells
      Else
         cell.Offset(2, 0).Interior.Color = 5296274
         Set scell = cell.Cells
      End If

      If scell.Value2 < minval Then
        Set mincell = scell
        minval = scell.Value2
      End If
    Next

    mincell.Interior.Color = 10092492
End Sub

获胜者（最低）价值被赋予深绿色背景。失败者背景保持不变（如果工作表以这种方式开始，则为白色）。最低的失败者（处理完所有对后的“mincell”所指）被赋予浅绿色。

就排名而言，仅基于从最低到最低的时间 最高的种子排名如下：2,3,5,6,4,1 所以种子 6 是 仅在时间上排名第四。但是如果你排名第一 获胜者次和失败者次 种子排名如下： 2,3,6（这些是赢家）和 5,4,1（输家）。你追求的是 第二种类型的排名——你真的不在乎 获胜者，但确实希望失败者按照最低时间排名，所以 您可以找到最佳（最短）时间的失败者。