VBA語言的基礎認識

第一節(jié)：標識符

一、定義

標識符是一種標識變量、常量、過程、函數(shù)、類等語言構成單位的符號，利用它可以完成對變量、常量、過程、函數(shù)、類等引用。

二、命名規(guī)則

（1）字母打頭，由字母、數(shù)字和下劃線組成，如?A987b_23Abc?

（2）字符長度小于40，（Excel2002以上中文版本等，可以用漢字且長度可達254個字符）

（3）不能與VB保留字重名，如?public?，?private?，?dim?，?goto?，?next?，?with?，?integer?，?single?等

第二節(jié)：運算符

第三節(jié)：數(shù)據(jù)類型

VBA共有12種數(shù)據(jù)類型，具體見下表，此外用戶還可以根據(jù)以下類型用Type自定義數(shù)據(jù)類型。

第四節(jié)：變量與常量

（3）變量定義語句及變量作用域

第五節(jié)：數(shù)組

第六節(jié)：注釋和賦值語句

第七節(jié)：書寫規(guī)范

第八節(jié)：判斷語句

If condition Then
    [statements]
    [ElseIf condition-n Then
        [elseifstatements] ...
    [Els]
        [elsestatements]]
End If

If Number < 10  Then
     Digits = 1
ElseIf Number < 100  Then
     Digits = 2
Else
     Digits = 3
End If

Select Case  Pid
   Case  “A101”
   Price=200
   Case  “A102”
   Price=300
   ……
   Case Else
   Price=900
End Select

（3）Choose 函數(shù)
?choose(index, choice-1,choice-2,…,choice-n)?

可以用來選擇自變量串列中的一個值，并將其返回，index 必要參數(shù)，數(shù)值表達式或字段，它的運算結果是一個數(shù)值，且界于 1 和可選擇的項目數(shù)之間。choice 必要參數(shù)，Variant表達式，包含可選擇項目的其中之一。如：?GetChoice = Choose(Ind, "Speedy", "United", "Federal") ?

（4）Switch函數(shù)
?Switch(expr-1, value-1[, expr-2, value-2 _ [, expr-n,value-n]])?

switch 函數(shù)和 Choose 函數(shù)類似，但它是以兩個一組的方式返回所要的值，在串列中，最先為
TRUE 的值會被返回。 expr 必要參數(shù)，要加以計算的 Variant 表達式。value 必要參數(shù)。如果相關的表達式為 True，則返回此部分的數(shù)值或表達式，沒有一個表達式為 True，Switch 會返回一個 Null值。

第九節(jié)：循環(huán)語句

For counter = start To end [Step step]                  ＇step 缺省值為1
[statements]
[Exit For]
[statements]
Next [counter]

For Words = 10 To 1 Step  -1                               ＇建立 10 次循環(huán) 
      For Chars = 0 To 9                                        ＇建立 10 次循環(huán)
           MyString = MyString & Chars                      ＇將數(shù)字添加到字符串中
      Next Chars                                                   ＇Increment counter
      MyString = MyString & " "                                ＇添加一個空格
Next  Words

For Each element In  group
Statements
[Exit for]
Statements
Next  [element]

For Each rang2 In  range1
     With range2.interior
             .colorindex=6
             .pattern=xlSolid
     End with
Next

With object
[statements]
End With

Do {while |until} condition' while 為當型循環(huán)，until為直到型循環(huán)，顧名思義，不多說啦
Statements
Exit do
Statements
Loop

Do                                    ' 先do 再判斷，即不論如何先干一次再說
Statements
Exit do
Statements
Loop {while |until} condition

Sub gosubtry()
      Dim num
      Num=inputbox(“輸入一個數(shù)字，此值將會被判斷循環(huán)”)
      If num>0 then Gosub Routine1 ：Debug.print num：Exit  sub
      Routine1:
      Num=num/5
      Return
End sub

while condition      ‘while I<50
[statements]        ‘I=I+1
wend                  ‘Wend

On Error Goto Line        ‘當錯誤發(fā)生時，會立刻轉移到line行去
On Error Resume Next    ‘當錯誤發(fā)生時，會立刻轉移到發(fā)生錯誤的下一行去
On Erro Goto 0             ‘當錯誤發(fā)生時，會立刻停止過程中任何錯誤處理過程

