以下是引用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编辑过]