|
本帖最后由 jk0932 于 2015-4-26 22:04 编辑
现有一原始数据,有若干行若干列
1,设置了条件格式里和输入提示判断数据输入是否合理,但因为条件格式会上数据变得异常的大,所以想用VBA实现条件检查,需求:
A:剔除原始数据的条件格式,
B:运行后对格式进行检查,如符合要求的标红
原数据条件如下:
收方日期和发方日期不是同一天,则收方日期显示为红色;
谢谢~
实际发货日 | 对方收货日 | 2014/11/14 9:13 | 2014/11/15 10:13 |
- Sub 宏1()
- Dim i%, iRow
- With ActiveSheet
- iRow = .Range("A1").End(xlDown).Row
- .UsedRange.FormatConditions.Delete
- For i = 2 To iRow
- If Int(.Cells(i, "D")) <> Int(.Cells(i, "E")) Then
- .Cells(i, "E").Interior.Color = vbRed
- .Cells(i, "I").Interior.Color = vbRed
- End If
- Next
- End With
- End Sub
复制代码
|
|