Private Sub RowColor() '自定義間隔色
With MSHFlexGrid1
'.Redraw = False
For k = 1 To .Rows - 1
.Row = k
If k Mod 2 = 0 Then
For J = 0 To .Cols - 1
.Col = J
.CellBackColor = &HFFFFF4 'RGB(255, 255, 240)
Next J
End If
Next
'.Redraw = True
End With
End Sub
本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)
點(diǎn)擊舉報(bào)。