VBA基礎語句

 

'1，VBA註釋
'A，Rem 第一種註釋方式(只能用於行收)
'B，'單引號爲第二種註釋方式
'例如：
Rem 定義一個字符串變量
Dim wksName As String
WksName = ActiveSheet.Name'獲取當前活動的工作表名稱

'2，GoTo語句
'書上建議不要使用(個人建議適當的用用)
Sub GotoStatementDemo()
    Dim Number,MyString
    Number = 1'設置變量的初始值
    '判斷Number的值以決定要完成哪一個程序區段(以"程序標籤"來表達)
    If Number = 1 Then GoTo Line1 Else GoTo Line2
    Line1:
    MyString = "Number equals 1"
    GoTo LastLine '完成最後一行
    Line2:
    '下列的語句根本不會被完成
    MyString = "Number equals 2"
    LastLine:
    Debug.Print MyString '將"Number equals 1"'現實在立即窗口
End Sub

'3，VBA操作符
'A，算數運算符：
'+,-,*,/(出發),Mod(取餘),￥(出發取整),^(指數，求某個數的次方)
'B，比較運算符：
'<,<=,>,>=,=,<>
'C，連接運算符
'&,+
'C，邏輯運算符
'And，Or，Not(邏輯非)，Xor(邏輯異或)，Eqv(邏輯等價運算),Imp(邏輯蘊含運算)

'4，VBA錯誤處理
'On Error GoTo line：驅動錯誤處理程序，且該例程從必要的line參數中指定的line開始
'On Error Resume Next：運行發生錯誤時,控件轉到緊接着發生錯誤的語句之後的語句，並繼續執行。訪問對象時要使用這種形式而不使用One Error GoTo
'On Error GoTo 0：禁止當前過程中任何已啓動的錯誤處理程序
'例子：
Sub OnErrorStatementDemo()
    On Error GoTo ErrorHandler '打開錯誤處理程序
    Open "TESTFILE" For Output As #1 '打開輸出文件
    Kill "TESTFILE" '視圖刪除已打開的文件
    On Error GoTo 0 '關閉錯誤陷阱
    On Error Resume Next'產生錯誤後繼續執行
    ObjectRef = GetObject("MyWord.Basic")'試圖啓動不存在的對象
    '檢查可能發生的Automation錯誤
    If Err.Number = 440 Or Err.Number = 432 Then
    '告訴用戶出了什麼shiq，然後清除Err對象
    Msg = "這裏有一個嘗試打開自動化對象的錯誤!"
    MsgBox Msg,,"錯誤測試"
    Err.Clear
    End If
Exit Sub
ErrorHandler: '錯誤處理程序
    Select Case Err.Number
        Case 55
            Close #1'關閉已打開的文件
        Case Else
    End Select
    Resume'將控制返回到產生錯誤的語句

End Sub