![](https://csdnimg.cn/release/download_crawler_static/31621198/bg5.jpg)
(84) MsgBox "the average
is :"&Format(Application.WorksheetFunction.Average(Selection),"#,##0.00") vbIn
formation,"selection count average" & Chr(13) ' 应用工作表函数返回所选区域的
平均值并按指定格式显示
(85) Userform1.Show , 显示用户窗体
(86) Load Userform1 , 加载一个用户窗体 ,但该窗体处于隐藏状态
(87) Userform1. Hide , 隐藏用户窗体
(88) Unload Userform1 或 Unload Me , 卸载用户窗体
(89) ( 图像控件 ).Picture=LoadPicture( “图像路径 ”) ,在用户窗体中显示图形
(90) UserForm1.Show 0 或 UserForm1.Show vbModeless , 将窗体设置为无模式状态
(91) Me.Height=Int(0.88*ActiveWindow.Height) , 窗体高度为当前活动窗口高度的 0.88
Me.Width=Int(0.8 8*ActiveWindow.Width) , 窗体宽度为当前活动窗口高度的 0.88
事件
(92) Application.EnableEvents=False ' 禁用所有事件
Application.EnableEvents=True ' 启用所有事件
注:不适用于用户窗体控件触发的事件
对象
(93) Set ExcelSheet = CreateObject("Excel.Sheet") , 创建一个 Excel 工作表对象
ExcelSheet.Application.Visible = True ' 设置 Application 对象使 Excel 可见
ExcelSheet.Application.Cells(1, 1).Value = "Data" ' 在表格的第一个单元中输入文本
ExcelSheet.SaveAs "C:\TEST.XLS" ' 将该表格保存到 C:\test.xls 目录
ExcelSheet.Application.Quit ' 关闭 Excel
Set ExcelSheet = Nothing ' 释放该对象变量
(94) , 声明并创建一个 Excel 对象引用
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
(95) , 创建并传递一个 Excel.Application 对象的引用
Call MySub (CreateObject("Excel.Application"))
(96) Set d = CreateObject(Scripting.Dictionary) , 创建一个 Dictionary 对象变量
(97) d.Add "a", "Athens" ' 为对象变量添加关键字和条目
其他
(98) Application.OnKey “^I ”, ”macro” '设置 Ctrl+I 键为 macro 过程的快捷键
(99) Application.CutCopyMode=False , 退出剪切 /复制模式
(100) Application.Volatile True ' 无论何时工作表中任意单元格重新计算,都会强制计算
该函数