BackColor属性直接可以设置所有单元格背景,很快的。如果只是设置部分单元格背景,要关闭控件的实时刷新(Redraw=false),改完颜色以后再刷新 MSHFlexGrid1.Redraw = False For i = 1 To 50 For j = 1 To 39 MSHFlexGrid1.Row = i MSHFlexGrid1.Col = j MSHFlexGrid1.CellBackColor = &HC0C0FF Next j Next i MSHFlexGrid1.Redraw = True
MSHFlexGrid1.Redraw = False
For i = 1 To 50
For j = 1 To 39
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = j
MSHFlexGrid1.CellBackColor = &HC0C0FF
Next j
Next i
MSHFlexGrid1.Redraw = True