VBA自动化编程技巧全套

VBA自动化编程技巧全套1.选中最下，最上，最左，最右的单元格Range对象的end()方法可以传递以下几个常量，分别实现底端上下左右的选择。常量値内容对应键盘操作xlUp-4162上方向移動[Ctrl]+[↑]xlDown-4121下方向移動[Ctrl]+[↓]xlToLeft-4159左方向移動[Ctrl]+[←]xlToRight-4161右方法移動[Ctrl]+[→]<例子1>SubSample1()'从A1选择最下面的单元格Range('A1').End(xlDown).SelectEndSub例子1虽然可行，但有些情况却不太方便。比如以下两种情况。那就需要用到例子2中的写法。•A1到A列最后一行中有空格。•A列为空。________________________________________<例子2>SubSample2()'----A列最終行向上找的第一行Cells(Rows.Count,1).End(xlUp).SelectEndSub这样写就比较安全了。2.打开文件操作Application的下面这个方法可以很方便的打开各种文件。•GetOpenFilename（FileFilter,FilterIndex,Title,ButtonText,MultiSelect）参数FileFilter指定任意的字符串描述想要打开的类型，比如“excel文件”。然后指定类型。可以用通配符。•关于用户取消操作实际操作中会弹出一个对话框让你选文件,如果什么文件都不选就关闭对话框，这时的返回值为False。<例子3>DimOpenFileNameAsStringOpenFileName=

Application.GetOpenFilename('excel文件,*.xls?;*.xlsx')'用户取消了操作If(OpenFileName='False')ThenEndEndIfWorkbooks.OpenOpenFileName3.取消画面渲染如果做的处理比较耗时，可以取消画面渲染加快处理速度。

Application.ScreenUpdating=False//做一些比较耗时的处理

Application.ScreenUpdating=True4.单元格相对位置Range.Offset(行方向,列方向）来获取相对位置。正数代表往下，往右。所以下面的例子是B2左边一列，也就是A2。Range('B2').Offset(0,-1)5.声明变量同时赋值普通声明一个变量就是Dimxxasxx。同时赋值要再写一遍变量名。。。不得不说真的很麻烦。DimS_ROWAsInteger:S_ROW=Range('A1')6.不显示确认对话框做一些删除之类的操作，如果程序里不自动屏蔽对话框的话，自动化就无从谈起了。以下是个简单的例子。Application.DisplayAlerts=FalseWorksheets('sheet1').DeleteApplication.DisplayAlerts=True7.保存工作簿Workbook.SaveAs方法。设置Filename参数即可。Dimbook1