1,451
社区成员
发帖
与我相关
我的任务
分享MsFlexGrid在设置单元格字体颜色时，是否可以不将当前单元格焦点设置过去？
修改单元格颜色是否能够不修改.Row和.Col属性就可以实现：
'设置颜色：
With objMsFlexGrid
'保留原始位置：
intRowOld = objGrid.Row
intColOld = objGrid.Col
'设置需要更新颜色的位置：
.Row = intRow
.Col = intCol
'根据数值更新颜色：
If CDbl(strSetValue) < 0 Then
.CellForeColor = vbRed
Else
.CellForeColor = vbBlack
End If
'恢复原始位置：
.Row = intRowOld
.Col = intColOld
'设置颜色：
With objMsFlexGrid
'保留原始位置：
intRowOld = objGrid.Row
intColOld = objGrid.Col
'设置需要更新颜色的位置：
.Row = intRow
.Col = intCol
'根据数值更新颜色：
If CDbl(strSetValue) < 0 Then
.CellForeColor = vbRed
Else
.CellForeColor = vbBlack
End If
'恢复原始位置：
.Row = intRowOld
.Col = intColOld
...全文
请发表友善的回复…
发表回复
13161795500 2003-02-15
- 打赏
- 举报
End With
