Sub AboveAverage()
Range("a1").Value = "Name"
Range("b1").Value = "Value"
Range("a2").Value = "Channel-1"
Range("a2").AutoFill Destination:=Range("a2:a10"), Type:=xlFillDefault '自动填充
Range("b2:b10").FormulaArray = "=int(rand()*100)" '数组公式
Range("b2:b10").Select
Selection.FormatConditions.AddAboveAverage
Selection.FormatConditions(1).SetFirstPriority
' Selection.FormatConditions(1).AboveBelow = xlAboveAverage '高于平均值
Selection.FormatConditions(1).AboveBelow = xlBelowAverage '低于平均值
With Selection.FormatConditions(1).Font
.Bold = True
'3-红色,4-浅绿色,5-蓝色,6-黄色,7-洋红,8-浅蓝
'9-褐色,10-深绿色,11-墨汁蓝
.ColorIndex = 5
End With
Range("b2").Select
'删除指定单元格的条件格式
Range("b2:b10").FormatConditions.Delete
End Sub
VBA平均格式规则AddAboveAverage
最新推荐文章于 2022-05-09 22:32:13 发布