以下是引用ppxxww在2013-1-4 21:51:00的发言：
你好！我想要26楼基础上，增加为：第一，二列颜色用灰色，第三列用黄色，第四列用橙色，那上面的代码怎样修改
If e.Col.Name = "第七列" Then
Select Case e.Row.Index Mod 28
Case 0,1,2,3,6,7,8
e.Style = "单元格1"
Case 4,5,10,11,12
e.style = "单元格2"
Case 9
e.Style = "单元格3"
Case 13,14,15,16,17,18,19,20,21,22,23
e.Style = "单元格4"
Case 24
e.Style = "单元格5"
Case 25,26,27
e.Style = "单元格6"
End Select
Else If e.Col.Name = "第一列" OrElse e.Col.Name = "第二列" Then
e.Style = "xxx"
Else If e.Col.Name = "第三列" Then
e.Style = "xxx"
Else If e.Col.Name = "第四列" Then
e.Style = "xxx"
Else If e.Row.Index Mod 28 = 0 Then
e.Style = "蓝"
Else If e.Row.Index Mod 2 = 0 Then
e.Style = "红"
Else
e.Style = "绿"
End If
[此贴子已经被作者于2013-1-5 11:34:11编辑过]
加好友 
发短信
Post By：2013/1/4 22:48:00 [只看该作者]
