按行动态条件格式设置的最大值和最小值。
创始人
2024-08-22 02:00:11
0

在Excel中,可以通过使用条件格式设置来根据行动态地设置最大值和最小值。下面是一个包含代码示例的解决方法:

Sub ApplyConditionalFormatting()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim maxVal As Double
    Dim minVal As Double

    ' 设置要应用条件格式的工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set rng = ws.Range("A2:A" & lastRow)
    
    ' 找到最大值和最小值
    maxVal = Application.WorksheetFunction.Max(rng)
    minVal = Application.WorksheetFunction.Min(rng)
    
    ' 清除之前的条件格式
    rng.FormatConditions.Delete
    
    ' 设置最大值的条件格式
    With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:="=" & maxVal)
        .Interior.Color = RGB(255, 0, 0) ' 设置背景颜色为红色
    End With
    
    ' 设置最小值的条件格式
    With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:="=" & minVal)
        .Interior.Color = RGB(0, 255, 0) ' 设置背景颜色为绿色
    End With
End Sub

在上面的代码中,我们首先设置了要应用条件格式的工作表和范围。然后,使用Application.WorksheetFunction.MaxApplication.WorksheetFunction.Min函数找到了范围中的最大值和最小值。接下来,我们通过删除之前的条件格式来清除任何现有的条件格式。最后,使用rng.FormatConditions.Add方法来为最大值和最小值分别设置条件格式。在这个示例中,我们将最大值的背景颜色设置为红色,将最小值的背景颜色设置为绿色。

请确保将示例代码中的“Sheet1”更改为您要应用条件格式的工作表的名称,并将范围“A2:A”更改为适当的范围。

相关内容

热门资讯

黑科技科技(wepoke智能a... 黑科技科技(wepoke智能ai)wepower使用说明书(wepOkE)素来是真的有挂(确实有挂)...
黑科技模拟器(wepoke智能... WePoker透视辅助工具核心要点解析‌,黑科技模拟器(wepoke智能ai)wepoke是机器发牌...
黑科技脚本(wepokeai代... 您好,这款游戏可以开挂的,确实是有挂的,需要了解加微【136704302】很多玩家在这款游戏中打牌都...
黑科技辅助挂(wepoke真的... 黑科技辅助挂(wepoke真的有挂)wepoke 软件(wEPOKE)固有真的有挂(有挂猫腻)-哔哩...
黑科技辅助挂(wepoke黑科... 黑科技辅助挂(wepoke黑科技)wepoke软件透明挂演示(wEpOke)一直真的有挂(真的有挂)...
黑科技app(wepoke真的... 此外,数据分析德州()辅助神器app还具备辅助透视行为开挂功能,通过对客户透明挂的深入研究,你可以了...
黑科技智能ai(wepoke辅... 黑科技智能ai(wepoke辅助插件)wepoke软件透明(WEPOke)先前是有挂(果真有挂)-哔...
黑科技模拟器(wepoke透明... 黑科技模拟器(wepoke透明黑科技)wepoke德州扑克用ai代打(WEPOKE)最初存在有挂(有...
黑科技插件(wepoke辅助插... 黑科技插件(wepoke辅助插件)wepoke软件透明(WEPOke)从来是真的有挂(有挂解惑)-哔...
黑科技美元局(wepoke智能... 黑科技美元局(wepoke智能ai)wepoke辅助真的假的(wepoKE)原先真的有挂(竟然有挂)...