[已解决]VBA条件检查

jk0932

现有一原始数据，有若干行若干列
1，设置了条件格式里和输入提示判断数据输入是否合理，但因为条件格式会上数据变得异常的大，所以想用VBA实现条件检查，需求：
A：剔除原始数据的条件格式，
B：运行后对格式进行检查，如符合要求的标红
原数据条件如下：
收方日期和发方日期不是同一天，则收方日期显示为红色；
谢谢～

实际发货日	对方收货日
2014/11/14 9:13	2014/11/15 10:13

最佳答案

月排行榜 / 总排行榜

冥王

2015-4-16 19:20

1. Sub 宏1()
   
2.     Dim i%, iRow
   
3.     With ActiveSheet
   
4.         iRow = .Range("A1").End(xlDown).Row
   
5.         .UsedRange.FormatConditions.Delete
   
6.         For i = 2 To iRow
   
7.             If Int(.Cells(i, "D")) <> Int(.Cells(i, "E")) Then
   
8.                 .Cells(i, "E").Interior.Color = vbRed
   
9.                 .Cells(i, "I").Interior.Color = vbRed
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub

复制代码

跳转到最佳答案楼层

冥王

1. Sub 宏1()
   
2.     Dim i%, iRow
   
3.     With ActiveSheet
   
4.         iRow = .Range("A1").End(xlDown).Row
   
5.         .UsedRange.FormatConditions.Delete
   
6.         For i = 2 To iRow
   
7.             If Int(.Cells(i, "D")) <> Int(.Cells(i, "E")) Then
   
8.                 .Cells(i, "E").Interior.Color = vbRed
   
9.                 .Cells(i, "I").Interior.Color = vbRed
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub

复制代码

psp120

冥王 发表于 2015-4-16 19:20

我想请教个问题，类似楼主的问题。但唯一不同的是比较的两个单元格里面一个是汉字，一个是由函数得到的汉字。比较它们是否一样，这样的话该怎么修改这个程序。例如 cells (2,2)是一个汉字“有”，cells(2,5)是由一个if函数返回的汉字“有”。如果相同就是绿色，不同就是红色。int(.cells(i,j)) 我不知道这里应该用什么表达。是否就是直接比较 if cells(2,2) = cells(2,5) ........

冥王

psp120 发表于 2015-4-17 18:02
我想请教个问题，类似楼主的问题。但唯一不同的是比较的两个单元格里面一个是汉字，一个是由函数得到的汉 ...

你要想要达到什么效果？ 汉字“有”跟由函数运算得到的“有”，你的要求是相同呢还是不同？

psp120

冥王 发表于 2015-4-17 19:05
你要想要达到什么效果？ 汉字“有”跟由函数运算得到的“有”，你的要求是相同呢还是不同？

效果是相同就是绿色，不同就是红色。谢谢~

冥王

psp120 发表于 2015-4-18 00:47
效果是相同就是绿色，不同就是红色。谢谢~

……

psp120

冥王 发表于 2015-4-18 01:24
……

谢谢您的耐心解答。