作者:乔山办公网日期:
返回目录:excel表格制作
Cells(1, 1).Font.Color
Private Sub Command1_Click()
On Error Resume Next myExcelOpen App.Path & "\班组标准知化建设\2.标准化作业管理\6.派工道单专属\派工单.xls", _ "派工单", "Microsoft Excel - 派工单.xls" xlBook.Worksheets("派工单").Range(1,2).Font.ColorIndex = 3
xlBook.Worksheets("派工单").Range(1,2).FontName = "宋体"
End Sub
条件格式就能搞定了,舍易求难啊
这个用VBA更简单.
sub 改变单元格颜色
’将单前活动工作表的单元格A1填充为红色
ActiveSheet.Range("A1").Interior.Color = 255
End Sub