VBA自动化编程技巧

自动化编程技巧全套VBAi.选中最下，最上，最左，最右的单元格Range对象的end方法可以传递以下几个常量，分别实现底端上下左右的选择常量值内容对应键盘操作xlUp-4162上方向移勤[Ctrl]+[]]xlDown-4121下方向移勤[Ctrl]+[I]xlToLeft-4159左方向移置[Ctrl]+[一]xlToRight-4161右方法移勤[Ctrl]+[―]〈例子1〉Sub Samplel’从Al选择最下面的单元格RangeAl.EndxlDown.SelectEnd Sub例子1虽然可行，但有些情况却不太方便比如以下两种情况那就需要用到例子2中的写法•A1到A列最后一行中有空格•A列为空〈例子2〉Sub Sample2,——A列最余冬行向上找的第一行CellsRows.Count,l.EndxlUp.Select EndSub这样写就比较安全了

2.打开文件操作Application的下面这个方法可以很方便的打开各种文件•GetOpenFilenameFileFilter,Filterindex,Title,ButtonText,MultiSelect参数FileFilter指定任意的字符串描述想要打开的类型，比如〃excel文件〃然后指定类型可以用通配符关于用户取消操作实际操作中会弹出一个对话框让你选文件,如果什么•文件都不选就关闭对话框，这时的返回值为Falseo〈例子3〉Dim OpenFileNameAs StringOpenFileName=Application.GetOpenFilenameexcel文件,*.xls;*.xlsx’用户取消了操作If OpenFileName=False ThenEndEndIfWorkbooks.Open OpenFileName

3.取消画面渲染如果做的处理比较耗时，可以取消画面渲染加快处理速度Application.ScreenUpdating=False//做一些比较耗时的处理Application.ScreenUpdating=True

4.单元格相对位置Range.Offset行方向，列方向座获取相对位置正数代表往下往右所以下面的例子是B2左边一列，也就是A2ORangeB

2.Offset0-1,

5.声明变量同时赋值普通声明一个变量就是Dim xxas xx同时赋值要再写一遍变量名o不得不说真的很麻烦Dim S_ROW AsInteger:S_ROW=RangeAl

6.不显示确认对话框做一些删除之类的操作，如果程序里不自动屏蔽对话框的话，自动化就无从谈起了以下是个简单的例子Application.DisplayAlerts=FalseWorksheets,sheetl,.DeleteApplication.DisplayAlerts=True

7.保存工作簿Workbook.SaveAs方法设置Filename参数即可Dim booklAs Workbookbookl.SaveAsFilename:二ThisWorkbook.Path^AutoSheetxlsx1。