[已解决]一个关于单元格上色的问题！！！

excel6699

表格中有VBA代码，请老师帮我修改成这种效果！！！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-21 11:49

1. Sub 上色()
   
2.     Dim rg As Range
   
3.     Dim x As Byte
   
4.     For Each rg In Range("c10:c" & [C65536].End(xlUp).Row)
   
5.         If rg.Value <> rg.Offset(-1, 0).Value Then
   
6.             x = IIf(x = 22, 31, 22)
   
7.             rg.Resize(, 5).Interior.ColorIndex = x
   
8.         Else
   
9.             x = IIf(x = 22, 22, 31)
   
10.             rg.Resize(, 5).Interior.ColorIndex = x
    
11.         End If
    
12.     Next
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

你这上色有依据吗？
如果有的话，直接用条件格式也可以的。

hwc2ycy

1. Sub 上色()
   
2.     Dim rg As Range
   
3.     Dim x As Byte
   
4.     For Each rg In Range("c10:c" & [C65536].End(xlUp).Row)
   
5.         If rg.Value <> rg.Offset(-1, 0).Value Then
   
6.             x = IIf(x = 22, 31, 22)
   
7.             rg.Resize(, 5).Interior.ColorIndex = x
   
8.         Else
   
9.             x = IIf(x = 22, 22, 31)
   
10.             rg.Resize(, 5).Interior.ColorIndex = x
    
11.         End If
    
12.     Next
    
13. End Sub
    

复制代码

hwc2ycy

C9那一行如果也要上的话就加一句

1. range("c9").resize(,5).Interior.ColorIndex = 3

复制代码

hwc2ycy

因为原来你的代码只给C列的单元格上了色，现在还得把另外该行另外的几列都要上色。
所以用RESIZE改变区域大小，行不变，列扩充为5列。

hwc2ycy

能够用IIF来做切换开关，这个用得好，加油。

excel6699

hwc2ycy 发表于 2012-10-21 11:54
能够用IIF来做切换开关，这个用得好，加油。

谢谢老师帮忙~！{:3212:}