[已解决]判断单元格背景颜色是否相同求教。

jkc24

原表请下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-28 19:13

1. Sub Macro1()
   
2. For i = 1 To 5
   
3.     If Cells(i, 1).Interior.ColorIndex = Cells(i, 2).Interior.ColorIndex Then
   
4.         Cells(i, 3) = "对"
   
5.     Else
   
6.         Cells(i, 3) = "错"
   
7.     End If
   
8. Next
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. For i = 1 To 5
   
3.     If Cells(i, 1).Interior.ColorIndex = Cells(i, 2).Interior.ColorIndex Then
   
4.         Cells(i, 3) = "对"
   
5.     Else
   
6.         Cells(i, 3) = "错"
   
7.     End If
   
8. Next
   
9. End Sub
   

复制代码

jkc24

dsmch 发表于 2014-4-28 19:13

谢谢得不得了，解决我大问题。

jkc24

dsmch 发表于 2014-4-28 19:13

追问一下，你给的方法不适用于条件格式设置的单元格颜色，我试了，单元格填充颜色的的就可以，有办法解决吗？

jkc24

jkc24 发表于 2014-4-28 22:04
追问一下，你给的方法不适用于条件格式设置的单元格颜色，我试了，单元格填充颜色的的就可以，有办法解决 ...

dsmch

1. Sub Macro2()
   
2. For i = 11 To 15
   
3.     If Cells(i, 1) = Cells(11, 1) And Cells(i, 2) = Cells(11, 1) Then
   
4.         Cells(i, 3) = "对"
   
5.     Else
   
6.         Cells(i, 3) = "错"
   
7.     End If
   
8. Next
   
9. End Sub

复制代码

yewei113

学习了，复制下来以后用