千萬別學VBA(宏),我是認真的!

1、千萬別學VBA（宏），我是認真的!原創(chuàng)2017-02-19 蘭色幻想-趙志東Excel精英培2 Excel精英培訓蘭色曾對很多Excel技巧和函數(shù)高手說，千萬別學宏。因為一旦愛上宏編程，Excel圈里很快就會少了一個技巧或函數(shù)高手！Why?耐心看下去你就會明白。一、什么是宏？先舉個例子：Excel有一個任務(wù)：在 C列值的基礎(chǔ)上加上 B列的值。. 選取B列并復制.選取C列右鍵-選擇性粘貼-力口完成！如上，你在Excel中進行的一系列的 操作過程，就是一個宏。 操作過程（宏） 可以是步也可以是若干步，使用一個Excel命令或多個Excel命令。宏，我們也可以看成是一個個可以完成特定目標的功能學習宏

2、 ？Excel 提供了很多功能，可以完成各種操作。篩選數(shù)據(jù)有自動篩選和高級篩選，匯總數(shù)據(jù)有分類匯總、數(shù)據(jù)透視表等但還是有 Excel 無能為力的時候。比如：批量取消工作表隱藏批量合作多個工作表或Excel 文件批量 有難題就需要有解決辦法，怎么辦，怎么辦？有辦法。就是Excel 中沒有的功能，我們自已添加 ，也就是我們自已 編寫可以完成指定功能的 宏 。就象 Excel 內(nèi)置功能一樣，可以供我們隨時使用。三、怎么 編寫宏有一種語言，它的名稱叫 VBA (visual baisic for application )，它是 Excel 所支持的開發(fā)語言，也就是說，我們可以用 VBA 語言來編寫我

3、們需要的功能( 宏 )，除此之外，我們還 可以用 VBA 來 編寫 Excel 函數(shù) 。在哪 編寫宏有一個窗口，都叫它 VBE 編輯器 。你可以在工作表標簽上右鍵菜單中點擊” 查看代碼“就可以打開它。更多的是我們通過”開發(fā)工具“選項卡打開這個界面。需要什么功能，就可以編寫什么功能，需要什么函數(shù)，就可以編寫什么函數(shù) ，工作中再也沒有我們完不成的任務(wù)。還有什么理由可以讓我們不向往強大的 宏編程 ( VBA 語言 )，這也可以解釋，為什么很多函數(shù)高手放棄讓人炫暈的 Excel 數(shù)組公式學習，技巧高手放棄繁雜的內(nèi)置功能研究了。附：蘭色最近寫的幾段常用 VBA 代碼、禁止插入工作表Private Sub

4、 Workbook_NewSheet(ByVal Sh As Object)MsgBox 本工作簿禁止插入新工作表Application.DisplayAlerts = FalseSh.DeleteApplication.DisplayAlerts = TrueEnd Sub、禁止打開Excel 文件Private Sub Workbook_BeforePrint(Cancel As Boolean)MsgBox 此 excel 文件禁止打印，如需打印請與管理員聯(lián)系 Cancel = TrueEnd Sub、在 VBA 中調(diào)用 Vlookup 和 Sumif 函數(shù)Sub 調(diào)用 1()Dim a

5、rr, arr1arr = Range(a2:d6)arr1 = Application.VLookup(Array(B, C), arr, 4, 0)End SubSub 調(diào)用 2()Dim TT = TimerDim arrarr = Application.SumIf(Range(a2:a10000), Array(B, C, G, R),Range(B2:B10000)MsgBox Timer - TStopEnd Sub4、批量取消工作表隱藏Sub取消隱藏()For x = 1 To Sheets.CountIf Sheets(x).Name 總表ThenSheets(x).Visi

6、ble = -1End IfNext xEnd SubSub隱藏()For x = 1 To Sheets.CountIf Sheets(x).Name 總表ThenSheets(x).Visible = 0End IfNext xEnd Sub5、拆分表格成單獨的Excel文件Sub拆分表格（）Dim x As IntegerDim wb As WorkbookApplication.ScreenUpdating = FalseFor x = 2 To 32Sheets(x).CopySet wb = ActiveWorkbookWith wb.SaveAs ThisWorkbook.Pat

7、h & /3 月 / & Sheets(x).Name & .xlsx.Close TrueEnd WithNext xApplication.ScreenUpdating = TrueEnd Sub6、合并多個 Excel文件到一個 Excel中Sub合并表格()Dim mypath As StringDim f As StringDim ribao As WorkbookApplication.ScreenUpdating = Falsemypath = ThisWorkbook.Path & /3月 /月 /*.xlsx)f = Dir(ThisWorkbook.Path & /3DoWorkbooks.Open (mypath & f)With ActiveWorkbook.Sheets(1).Move after:=ThisWorkbook.Sheets(Sheets.Count)End With f = DirLoop Until Len=0Application.ScreenUpdating = True End Su蘭色說：從函數(shù)到VBA是，絕大多數(shù) Excel高手的必經(jīng)之路，而且沒有回頭路。編了半天 的數(shù)組公式，很輕易的被幾句簡單的代