Public Function ShowCellData(ByVal CellX As CELLLib.Cell, ByVal col As Long, _
ByVal row As Long, _
ByVal vDat As String, _
Optional ByVal ForeColor As Long = vbBlue, _
Optional ByVal BkColor As Long = vbWhite, _
Optional ByVal IsOnlyReadStats As Boolean = False, _
Optional ByVal IsString As Boolean = False) As Boolean
'填充某个单元格数据
'参数:1 col
' 2 Row
' 3 vDat 数据
'单元格属性 col,row,vDat,ForeColor,BkColor,Stats
'设置相邻的数据条颜色
If (row Mod 2) = 0 Then
BkColor = RGB(239, 239, 237) '&HD2D2D2 '
Else
BkColor = RGB(218, 218, 218)
End If
'vDat = 1
'设置前景和背景
CellX.DoSetCell3DState col, row, IIf((col = 0), 1, 0)
CellX.DoSetCellReadOnly col, row, IsOnlyReadStats
'设置数据的格式
CellX.DoSetCellColor col, row, IIf((col = 0), 0, ForeColor), BkColor
CellX.DoSetCellFont col, row, 8, 0, "SIMSUN"
CellX.DoSetCellAlignment col, row, IIf((col = 0), 32, 2)
If Not IsString Then
' 单元格为数据自动右对齐
CellX.DoSetCellData col, row, IIf(vDat = 0, "", Format(vDat, "#,###,###,###,###,###,###,###,###.#0"))
Else
CellX.DoSetCellAlignment col, row, 1
CellX.DoSetCellString col, row, IIf(IsNull(vDat), "", vDat)
End If
Set CellX = Nothing
End Function