Question

我有一个列，其中包含每个时期的销售数据，例如：

PERIOD         STORE 1
W 2016 16   49,45
W 2016 17   51,02
W 2016 18   51,22

每个列都代表一个商店，我必须手动检查200多个列是否存在异常。

我编写了一个代码来检查每列的平均值，然后突出显示高于/低于平均值的值，但是效果不佳...

Sub Macro1()
'
' Macro1 Macro
'

'
Dim c As Range, fc As ColorScale

For Each c In Range("A1:CD1").Cells

    Set fc = c.EntireColumn.FormatConditions.AddColorScale( _
                                               ColorScaleType:=3)
    fc.SetFirstPriority
    fc.ColorScaleCriteria(1).Type = xlConditionValueLowestValue
    With fc.ColorScaleCriteria(1).FormatColor
        .Color = 255
        .TintAndShade = 0
    End With
    fc.ColorScaleCriteria(2).Type = xlConditionValuePercentile
    fc.ColorScaleCriteria(2).Value = 50
    With fc.ColorScaleCriteria(2).FormatColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    fc.ColorScaleCriteria(3).Type = xlConditionValueHighestValue
    With fc.ColorScaleCriteria(3).FormatColor
        .Color = 255
        .TintAndShade = 0
    End With

Next c
End Sub

我希望有一些东西可以简单地计算每列的平均值，然后用红色突出显示比每列最高/最低值高/低15％的值，因为那是“ d可能是我的数据库出错。

有人对此有任何见识吗？

预先感谢：）

检查列中的值是否高于平均值

0 个答案: