首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往
  • 您找到你想要的搜索结果了吗?
    是的
    没有找到

    ExcelVBA运用Excel的【条件格式】(四)

    【我的代码】 Sub AddTop10FormatCondition定位前10位() Dim ws As Worksheet Dim rng As Range ' 设置工作表 ' Set ws = ThisWorkbook.Sheets("Sheet1") Set ws = ActiveSheet ' 清除之前的条件格式 ws.Cells.FormatConditions.Delete ' 设置要应用条件格式的范围 ' Set rng = ws.Range("A1:F20") Set rng = ws.UsedRange.Cells ' 添加前10项的条件格式 ' 注意:这里的参数 TopBottom 设置为 xlTop10Top 表示前10项 ' Percent 设置为 True 表示基于百分比(即前10%的项),如果设置为 False,则表示具体的前10项 ' Rank 设置为 10 表示前10项(或前10%) With rng.FormatConditions.AddTop10 .TopBottom = xlTop10Top .Percent = False ' 使用具体数量而非百分比 .rank = 10 .Interior.Color = RGB(255, 255, 0) ' 设置背景色为黄色 End With ' 清除任何现有的条件格式(可选,如果你只想保留这一个条件格式) ' rng.FormatConditions.Delete End Sub 【拓展】 以上代码你会写吗?想想

    01
    领券