vba文件夹代码大全（常用VBA代码81-120则）

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返回当前工作簿的路径(注:若工作簿未保存,则为空)

,