语法大全200句.docVIP

语法大全200句 [VBA] 語法大全200句 資料出處：/user1/sunxh/archives/2006/589.html VBA語句集200句 我將學習VBA過程中常用的語句進行了歸納,希望能對Excel愛好者和VBA初學者有所幫助. VBA語句集 (第1輯) 定製模塊行為 (1) Option Explicit 強制對模塊內所有變量進行聲明 Option Private Module 標記模塊為私有，僅對同一工程中其它模塊有用，在宏對話框中不顯示 Option Compare Text 字符串不區分大小寫 Option Base 1 指定數組的第一個下標為1 (2) On Error Resume Next 忽略錯誤繼續執行VBA代碼,避免出現錯誤消息 (3) On Error GoTo ErrorHandler 當錯誤發生時跳轉到過程中的某個位置 (4) On Error GoTo 0 恢復正常的錯誤提示 (5) Application.DisplayAlerts=False 在程序執行過程中使出現的警告框不顯示 (6) Application.ScreenUpdating=False 關閉屏幕刷新 Application.ScreenUpdating=True 打開屏幕刷新 (7) Application.Enable.CancelKey=xlDisabled 禁用Ctrl+Break中止宏運行的功能 工作簿 (8) Workbooks.Add() 創建一個新的工作簿 (9) Workbooks(「book1.xls」).Activate 激活名為book1的工作簿 (10) ThisWorkbook.Save 保存工作簿 (11) ThisWorkbook.close 關閉當前工作簿 (12) ActiveWorkbook.Sheets.Count 獲取活動工作薄中工作表數 (13) ActiveW 返回活動工作薄的名稱 (14) ThisWorkbook.Name 『返回當前工作簿名稱 ThisWorkbook.FullName 『返回當前工作簿路徑和名稱 (15) ActiveWindow.EnableResize=False 『禁止調整活動工作簿的大小 (16) Application.Window.Arrange xlArrangeStyleTiled 『將工作簿以平鋪方式排列 (17) ActiveWorkbook.WindowState=xlMaximized 『將當前工作簿最大化 工作表 (18) ActiveSheet.UsedRange.Rows.Count 『當前工作表中已使用的行數 (19) Rows.Count 『獲取工作表的行數(註：考慮向前兼容性) (20) Sheets(Sheet1).Name= 「Sum」 將Sheet1命名為Sum (21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) 添加一個新工作表在第一工作表前 (22) ActiveSheet.Move After:=ActiveWorkbook. _ Sheets(ActiveWorkbook.Sheets.Count) 將當前工作表移至工作表的最後 (23) Worksheets(Array(「sheet1」,」sheet2」)).Select 同時選擇工作表1和工作表2 (24) Sheets(「sheet1」).Delete或 Sheets(1).Delete 刪除工作表1 (25) ActiveWorkbook.Sheets(i).Name 獲取工作表i的名稱 (26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines 切換工作表中的網格線顯示，這種方法也可以用在其它方面進行相互切換，即相當於開關按鈕 (27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings 『切換工作表中的行列邊框顯示 (28) ActiveSheet.UsedRange.FormatConditions.Delete 『刪除當前工作表中所有的條件格式 (29) Cells.Hyperlinks.Delete 『取消當前工作表所有超鏈接 (30) ActiveSheet.PageSetup.Orientation=xlLandscape 或ActiveSheet.PageSetup.Orientation=2 將頁面設置更改為橫向 (31) ActiveShee