作者：乔山办公网日期：
返回目录：excel表格制作
VBA中控件的字体都可以在控件属性中进行设置
包括字体、字号、颜色等等属性
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
Cells(1, 1).Font.ColorIndex = 3 '字的颜色百号为3 红色
Cells(1, 1).Interior.ColorIndex = 3 ' 背景的度颜色为内3 红色
Cells(2, 1).Font.Color = RGB(0, 255, 0) '字的颜色绿色容
Cells(2, 1).Interior.Color = RGB(0, 0, 255) '背景的颜色蓝色
'发送消息函数 (SendMessage)
Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'查找窗体名函数 (SendMessage)
Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Function myExcelOpen(MyExcelAddress As String, Mysheet As String, MyCaption As String) '打开Excel文件函数 MyExcelAddress 路径下的Excel文件
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
MyWinHwnd = FindWindow(vbNullString, MyCaption) '调用FindWindow api 函数 "查找" 适合条件的窗口
If MyWinHwnd <> 0 Then
MsgBox "文件已经打开"
SetForegroundWindow MyWinHwnd '设置为活动e68a84e8a2ad7a686964616f332窗口
SendMessage MyWinHwnd, SW_SHOWMAXIMIZED, 0, 0
Exit Function
Else
Set xlBook = xlApp.Workbooks.Open(MyExcelAddress) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(Mysheet) '设置活动工作表
xlBook.Worksheets(Mysheet).Select
End If
End Function
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