辦公軟件學習技巧：Excel VBA常用代碼100句

1、 Excel VBA常用代碼100句 (1) Option Explicit 強制對模塊內(nèi)全部變量進行聲明 (2) Option Base 1 指定數(shù)組的第一個下標為1 (3) On Error Resume Next 忽視錯誤連續(xù)執(zhí)行VBA代碼,避開消失錯誤消息 (4) On Error GoTo 100 當錯誤發(fā)生時跳轉到過程中的某個位置 (5) On Error GoTo 0 恢復正常的錯誤提示 (6) Application.DisplayAlerts=False 在程序執(zhí)行過程中使消失的警告框不顯示 (7) Application.DisplayAlerts=True 在程序執(zhí)行過程

2、中恢復顯示警告框 (8) Application.ScreenUpdating=False 關閉屏幕刷新 (9) Application.ScreenUpdating = True 打開屏幕刷新 (10) Workbooks.Add() 創(chuàng)建一個新的工作簿 (11) Workbooks(“book1.xls”).Activate 激活名為book1的工作簿 (12) ThisWorkbook.Save 保存工作簿 (13) ThisWorkbook.close 關閉當前工作簿 (14) ActiveWorkbook.Sheets.Count 獵取活動工作薄中工作表數(shù) (15) ActiveWo

3、 返回活動工作薄的名稱 (16) ThisWorkbook.Name 返回當前工作簿名稱 (17) ThisWorkbook.FullName 返回當前工作簿路徑和名 (18) ActiveSheet.UsedRange.Rows.Count 當前工作表中已使用的行數(shù) (19) Rows.Count 獵取工作表的行數(shù)(注：考慮兼容性) (20) Sheets(Sheet1).Name= “Sum” 將Sheet1命名為Sum (21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) 添加一個新工作表在第一工作表前 (22) Ac

4、tiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) 將當前工作表移至工作表的最終 (23) Worksheets(Array(“sheet1”,”sheet2”).Select 同時選擇工作表1和工作表2 (24) Sheets(“sheet1”).Delete或 Sheets(1).Delete 刪除工作表1 (25) ActiveSheet.UsedRange.FormatConditions.Delete 刪除當前工作表中全部的條件格式 (26) Cells.Hyperlinks.Delete

5、取消當前工作表全部超鏈接 (27) ActiveCell.CurrentRegion.Select選擇當前活動單元格所包含的范圍，等同于快捷鍵Ctrl+A (28) Cells.Select 選定當前工作表的全部單元格 (29) Range(“A1”).ClearContents 清除活動工作表上單元格A1中的內(nèi)容。Selection.ClearContents 清除選定區(qū)域內(nèi)容。Range(“A1:D4”).Clear 徹底清除A1至D4單元格區(qū)域的內(nèi)容，包括格式。 (30) Cells.Clear 清除工作表中全部單元格的內(nèi)容 (31) ActiveCell.Offset(1,0).Sel

6、ect 活動單元格下移一行，同理，可下移一列 (32) Range(“A1”).Copy Range(“B1”) 復制單元格A1，粘貼到單元格B1中 (33) Range(“A1:D8”).Copy Range(“F1”) 將單元格區(qū)域復制到單元格F1開頭的區(qū)域中 (34) Range(“A1:D8”).Cut Range(“F1”) 剪切單元格區(qū)域A1至D8，復制到單元格F1開頭的區(qū)域中 (35) Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) 復制包含A1的單元格區(qū)域到工作表2中以A1起始的單元格區(qū)域中。 (36) A

