'1、工作簿（Workbooks）
' Workbooks（N）第N個工作簿
' Workbooks ("工作簿名")
' ActiveWorkbook 活動工作簿
' ThisWorkBook '代碼所在工作簿
'2、工作表（Worksheets）
'Sheets(N) 第N個工作表
'Sheets("工作表名")
'SheetN 第N個工作表
'ActiveSheet 活動工作表
'worksheets 與 Sheets的區別
'3、單元格（cells）
'Range ("單元格地址")
'Cells(行號,列號)
'[A1]單元格簡寫
'Activecell 活動單元格
'Selection 當前被選取的區域
'VBA屬性: 指對象所具有的特性?
'人的屬性：姓名，年齡，身份證號，住址….
Sub 屬性()
Debug.Print Sheet1.Name
Debug.Print Sheet1.Range("a1").Value
End Sub
'VBA對象屬性的賦值，sheet2本來沒有字，運行下邊的賦值語句則表名並且A1位置顯示“學習VBA”。如果sheet2不存在或刪除，則“運行時錯誤 424，要求對象”。刪除后再新建表，雖然看起來是sheet2，但值屬性已經是sheet3或其它。
Sub 屬性賦值()
Sheet2.Name = "改變自己"
Sheet2.Range("a1") = "學習VBA"
End Sub
'方法：實際上就是對對象的操作，它是一種動作，一種行為。
Sub 選擇方法()
Range("a1:a100").Select
'注：如果單元格區域前沒有寫工作表名，則默認為活動工作表
End Sub
Sub 復制方法()
Sheet1.Range("a1:a30") = 1 '將1寫入表一的a1:a30區域
Sheet1.Range("a1:a5").Copy Sheet2.Range("a1") '將表一的a1:a5區域的值復制到表2的a1
End Sub
Sub 刪除方法()
Sheets(3).Delete
End Sub
‘刪除的方法本例刪除的是整個工作表，會彈出窗口“有數據，是否刪除？”如果刪除指定的單元格，可能應指定：Sheets(3).Delete.Range("a1:a5")，但還是刪除整個sheet3
'1.常量：常量是定義了之后就不做變化了。
' 常量定義格式：Const 常量名= 常量表達式
Sub 常量()
Const pi = 3.145926
End Sub
'2.變量:在定義之后還能再次賦值
'變量定義格式：Dim 變量 As 變量類型
Sub 變量()
Dim a As Integer
a = 100
End Sub
'3.常量變量應用
Sub 應用()
Const pi = 3.1415926
Dim a As Integer
a = 200
Debug.Print pi * a
End Sub
'3.注意事項
'A.VBA允許使用未定義的變量，默認是變體變量(Variant)
'B.變量的強制聲明：Option Explicit
'4.變量名的命名規則
'以字母開頭
'不能用保留字
'不超過 255 個字符。
'同一范圍內必須是唯一
'-------------------------------------------------------------------
'1.VBA中的常見數據類型：
' 類型 注釋 簡寫 占用內存
' Integer 整型 % 2Byte
' Single 單精度 ! 4Byte
' Double 雙精度 # 8Byte
' Long 長整型 & 4Byte
' String 字符型 $ 定長或變長( 變長字符串最多可包含大約 20 億 ( 2^31)個字符。 定長字符串可包含 1 到大約 64K ( 2^16 ) 個字符。)
' Currency 貨幣型 @ 8Byte
'--------------------------------------------------------------------
Sub 數據類型()
Dim a As Integer
Dim b%
End Sub
Sub 多數據類型聲明()
Dim a As Integer, b As Single, c As String
Dim d%, e!, f$
End Sub