[已解决]每隔五行显示一斜排不同色彩请帮搞个这样的

cxdx7

请那位高手帮编个能每隔五行显示一斜排不同色彩的VBA程序，如图一样效果。本人只会按着CTRL键一个一个点。谢谢了！！！

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-4-9 16:32

条件格式：

1. =MOD(ROW()-COLUMN(),5)=1

复制代码

然后选择背景为红色就可以了。
具体中间的加减或者其他添加减少某个固定值，可以根据你要的表格进行微调。

跳转到最佳答案楼层

兰色幻想

这个可以用条件格式完成的，上传一个表格吧

放浪形骸

条件格式：

1. =MOD(ROW()-COLUMN(),5)=1

复制代码

然后选择背景为红色就可以了。
具体中间的加减或者其他添加减少某个固定值，可以根据你要的表格进行微调。

liuts

1. Sub aa()
   
2. Dim i As Integer, j As Integer
   
3. i = InputBox("开始的第一单元格所在行数")
   
4. j = InputBox("开始的第一单元格所在列数")
   
5. p = InputBox("结束的最后一单元格所在行")
   
6. q = InputBox("结束的最后一单元格所在列")
   
7. x = i
   
8. y = j
   
9. For y = j To q
   
10. For x = i To p Step 5
    
11. Cells(x, y).Interior.ColorIndex = 3
    
12. Next
    
13. i = i + 1
    
14. Next
    
15. End Sub

复制代码

有点复杂了，按楼主要求，用VBA程序

linlan9999

好复杂，都学不会～～～1

cxdx7

谢谢几位大侠，太感谢了！！