求一个excel中分析数列的宏

来源：百度知道 编辑：UC知道 时间：2024/06/11 13:25:08
数据共有ABCD四列。当ABC列中的数据小于D列数据的90%时，单元格显示为红色；当大于D列数据的110%时显示为蓝色。
例如当A1=8 B1=13 C1=15 D1=12,那么A1显示为红色，C1D1显示为蓝色。这个格式要应用到列，大概有200多行的数据要进行这样的分析

我用的是office2007，里面的条件格式分析一行数据还是可以，但我应用到200行就不行了。 请高人指点

用这段宏代码试试.只用于处理最多300行数据.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i%, j%
Dim m!, n!, o!
For i = 1 To 300
For j = 1 To 3
m = Cells(i, j).Value
n = Cells(i, 4).Value * 0.9
o = Cells(i, 4).Value * 1.1
If m < n Then
Cells(i, j).Font.ColorIndex = 3
ElseIf m > o Then
Cells(i, j).Font.ColorIndex = 5
End If
Next j
Next i
End Sub

一、条件格式可用格式刷向下复制。

二、选定所有200行的数据范围(A1:C200)再设定条件格式（按第一行设定公式）就行了。
条件1为:
公式=A1<$D1*0.9
条件2为:
公式=A1>$D1*1.1