VBA編程經典語句系列之一

大家在學習VBA過程中要注意積累自己的所學，以後我會不定期的將寫代碼過程中經常用到的一些語句及解釋總結供大家參考。這些可以作為積木編程的一個有效補充。今日給大家分享第一部分：

1 Option Explicit 強制對模塊內所有變量進行聲明

2 Option Base 1 指定數組的第一個下標為1

3 On Error Resume Next 忽略錯誤繼續執行VBA代碼,避免出現錯誤消息

4 On Error GoTo ErrorHandler 當錯誤發生時跳轉到過程中的某個位置

5 On Error GoTo 0 恢復正常的錯誤提示

6 Application.DisplayAlerts=False 在程序執行過程中使出現的警告框不顯示

7 Application.ScreenUpdating=False 關閉屏幕刷新

8 Application.ScreenUpdating=True 打開屏幕刷新

9 Workbooks.Add() 創建一個新的工作簿

10 Workbooks("book1.xlsm").Activate 激活名為book1的工作簿

11 ThisWorkbook.Save 保存工作簿

12 ThisWorkbook.close 關閉當前工作簿

13 ActiveWorkbook.Sheets.Count 獲取活動工作薄中工作表數

14 ActiveWorkbook.name 返回活動工作薄的名稱

15 ThisWorkbook.Name 返回當前工作簿名稱

16 ThisWorkbook.FullName 返回當前工作簿路徑和名稱

17 ActiveWindow.EnableResize=False 禁止調整活動工作簿的大小

18 ActiveWorkbook.WindowState=xlMaximized 將當前工作簿最大化工作表

19 ActiveSheet.UsedRange.Rows.Count 當前工作表中已使用的行數

20 Rows.Count 獲取工作表的行數

21 Sheets(Sheet1).Name="HZ" 將Sheet1命名為HZ

22 ThisWorkbook.Sheets.Add Before:=Worksheets(1) 添加一個新工作表在第一工作表前

23 ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) 將當前工作表移至工作表的最後

24 Worksheets(Array("sheet1","sheet2")).Select 同時選擇工作表1和工作表2

25 Sheets("sheet1").Delete或 Sheets(1).Delete 刪除工作表1

26 ActiveWorkbook.Sheets(i).Name 獲取工作表i的名稱

27 ActiveSheet.UsedRange.FormatConditions.Delete 刪除當前工作表中所有的條件格式

28 Cells.Hyperlinks.Delete 取消當前工作表所有超鏈接

29 ActiveSheet.PageSetup.Orientation=xlLandscape

或ActiveSheet.PageSetup.Orientation=2 將頁面設置更改為橫向

30 ActiveSheet.PageSetup.LeftFooter=Application.UserName 將用戶名放置在活動工作表的頁腳

31 ActiveCell.CurrentRegion.Select 選擇當前活動單元格所包含的範圍，上下左右無空行

32 Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select 選擇當前活動單元格所包含的範圍，上下左右無空行

33 Cells.Select 選定當前工作表的所有單元格

34 Range("A1").ClearContents 清除活動工作表上單元格A1中的內容

35 Selection.ClearContents 清除選定區域內容

36 Range("A1:D4").Clear 徹底清除A1至D4單元格區域的內容，包括格式

37 Cells.Clear 清除工作表中所有單元格的內容

38 ActiveCell.Offset(1,0).Select 活動單元格下移一行，同理，可下移一列

39 Range("A1").Offset(ColumnOffset:=1)或Range("A1").Offset(,1) 偏移一列

40 Range("A1").Offset(Rowoffset:=-1)或Range("A1").Offset(-1) 向上偏移一行

今日內容迴向：

1 ClearContents 與Clear 有何不同？

2 Offset(1,0) 和Offset(0,1) 有何不同？

3 什麼情況下有都fullname?