Sub password(x As Integer, ByRef y As Integer)
    If y = 100 Then
        y = x + y
    Else
        y = x - y
    End If
    x = x + 100
End Sub

Sub call_password()
    Dim x1 As Integer
    Dim y1 As Integer
    x1 = 12
    y1 = 100
    Call password(x1, y1) ' 或直接寫成 password x1, y1
    Debug.Print x1, y1 ' 結果應該是112、212，因為x1是按值傳遞，y1是按引用傳遞
End Sub

Function password(ByVal x As Integer, ByRef y As Integer) As Boolean
    If y = 100 Then
        y = x + y
    Else
        y = x - y
    End If
    x = x + 100
    If y = 150 Then
        password = True
    Else
        password = False
    End If
End Function

Sub call_password()
    Dim x1 As Integer
    Dim y1 As Integer
    x1 = 12
    y1 = 100
    If password(x1, y1) Then
        Debug.Print x1
    End If
End Sub

一．測試函數(shù)

IsNumeric(x)          ‘是否為數(shù)字,  返回Boolean結果，True  or False      
IsDate(x)              ‘是否是日期,  返回Boolean結果，True  or False
IsEmpty（x）         ‘是否為Empty, 返回Boolean結果，True  or False
IsArray(x)             ‘指出變量是否為一個數(shù)組。
IsError(expression)  ‘指出表達式是否為一個錯誤值
IsNull(expression)    ‘指出表達式是否不包含任何有效數(shù)據(jù) (Null)。
IsObject(identifier)  ‘指出標識符是否表示對象變量

二．數(shù)學函數(shù)
Sin(X)、Cos(X)、Tan(X)、Atan(x)  三角函數(shù)，單位為弧度
Log(x) 返回x的自然對數(shù)
Exp(x)返回 
Abs(x) 返回絕對值
Int(number)、Fix(number) 都返回參數(shù)的整數(shù)部分，區(qū)別：Int 將 -8.4 轉換成 -9，而 Fix 將
-8.4 轉換成 -8
Sgn(number) 返回一個 Variant (Integer)，指出參數(shù)的正負號
Sqr(number) 返回一個 Double，指定參數(shù)的平方根
VarType(varname) 返回一個 Integer，指出變量的子類型
Rnd（x）返回0-1之間的單精度數(shù)據(jù)，x為隨機種子

刪除
Kill pathname   從磁盤中刪除文件, pathname 參數(shù)是用來指定一個文件名

RmDir pathname  從磁盤中刪除目錄，pathname 參數(shù)是用來指定一個文件夾

打開

filenumber 必要。一個有效的文件號，范圍在 1 到 511 之間。使用 FreeFile 函數(shù)可得到下一個可用的文件號。 reclength 可選。小于或等于 32，767（字節(jié)）的一個數(shù)。對于用隨機訪問方式打開的文件，該值就是記錄長度。對于順序文件，該值就是緩沖字符數(shù)。

寫入
Write #filenumber, [outputlist] 將數(shù)據(jù)寫入順序文件
Print #filenumber, [outputlist] 將格式化顯示的數(shù)據(jù)寫入順序文件中
Put [#]filenumber, [recnumber], varname 將一個變量的數(shù)據(jù)寫入磁盤文件中。

關閉
Close [filenumberlist] 關閉 Open 語句所打開的輸入/輸出 (I/O) 文件
注意 如果今后想用 Input # 語句讀出文件的數(shù)據(jù)，就要用 Write # 語句而不用 Print # 語句將數(shù)據(jù)寫入文件。因為在使用 Write# 時，將數(shù)據(jù)域分界就可確保每個數(shù)據(jù)域的完整性，因此可用 Input# 再將數(shù)據(jù)讀出來。使用 Write#  還能確保任何地區(qū)的數(shù)據(jù)都被正確讀出。Write與 Print # 語句不同，當要將數(shù)據(jù)寫入文件時，Write # 語句會在項目和用來標記字符串的引號之間插入逗號。Write # 語句在將 outputlist 中的最后一個字符寫入文件后會插入一個新行字符，即回車換行符，(Chr(13) + Chr(10))。