VBA自動(dòng)化編程技巧全套

VBA自動(dòng)化編程技巧全套1.選中最下，最上，最左，最右的單元格Range對(duì)象的end()方法可以傳遞以下幾個(gè)常量，分別實(shí)現(xiàn)底端上下左右的選擇。常量値內(nèi)容對(duì)應(yīng)鍵盤操作xlUp-4162上方向移動(dòng)[Ctrl]+[↑]xlDown-4121下方向移動(dòng)[Ctrl]+[↓]xlToLeft-4159左方向移動(dòng)[Ctrl]+[←]xlToRight-4161右方法移動(dòng)[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的下面這個(gè)方法可以很方便的打開各種文件。?GetOpenFilename（FileFilter,FilterIndex,Title,ButtonText,MultiSelect）參數(shù)FileFilter指定任意的字符串描述想要打開的類型，比如“excel文件”。然后指定類型?？梢杂猛ㄅ浞?。?關(guān)于用戶取消操作實(shí)際操作中會(huì)彈出一個(gè)對(duì)話框讓你選文件,如果什么文件都不選就關(guān)閉對(duì)話框，這時(shí)的返回值為False。<例子3>DimOpenFileNameAsStringOpenFileName=

Application.GetOpenFilename('excel文件,*.xls?;*.xlsx')'用戶取消了操作If(OpenFileName='False')ThenEndEndIfWorkbooks.OpenOpenFileName3.取消畫面渲染如果做的處理比較耗時(shí)，可以取消畫面渲染加快處理速度。

Application.ScreenUpdating=False//做一些比較耗時(shí)的處理

Application.ScreenUpdating=True4.單元格相對(duì)位置Range.Offset(行方向,列方向）來(lái)獲取相對(duì)位置。正數(shù)代表往下，往右。所以下面的例子是B2左邊一列，也就是A2。Range('B2').Offset(0,-1)5.聲明變量同時(shí)賦值普通聲明一個(gè)變量就是Dimxxasxx。同時(shí)賦值要再寫一遍變量名。。。不得不說(shuō)真的很麻煩。DimS_ROWAsInteger:S_ROW=Range('A1')6.不顯示確認(rèn)對(duì)話框做一些刪除之類的操作，如果程序里不自動(dòng)屏蔽對(duì)話框的話，自動(dòng)化就無(wú)從談起了。以下是個(gè)簡(jiǎn)單的例子。Application.DisplayAlerts=FalseWorksheets('sheet1').DeleteApplication.DisplayAlerts=True7.保存工作簿W(wǎng)orkbook.SaveAs方法。設(shè)置Filename參數(shù)即可。Dimbook1