[已解决]填充颜色

left369

填充颜色

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-10-15 21:50

1. Sub a()
   
2. Dim i&, j&
   
3. For i = 16 To Cells(Rows.Count, 2).End(3).Row
   
4.     For j = 2 To Cells(16, Columns.Count).End(xlToLeft).Column
   
5.         If Cells(i, j) Mod 2 = 0 Then
   
6.            Cells(i, j).Interior.ColorIndex = 3
   
7.         End If
   
8.     Next
   
9. Next
   
10.    
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

gdpgdp317

红色.rar (4.07 KB, 下载次数: 4)

2014-10-15 21:48 上传

点击文件名下载附件
条件格式

这儿有肥猫

供参考

这儿有肥猫

1. Sub a()
   
2. Dim i&, j&
   
3. For i = 16 To Cells(Rows.Count, 2).End(3).Row
   
4.     For j = 2 To Cells(16, Columns.Count).End(xlToLeft).Column
   
5.         If Cells(i, j) Mod 2 = 0 Then
   
6.            Cells(i, j).Interior.ColorIndex = 3
   
7.         End If
   
8.     Next
   
9. Next
   
10.    
    
11. End Sub
    

复制代码

su45

还是用条件格式方便