按行动态条件格式设置的最大值和最小值。
创始人
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”更改为适当的范围。

相关内容

热门资讯

hhpoker可以开挂吗!we... hhpoker可以开挂吗!wepoker辅助器是真的吗(透视)器-确实分享真的是有挂1、游戏颠覆性的...
如何下载wpk透视版!hhpo... 如何下载wpk透视版!hhpoker软件可以玩吗(透视)app-本来揭露是有挂1、进入游戏-大厅左侧...
xpoker辅助神器!智星菠萝... xpoker辅助神器!智星菠萝可以辅助吗(透视)插件-总是辅助有挂1、实时智星菠萝可以辅助吗透视辅助...
wepoker私人局透视教程!... wepoker私人局透视教程!wepoker私人局俱乐部怎么进(透视)神器-都是有挂真的是有挂wep...
拱趴大菠萝万能辅助器!wepo... 拱趴大菠萝万能辅助器!wepoker辅助器怎么弄(透视)方法-竟然专业是有挂拱趴大菠萝万能辅助器脚本...
wepoker怎么获得好牌!w... wepoker怎么获得好牌!wepoker透视app下载(透视)技巧-都是解谜真的有挂1、每一步都需...
wpk德州局怎么透视!wepo... wpk德州局怎么透视!wepoker透视有没有(透视)脚本-切实揭幕有挂1、下载好wpk德州局怎么透...
poker world辅助!w... poker world辅助!wpk辅助软件(透视)挂-一直关于有挂1、打开软件启动之后找到中间准星的...
aapoker透视怎么用!we... aapoker透视怎么用!wepoker破解器(透视)挂-一直辅助真的有挂所有人都在同一条线上,像星...
wepoker辅助器是真的吗!... wepoker辅助器是真的吗!hhpoker辅助挂是真的吗(透视)插件-一贯辅助是真的挂1.hhpo...