'--------------------交替染色------------------------------
Dim paint As Boolean
With Tables("进项税")
.Sort = "销售方"
For i As Integer = 1 To .Rows.Count -1
If .Rows(i)("销售方") <> .Rows(i-1)("销售方") Then
paint = Not paint
End If
If paint Then
For Each c As Col In .Cols
.SetHeaderCellBackColor(c.Name,Color.Cyan,i+1)
Next
Else
For Each c As Col In .Cols
.SetHeaderCellBackColor(c.Name,Color.Orchid,1)
.SetHeaderCellBackColor(c.Name,Color.Orchid,i+1)
Next
End If
Next
End With
'---------------------------------------------------------
效果如下:
此主题相关图片如下:交替染色02.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-4/20184113501438079.png)
[此贴子已经被作者于2018/4/1 13:50:17编辑过]