VBA语法教学

Dim n, tmp(80), index As Integer Dim result As String n = 112 Do Until n = 0 tmp(index) = n Mod 2 n = Int(n / 2) index = index + 1 Loop
VBA
－VBA的語法 －重覆敘述(Do〃〃Loop)
VBA
－VBA的語法 －重覆敘述(Do〃〃Loop)
total = 30 leg = 80 r=0 Do While (r <= leg / 4) c = total - r If ((2 * c + 4 * r) = leg) Then Debug.Print c Debug.Print r End If r=r+1 Loop 執行結果(c=)20。(r=)10。
－條件敘述（ Select Case）
Case 70 To 79 result = "C" Case 80 To 89 result = "B" Case Else result = "A" End Select 執行結果result="B"
VBA
－VBA的語法
－條件敘述（Switch）
Switch：用於多重選擇敘述。 其語法如下： Switch(expression1，statement1[， expression2，statement2，〃[， expressionn，statementn]])
VBA
－VBA的語法
－條件敘述（IIf）
IIf：根據條件式的敘述，傳回兩個物 件中的一個。 其語法如下： IIf(Expression，TruePart， FalsePart)
VBA
－VBA的語法
－條件敘述（IIf）
Dim n，m，result As Integer n =20 m =30 result = IIf(n > m，n，m) 執行結果result=30。
VBA
－VBA的語法
－條件敘述（GoTo）
GoTo：用於程式從甲處跳到乙處去執 行。GoTo的用法是在GoTo後面接上標籤名 稱(label)，到跳躍程式則是在標籤名稱後面 加上冒號(：)。 其語法如下： GoTo Line
VBA
－VBA的語法
－條件敘述（GoTo）
Dim m, n As Integer m = 66 n = 44 If (m > n) Then GoTo max Else Debug.Print n
VBA
－VBA的語法 －重覆敘述(Do〃〃Loop)
n = 24 m= 16 Do temp = n Mod m n=m m = temp Loop While ( m<> 0) result = n 執行結果result=8(最大公因數)。
VBA
－VBA的語法 －重覆敘述(Do〃〃Loop)
Do〃〃Loop Until：此條件迴圈敘述先執行 迴圈，然後，再檢查是否不滿足測試運算式的條 件，若不滿足，才去執行迴圈。 其語法如下： Do Statements [Exit Do] Loop Until condition
VBA
－VBA的語法
－條件敘述（Switch）
Dim score， n As Integer Dim result As String score = 85 n = Int((99 - score) / 10) + 1 result =Switch(n = 1，“A”，n = 2， "B"， n = 3，"C"，n = 4，"D"，n >= 5，"F") 執行結果result="B"。
VBA
－VBA的語法
－條件敘述（If．．Then） If〃〃Then：用於單一選擇敘述。 如If A Then B代表”如果A為真， 就執行B”，相對地，”如果A為假，就 不執行B”。 其語法如下： If condition Then statements
VBA
－VBA的語法
－條件敘述（If．．Then） Dim n，m，result As Integer n=16 m=14 if (n>m) then result=n+m End If 執行結果result=30。
VBA
－VBA的語法 －重覆敘述(Do〃〃Loop)
Do Until〃〃Loop：此類型也是條件迴圈敘 述，先檢查是否不滿足測試運算式的條件，若不 滿足，才去執行迴圈。 其語法如下： Do Until condition Statements [Exit Do] Loop
VBA
－VBA的語法 －重覆敘述(Do〃〃Loop)
VBA
－VBA的語法
－條件敘述（ Select Case）
Dim n As Integer Dim result As String n= 85 Select Case n Case Is < 60 result = "F" Case 60 To 69 result = "D"
VBA
－VBA的語法
－VBA的語法 － For Each 〃〃Next
For Each〃〃Next：用於執行陣列的 迴圈。 其語法如下： For Each element In group [ statements ] [ Exit For ] [ statements ]Next [ element ]
VBA
VBA －VBA的語法
Loop Debug.Print result 執行結果result=55。
VBA
－VBA的語法 －重覆敘述(Do〃〃Loop)
Do While〃〃Loop：此類型是條件迴 圈敘述，先檢查是否滿足測試運算式的條件， 若滿足，才去執行迴圈。 其語法如下： Do While condition Statements [Exit Do] Loop
VBA
－VBA的語法
－條件敘述（If．Then．ElseIf）
Dim n，month As Integer Dim result As String month = 3 n = Int(((month + 10) Mod 12) / 3) + 1 If n = 1 Then result = "Spring" ElseIf n = 2 Then result = "Summer" ElseIf n = 3 Then result = "Fall" ElseIf n = 4 Then result = "Winter" End If 執行結果result= "Spring" 。
－ For Each 〃〃Next
Dim n，result As Integer Dim ko( 4) As Integer ko(0)=10 ko(1)=20 ko(2)=30 ko(3)=40 For Each n In ko result = result + n Next 執行結果result =100。
VBA
－VBA的語法
－條件敘述（If．Then．Else） －用於多重選擇敘述。 －如If A Then B Else C代表” 如果A為真，就執行B，若A為假， 則執行C”。
VBA
－VBA的語法
－條件敘述（If．Then．Else）
Dim n，m，result As Integer n=16 m=14 if (n<m) then result=n+m Else result=n-m End If 執行結果result=2。
VBA
－VBA的語法
－條件敘述（GoTo）
GoTo finish End If max: Debug.Print m finish: 執行結果66。
VBA
－VBA的語法
－條件敘述（On Error）
On Error：用來停用錯誤處理常式。 如果不使用 On Error 敘述區段，則所 發生的任何 Run-Time 錯誤都是嚴重錯誤： 其語法如下： On Error {GoTo [line | 0 | -1] |Resume Next }
Do While (index > 0) index = index - 1 result = result & tmp(index) Loop Debug.Print result 執行結果result= 1110000(二進位值)。
Байду номын сангаас
VBA
－VBA的語法 －重覆敘述(Do〃〃Loop)
Do〃〃Loop While：此條件迴圈敘述，先 執行迴圈，然後，再檢查是否滿足測試運算式的 條件，若滿足，持續執行迴圈。 其語法如下： Do Statements [Exit Do] Loop While condition
VBA
－VBA的語法
－重覆敘述(Do〃〃Loop)
Do〃〃Loop：用於條件迴圈敘述。 其語法如下： Do Statements [Exit Do] Loop
VBA
－VBA的語法 －重覆敘述(Do〃〃Loop)
m=1 n = 10 Do result = result + m m=m+1 If m > n Then Exit Do End If
VBA
－VBA的語法
－條件敘述（ Select Case）
Select Case：用於多重選擇敘述。 其語法如下： Select [Case ] testexpression [Case expressionlist [statements ] ] [Case Else [elsestatements ] ] End Select