VBA程序开发语句集锦解析Word文档格式.docx

1、.Worksheets（Sheet1.Cells（1, 1.Formula = Workbooks（.Cells（1, 1.Value = 所赋的数值5Switch关闭屏幕更新Application.ScreenUpdating = False执行以上语句后,将停止屏幕显示更新动作,可以达到提高运算速度、避免屏幕闪动的效果6Sentence查找数据区域某列的最大行号RowMax=Workbooks（ExcelBookName.Worksheets（SheetName.Cells（65536,C1.End（xlUp.Row其中C1为指定的某列的列号7Sentence查找数据区域某行的最大列号Co

2、lMax=Workbooks（ExcelBookName.Worksheets（SheetName.Cells（R1, 255.End（xlToLeft.Column其中R1为指定的某行的行号获取数据区的最大列号获取第3行的最大列号:Worksheets（1.cells（3,255.End（xlToLeft.Column8Sentence复制工作表内所有单元格Cells.Copy9Switch关闭预警设置Application.DisplayAlerts = False （Application.DisplayAlerts = True 当执行文件存盘,在存储目录中有相同名称的文件时,如果执行

3、了以上语句,则不再提出预警一般在使用完以上语句后,则立即执行括号内的对应语句,避免不可预知的错误发生10Switch关闭文件时不执行存盘动作Workbooks（File.Close savechanges:=False11Function从一个字符串中截取一个子串Mid（string, start,x;其中string为原字符串,start为开始位置,x为截取子字符串的长度也可以使用函数:Right（text,num_chars和 Left（text,num_chars返回子字符串12Function计算两个日期之间的天数、月份语法:= DATEDIF（start_date,end_date,

4、unit数、年数 1.Start_date:代表一段时期的第一个日期或起始日的日期。日期可以放在引号内作为文本字符串输入（如 2001-1-30,也可以作为序列数（如 36921,如果使用的是 1900 日期系统,则它代表2001年1 30 日输入,或作为其他公式或函数的结果（如 DATEVALUE（输入。2.End_date:代表一段时期的最后一个日期或结束日的日期。3.Unit:要返回的信息的类型:Y,MDMDYMYD表示返回忽略了年份的天数;表示返回忽略了年份和月份的天数13Switch强制要求对变量进行定义Option Explicit在模块的开始部分执行以上语句,则所有变量必须先行定

5、义之后才能使用14Sentence使用程序在单元格内写入公式ActiveSheet.Cells（4, 11.FormulaR1C1 = =SUM（R2C:R65532C15Sentence判断语句1 If Then Else ; If Then Else End If（此形式为多行写法If condition Then statementsElse elsestatementsEnd If2 Select Case Case Case Else End Case16Sentence循环语句1 For counter = start To end Step step Exit For Next

6、counter2 For Each element In group Exit For Next3 Do while |until condition Exit Do Loop4 Do Exit Do Loop while |until condition17Sentence auto_open and auto_close Sub auto_open（ Sub End; Sub auto_close（ Sub End当Exel文件打开时或者关闭时执行的模块18Function Excel 定时器Application.OnTime Now + TimeValue（00:05:00 SaveI

7、t以上语句的功能为,当执行以上语句5分钟后,执行过程SaveIt,从而起到延时功能Application.OnTime TimeValue（17:, Show_my_msg以上语句的功能为,当执行以上语句后,在之后的17点钟调用过程 Show_my_msg19Sentence调用Windows打开文件对话框FileName = Application.GetOpenFilename（Excel 文件 （*.xls,*.xls执行以上语句后,即出现Windows打开文件对话框,选择文件后,变量FileName的内容即为需要打开文件的路径名和文件名20Switch显现和隐藏工作表隐藏工作表:She

8、ets（.Visible = False显现工作表:.Visible = True21Switch删除工作表上的按钮ActiveSheet.Shapes（CommandButton1.Delete22Sentence当前工作薄另存ActiveWorkbook.SaveAs FileName:=FilePatch & FileName23File关闭当前工作薄ActiveWindow.Close24Exprresion使用公式计算行号（列号返回当前的行号:=row（返回当前的列号:=Column（25Error ByRef参数不符的原因 1.传递的变量未定义参数类型,系统默认为Variant类型

9、,导致传递时类型不符;2.变量定义方式不正确:如 Dim I,j as Integer,中的i认为没有定义26Serface各个常用工具栏的显示和隐藏Application.CommandBars（Worksheet Menu Bar.Enabled = True 显示菜单栏,False隐藏Application.CommandBars（Toolbar List显示工具栏,False隐藏下同Standard.Visible = True 显示常用工具栏Formatting显示格式工具栏Application.DisplayFormulaBar = True 显示编辑栏With ActiveWi

10、ndow .DisplayGridlines = True 显示网格.DisplayHeadings = True 显示行号列标.DisplayOutline = True 显示分级显示符号.DisplayZeros = True 显示零值 .DisplayHorizontalScrollBar = True 显示水平滚动条 .DisplayVerticalScrollBar = True 显示垂直滚动条 .DisplayWorkbookTabs = True 显示工作表标签27Event文件关闭事件Private Sub Workbook_BeforeClose（Cancel As Bool

11、ean End Sub28Event失去焦点事件Private Sub Workbook_WindowDeactivate（ByVal Wn As Window End Sub28Sentence使用语句设置单元格公式在当前A1单元格内输入公式:=C2,则分别表现为Formula与FormulaR1C1的区别Cells（1,1.Formula = =C2Cells（1,1.FormulaR1C1 = =R1C2 其中1与2为单元格相对偏移量29Sentence On Error Resume Next 说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。30Pu

12、blic Const用于在文件级强制对该文件中的所有变量进行显式声明31Sentence Public用于定义公用的全局变量32Function ASCII码与字符之间的转换函数Chr（65的值为A;Asc（A的值为6533Sentence Option Explicit用在模块的头部,要求强制对使用的变量进行预定义34Operation Shift键以图片格式复制选定一单元格区域,按住Shift键,同时在主菜单中:编辑=复制图片35Operation转置粘贴使用选择性粘贴,选择对话框中的转置选项即可。36Sentence VBA 生成下拉选单的设置 1.设置下拉选单,同时不允许输入选单意外的内容Cells（I,j.Validation.DeleteCells（I,j.Validation.Add Type:=xlValidateList, Formula1:=SelectList2.设置下拉选单,但是可以输入选单以外的内容Cells（I,j.Validation.ShowErrow = False37Sentence禁止/启用事件触发 1.禁止所有事件:Application.EnableEvents = False2.启用所有事件:Application.EnableEvents = Tru