[已解决]在特定条件下 要怎么才能把空白格所在的那行前几列涂上颜色

mathking77

C列和D列是时间数据

要求：C列和D列   如果一格存在数据 一格为空白格，那么把这一行前6列涂成黄色
                            如果两个都有数据 或者 两个都是空白格，那就不用涂颜色

执行完代码后效果如图

然后 如果我在黄色行把那格空白格补填上时间数据后 再执行一遍代码 能够让那一行黄色都消失， 其他没有补填的行 颜色依然存在

代码需要如何写？

求教

最佳答案

月排行榜 / 总排行榜

dsmch

2016-6-26 18:16

1. Sub Macro1()
   
2. [a:f].Interior.ColorIndex = xlNone
   
3. For i = 1 To [c:d].Find("*", searchdirection:=xlPrevious).Row
   
4.     If Application.CountA(Cells(i, 3).Resize(1, 2)) = 1 Then
   
5.         Cells(i, 1).Resize(1, 6).Interior.ColorIndex = 6
   
6.     End If
   
7. Next
   
8. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. [a:f].Interior.ColorIndex = xlNone
   
3. For i = 1 To [c:d].Find("*", searchdirection:=xlPrevious).Row
   
4.     If Application.CountA(Cells(i, 3).Resize(1, 2)) = 1 Then
   
5.         Cells(i, 1).Resize(1, 6).Interior.ColorIndex = 6
   
6.     End If
   
7. Next
   
8. End Sub

复制代码