|
给你补充点
'***********************************************************************
'函数说明:更改单元格字体的颜色
'参数说明:
' (1)Set_wkSheet工作表名称
' (2)row:列的序号;
' (3)column:行的序号;
' (4)lx:类型,(zt:字体;dyg:单元格),空或其他为字体。
' (5)color:将字体改变为什么颜色
'
'常数 值 描述
'vbBlack &h00 黑色
'vbRed &hFF 红色
'vbGreen &hFF00 绿色
'vbYellow &hFFFF 黄色
'vbBlue &hFF0000 蓝色
'vbMagenta &hFF00FF 紫色
'vbCyan &hFFFF00 青色
'vbWhite &hFFFFFF 白色
'
'***********************************************************************
Function AlterColor(Set_wkSheet,row,column,lx,Color)
Dim wksheet1
Dim cell
Set wkSheet1 = wkBook.Worksheets(Set_wkSheet)
Set cell=wkSheet1.Cells(row, column)
Select Case lcase(lx)
Case "zt" cell.Font.Color=color '改变字体颜色
Case "dyg" cell.Interior.Color=color '改变单元格颜色
Case Else cell.Font.Color=color
End Select
set wkSheet1 = Nothing
End Function |
|