7、ctiveWindow.RangeSelection.Count 活動窗口中選擇的單元格數(shù) (37) Selection.Count 當前選中區(qū)域的單元格數(shù) (38) Range(“A1”).Interior.ColorIndex 獵取單元格A1背景色 (39) cells.count 返回當前工作表的單元格數(shù) (40) Range(“B3”).Resize(11, 3) (41) Union(Range(“A1:A9”),Range(“D1:D9”) 區(qū)域連接 (42) Intersect(Range(“A1:B9”),Range(“A1:D9”) 返回的交叉區(qū)域 (43) Selectio

8、n.Columns.Count 當前選中的單元格區(qū)域中的列數(shù) (44) Selection.Rows.Count 當前選中的單元格區(qū)域中的行數(shù) (45) ActiveSheet.UsedRange.Row 獵取單元格區(qū)域中使用的第一行的行號 (46) Application.WorksheetFunction.IsNumber(“A1”) 使用工作表函數(shù)檢查A1單元格中的數(shù)據(jù)是否為數(shù)字 (47) Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”).Activate激活單元格區(qū)域A列中最大值的單元格 (48) MsgB

9、ox “Hello!” 消息框中顯示消息Hello (49) Ans=MsgBox(“Continue?”,vbYesNo) 在消息框中點擊“是”按鈕，則Ans值為vbYes；點擊“否”按鈕，則Ans值為vbNo。 (50) Userform1.Show 顯示用戶窗體 (51) Load Userform1 加載一個用戶窗體,但該窗體處于隱蔽狀態(tài) (52) Userform1.Hide 隱蔽用戶窗體 (53) Unload Userform1 或 Unload Me 卸載用戶窗體 (54) UserForm1.Show 0將窗體設置為無模式狀態(tài) (55) Application.EnableE

10、vents=False 禁用全部大事 (56) Application.EnableEvents = True 啟用全部大事 (57) Set d = CreateObject(Scripting.Dictionary) 創(chuàng)建一個 Dictionary 對象變量 (58) d.Add a, Athens 為對象變量添加關鍵字和條 (59) Application.OnKey “I”,”macro” 設置Ctrl+I鍵為macro過程的快捷鍵 (60) Application.CutCopyMode=False 退出剪切/復制模式 (61) Application.Volatile True 無

11、論何時工作表中任意單元格重新計算，都會強制計算該函數(shù) (62) Application.Volatile False 只有在該函數(shù)的一個或多個參數(shù)發(fā)生轉變時，才會重新計算該函數(shù) (63) Err.Clear 清除程序運行過程中全部的錯誤 (64) Workbooks.Close 關閉全部打開的工作簿 (65) ActiveWorkbook.Path 返回當前工作簿的路徑(注:若工作簿未保存,則為空) (66) ActiveWorkbook.Saved 返回工作簿的存儲值(若已保存則為False) (67) Application.Visible = False 隱蔽工作簿 (68) Appli

12、cation.Visible = True 顯示工作簿 (69) ActiveSheet.Columns(B).Insert 在A列右側插入列，即插入B列 (70) ActiveSheet.Columns(E).Cut (71) ActiveSheet.Columns(B).Insert 70,71兩句將E列數(shù)據(jù)移至B列，原B列及以后的數(shù)據(jù)相應后移 (72) ActiveSheet.Calculate 計算當前工作表 (73) ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetHidden 正常隱蔽工作表，同在Excel菜單中選擇“格式工作表隱蔽

13、”操作一樣 (74) ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVeryHidden 隱蔽工作表，不能通過在Excel菜單中選擇“格式工作表取消隱蔽”來重新顯示工作 (75) ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVisible 顯示被隱蔽的工作表 (76) ThisWorkbook.Sheets(1).ProtectContents 檢查工作表是否受到愛護 (77) ThisWorkbook.Worksheets.Add Count:=2, Before:=ThisWorkbo

14、ok.Worksheets(2) 或 ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2 在第二個工作表之前添加兩個新的工作表 (78) ThisWorkbook.Worksheets(3).Copy 復制一個工作表到新的工作簿 (79) ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2) 復制第三個工作表到第二個工作表之前 (80) ThisWorkbook.Worksheets(1).Activate 當前工作簿中的第一個工作表被激活 (81) ThisWor

15、kbook.Worksheets(Sheet1).Rows(1).Hidden = True 將工作表Sheet1中的1隱蔽 (82) ActiveCell.EntireRow.Hidden = True 將當前工作表中活動單元格所在的行隱蔽 (83) ActiveSheet.Range(“A:A”).EntireColumn.AutoFit 自動調(diào)整當前工作表A列列寬 (84) ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) 選中當前工作表中常量和文本單元格 (85) ActiveSheet.Cells.Spe

16、cialCells(xlCellTypeConstants,xlErrors+xlTextValues) 選中當前工作表中常量和文本及錯誤值單元格 (86) Application.WorksheetFunction.CountA(Range(“A:A”)+1 獵取A列的下一個空單元格 (87) Set FirstCell=Range(RefEdit1.Text).Range(“A1”) 設置某單元格區(qū)域左上角單元格 (88) Application.OnTime Now + TimeValue(00:00:15), myProcedure 等待15秒后運行myProcedure過程 (89)

17、 Application對象 (90) Application.UserName 返回應用程序的用戶名 (91) Application.Caller.Parent.Parent 返回調(diào)用函數(shù)的工作簿名稱 (92) Application.StatusBar=”請等待” 將文本寫到狀態(tài)欄 (93) Application.StatusBar=False 將狀態(tài)欄重新設置成正常狀態(tài) (94) Application.Transpose(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”) 返回一個垂直的數(shù)組 (95) Application.Activ

18、eCell.Address 返回活動單元格的地址(注:返回的是肯定地址) (96) Application.ActiveSheet.Name 返回活動工作表的名稱 (97) Application.ActiveWindow.Caption 返回活動窗口的標題 (98) Application.ActiveWorkbook.Name 返回活動工作簿的名稱 (99) Application.Selection.Address 返回所選區(qū)域的地址 (100) Application.ThisWorkbook.Name 返回當前工作簿的名稱 (101) Range(A1:A10).Value=Appl

19、ication.WorksheetFunction.Transpose(MyArray) 將一含有10個元素的水平數(shù)組轉置成垂直數(shù)組，并寫入工作表單元格區(qū)域(A1至A10)。 (102) Cells(rows.count,1).End(xlUp).Row+1 返回A列最終一行的下一行 (103) rng.Range(“A1”) 返回區(qū)域左上角的單元格 (104) ActiveSheet.Range(A:B).Sort Key1:=Columns(B), Key2:=Columns(A), Header:=xlYes 兩個關鍵字排序，相鄰兩列，B列為主關鍵字，A列為次關鍵字，升序排列 (105) ce