友情提示：本文共有 2641 个字，阅读大概需要 6 分钟。
81 Ans=MsgBox(“Continue?”,vbYesNo) 在消息框中点击“是”按钮，则Ans值为vbYes；点击“否”按钮，则Ans值为vbNo。
82 If MsgBox(“Continue?”,vbYesNo)<>vbYes Then Exit Sub 返回值不为“是”，则退出
83 Config=vbYesNo+vbQuestion+vbDefaultButton2 使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮
84 MsgBox “This is the first line.” & vbNewLine & “Second line.” 在消息框中强制换行，可用vbCrLf代替vbNewLine。
85
MsgBox "theaverage is :"&Format(Application.WorksheetFunction.Average(Selection),"#,##0.00") vbInformation,"selection count average" & Chr(13) 应用工作表函数返回所选区域的平均值并按指定格式显示
86 Userform1.Show 显示用户窗体
87 Load Userform1 加载一个用户窗体,但该窗体处于隐藏状态
88 Userform1.Hide 隐藏用户窗体
89 Unload Userform1 或 Unload Me 卸载用户窗体
90 (图像控件).Picture=LoadPicture(“图像路径”) 在用户窗体中显示图形
91 UserForm1.Show 0 或 UserForm1.Show vbModeless 将窗体设置为无模式状态
92 Me.Height=Int(0.88*ActiveWindow.Height) 窗体高度为当前活动窗口高度的0.88
93 Me.Width=Int(0.88*ActiveWindow.Width) 窗体宽度为当前活动窗口高度的0.88
94 Application.EnableEvents=False 禁用所有事件
95 Application.EnableEvents=True 启用所有事件
96 Set ExcelSheet = CreateObject("Excel.Sheet") 创建一个Excel工作表对象
97 ExcelSheet.Application.Visible = True 设置 Application 对象使 Excel 可见
98 ExcelSheet.Application.Cells(1, 1).Value = "Data" 在表格的第一个单元中输入文本
99 ExcelSheet.SaveAs "C:TEST.XLS" 将该表格保存到C:test.xls 目录
100 ExcelSheet.Application.Quit 关闭 Excel
101 Set ExcelSheet = Nothing 释放该对象变量
102 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)
声明并创建一个Excel对象引用
103 Call MySub (CreateObject("Excel.Application")) 创建并传递一个 Excel.Application 对象的引用
104 Set d = CreateObject(Scripting.Dictionary) 创建一个 Dictionary 对象变量
105 d.Add "a", "Athens" "为对象变量添加关键字和条目
106 Application.OnKey “^I”,”macro” 设置Ctrl+I键为macro过程的快捷键
107 Application.CutCopyMode=False 退出剪切/复制模式
108 Application.Volatile True 无论何时工作表中任意单元格重新计算，都会强制计算该函数
109 Application.Volatile False 只有在该函数的一个或多个参数发生改变时，才会重新计算该函数
110 Err.Clear 清除程序运行过程中所有的错误
111 ThisWorkbook.BuiltinDocumentProperties(“Last Save Time”) 返回上次保存工作簿的日期和时间
112 Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Save Time”) 返回上次保存工作簿的日期和时间
113 ThisWorkbook.BuiltinDocumentProperties("Last Print Date") 返回上次打印或预览工作簿的日期和时间
114 Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Print Date”) 返回上次打印或预览工作簿的日期和时间
115 Workbooks.Close 关闭所有打开的工作簿
116 ActiveWorkbook.LinkSources(xlExcelLinks)(1) 返回当前工作簿中的第一条链接
117 ActiveWorkbook.CodeName返回工作簿代码的名称
117 ThisWorkbook.CodeName 返回工作簿代码的名称
118 ActiveWorkbook.FileFormat 返回当前工作簿文件格式代码
119 ThisWorkbook.FileFormat 返回当前工作簿文件格式代码
120 ThisWorkbook.Path返回当前工作簿的路径(注:若工作簿未保存,则为空)
本文如果对你有帮助，请点赞收藏《VBA代码常用语句第81》，同时在此感谢原作者。
