'你可以参考以下代码
With Flex
.Redraw = False
.BackColorFixed = RGB(0, 128, 255) 'RGB(200, 208, 168)
.BackColorFixed = RGB(195, 187, 245) 'RGB(200, 208, 168)
.Row = 0
.Col = 0
.ColSel = .Cols - 1
.CellForeColor = RGB(255, 255, 0)
.CellForeColor = RGB(0, 0, 0)
.CellAlignment = 4
.ScrollTrack = True
For I = .FixedRows To .Rows - 1
.Row = I
.Col = .FixedCols
.ColSel = .Cols - 1
If I / 2 = Int(I / 2) Then
.CellBackColor = RGB(224, 248, 224)
'Else
'.CellBackColor = RGB(0, 128, 255)
End If
Next I
.Redraw = True
End With
With Flex
.Redraw = False
.BackColorFixed = RGB(0, 128, 255) 'RGB(200, 208, 168)
.BackColorFixed = RGB(195, 187, 245) 'RGB(200, 208, 168)
.Row = 0
.Col = 0
.ColSel = .Cols - 1
.CellForeColor = RGB(255, 255, 0)
.CellForeColor = RGB(0, 0, 0)
.CellAlignment = 4
.ScrollTrack = True
For I = .FixedRows To .Rows - 1
.Row = I
.Col = .FixedCols
.ColSel = .Cols - 1
If I / 2 = Int(I / 2) Then
.CellBackColor = RGB(224, 248, 224)
'Else
'.CellBackColor = RGB(0, 128, 255)
End If
Next I
.Redraw = True
End With
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货