自定义间隔色

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