CH04 流程控制 課程目標 : 學會 VBA 中用來控制程式流程之陳述式
本章重點 判斷式迴圈狀態判斷其他實用之陳述式陣列 (Array) 2
4-1 判斷式 判斷式係指用於判斷狀態是否存在之陳述式, 若判斷為真時, 應否採取任何動作 3
判斷式 If Then End If If Then End If 陳述式的用途在於判斷條件式是否成立, 當條件式的邏輯判斷為 True 時, 才執行 Then 陳述式後的程式區塊內容 ; 倘偌條件式的邏判斷為 False 時, 則略過 If Then End If 陳述式所包含的程式區塊, 繼續執行 End If 之後程式碼 If 陳述式開始條件式判斷 True 程式敘述的執行 If 陳述式 False 4
If Then End If-Example 利用範例統計表, 若想知道 S009 號經銷商之 ADSL 銷售數量 (C10 儲存格 ) 是否大於 20 件, 可利用下列程式判斷之 : Sub Chap4_1() Dim cell as Variant If Range( C9 ).Value>=20 Then Range( C9 ).Font.Color=RGB(255,0,0) Red End If End Sub 5
判斷式 If Then else End IF If Then End If 陳述式的用途在於判斷條件式是否成立, 當條件式的邏輯判斷為 True 時, 才執行 Then 陳述式後的程式區塊內容 ; 但在條件式的邏判斷為 False 時, 還希望能夠執行其它動作時, 就可以利用 If then else End If 陳述式, 來達成這個目的 If 陳述式開始條件式判斷 True Then 程式敘述的執行 If 陳述式 False Else 程式敘述的執行 6
If Then else End IF If 條件式 then 條件式為 True( 程式碼 ) Else 條件式為 False( 程式碼 ) End If 7
Example Sub chap4-1() Dim cell as Variant If Range( C8 ).Value>=20 Range( C8 ).Font.Color=RGB(0,200,0) Else If Range( C8 ).Value >= 50 Then Range( C8 ).Font.Color=RGB(0,255,0) End If End if 8
4-1-3 example 產品庫存量判定 當使用者輸入要查詢之商品編號, 接著判斷使用者所輸入的商品編號是否有效, 最後再回報庫存量 Sub chap4_3() Dim x, y As Integer x = InputBox(" 請指定要查詢之商品庫存編號 ") Ifx>8Then MsgBox (" 請輸入正確商品編號 ") Else y = Range("e" & CStr(x + 1)).Value MsgBox " 目前庫存量為 " + CStr(y) End If End Sub 9
Extended example 計算表準體重 男生 : 身高 2 *22/10000*(1+0.1) 女生 : 身高 2 *22/10000*(1+0.05) Public Function std_weight( 身高, 性別 ) Dim x As Double x= 身高 ^2*22/10^4 If 性別 =" 女 " Then std_weight = Round(x * (1 + 0.05), 2) Else std_weight = Round(x * (1 + 0.1), 2) End If End Function 10
4-2 迴圈 諸多狀況需要重複執行相同動作, 可以利用迴圈陳述式, 以達到事半功倍效果 For Next For Each Next ( 為集合物件或陣列執行特定工作 ) Page. 111 11
For Next For Next 陳述式可以指定程式區塊, 指定所要執行的次數, 並在執行完成所指定次數後, 自動跳出 For Next 迴圈, 繼續執行迴圈之後的程式內容 迴圈開始 For i=x To Y 計數變數 i= 初值 X 計數變數 i = 計數變數 + 間距值 程式區塊 判斷計數變數 i <= Y True 迴圈 12
Example For Next 一次開啟十個活頁簿 Sub ch4_4_1() For I=1 to 10 Workbooks.Add Next I End Sub 一次開啟十個活頁簿, 每張再開啟 10 個工作表 Sub ch4_4_2() For I=1 to 10 Workbooks.Add For Y=1 to 10 Worksheets.Add Next Y, I End Sub 13
For Each Next For Each Next 陳述式允許使用者為集合物件中的每個物件 或陣列中的每個元素執行迴圈內的程式區塊內容 在執行包含有 For Each Next 陳述式的程式碼時, 若要中止執行迴圈內的程式區塊時, 您可以利用 Exit For 陳述式離開迴圈 語法 For each 變數 in 集合物件 / 陣列程式區塊 {Exit For} 程式區塊 Next 變數 14
For Each Next 程式會先針對群體中第一個元素執行迴圈中的所有程式區塊內容 若群體中還有其他元素, 則 For Each 陳述式會針對其餘元素, 一一執行迴圈中之陳述式內容, 直到群組中的所有元素都執行完程式區塊內容後離開迴圈 ; 再從 Next 陳述式之後的指令繼續執行 注意事項 : 必須定義為 Variant 資料型態, 在實際運作時, 通常可以選擇工作表中之某一儲存格 工作表 (Worksheets) 物件或 Excel 之活頁簿 (Workbooks) 集合物件 / 陣列內容 15
For each Next - Example 判斷產品庫存量是否足夠, 利用 For Each Next 判斷庫存量是否不足 Sub Ch4_115() Dim cell As Variant For Each cell In Range("E2:E9") If cell.value = 0 Then cell.font.color = RGB(255, 0, 0) cell.value = " 庫存不足 " End If Next End Sub 16
Do While.Loop Do While 條件式 Loop 迴圈, 表示只有判斷條件式的內容為 True 時, 才執行迴圈內的內容, 直到條件式變成 False 後, 才迴圈, 繼續執行 Loop 敘述之後的其它指令 迴圈開始 判斷條件是否成立 True False 執行程式區塊的內容 17
Do while Loop - example 密碼設置以管理文件機密性, 在活頁簿加入密碼機制 : Sub ch4_2_3() Dim password as string Do while password <> linsanity password = inputbox( 請輸入密碼, 輸入密碼, ) Loop Msgbox 你已通過認證 End sub 18
Do Until Loop Do Until 條件式 Loop, 則與 Do While Loop 條件相反, 只有在條件式的邏輯值狀態被判斷為 False 時, 才會進入迴圈之中, 並且不斷地執行迴圈內的程式區塊, 直到條件式為 True 時, 才跳出迴圈, 繼續執行 Loop 後面的程式碼內容 迴圈開始 執行程式區塊的內容 判斷條件是否成立 False True 迴圈 19
Do Until Loop - example Sub ch4_2_3() Dim password as string Do Until password = linsanity password = inputbox( 請輸入密碼, 輸入密碼, ) Loop Msgbox 你已通過認證 End sub 20
實力應用 - 人事出缺勤 統計每位員工遲到紀錄 Sub ch4_2_4 Dim cell as Variant For each cell in Range( B2:F11 ) If cell.value > #9:00:00 AM# Then cell.value= 遲到 End if Next End sub 21
4-3 判斷狀態 若判斷狀況多, 則應利用 Select Case End Select 陳述式撰寫程式 語法 : Select Case 條件運算式 Case 條件式 1 程式區塊 1( 處理 1) Case 條件式 2 程式區塊 1( 處理 2).. End Select 22
Select Case End Select 23
Select case - example 隨機產生 1-10 數字, 並利用訊息方塊顯示出來 Sub test9() x=rnd()*10\1 Select Case x Case 1 b=msgbox( 亂數為 & x, 48) Case 2 b=msgbox( 亂數為 & x, 48).. Case 9 b=msgbox( 亂數為 & x, 48) End select End sub 24
With End With With End With 可以讓在遇到同一個物件, 以不同屬性來形容的情況時, 能省略輸入物件, 直接以 With End With 取代 傳統寫法 Sub test10() worksheets(1).range( a1:a10 ).Select Selection.Font.Size=20 Selection.Font.Bold=True Selection.Font.Italic=True Selection.Font.Underline=True End sub 25
With End With 不須重複鍵入相同物件, 可以利用 With End With 簡化之 Sub test11() worksheets(1).range( a1:a10 ).Select With Selection.Font.Size=20.Font.Bold=True.Font.Italic=True.Font.Underline=True End With End Sub 26
GoTo 陳述式能讓您執行程式時, 若遇到某些情況, 能跳離逐行執行的模式, 執行其它程式區塊的程式 限制開啟工作表數量, 不超過七個 Sub test12() ForI=1to7 worksheets.add If Worksheets.Count=7 Then Goto 1 End if Next I 1 A = MsgBox( 工作表已超過七個, 48) i=worksheets.count IfI>=7Then workbooks.add End if End sub 27
實例操作 階級式獎金 達到最低銷售標準時, 以基本佣金計算, 若在達到某加碼標準時, 則以不同佣金標準計算之 基本銷售數 :30 台, 小於 30 台經銷商, 則領取基本銷售佣金 300, 若大於 30 台, 則領取 500 銷售獎金, 若超過 60 台以上, 則每台領取 700 佣金 28
陣列 指的是一群依序排列, 且由資料型態相同的陣列元素所組成的資料 在陣列當中, 每一個元素, 相當於一個變數, 而每一個陣列元都可用來存取資料 也就是說, 陣列可以用來指定一系列有順序關係的變數 您可以使用 Dim Static Private 或 Public 陳述式來宣告陣列 要宣告一個陣列時, 必須使用下列語法, 其中 Var 為陣列名稱,x 則代表陣列大小, 資料型別必須是 Long 資料型別的數字 Dim Var(x) 29