Microsoft Word - NEWch (P5-15).doc

Size: px

Start display at page:

Download "Microsoft Word - NEWch (P5-15).doc"

陪硕余狄
4 years ago
Views:

1 C h a p t e r 流程控制 ( 二 ) 重複結構學習 For Next 迴圈的使用時機和用法學習巢狀 For Next 迴圈的用法學習取得工作表資料的最下列和最右欄學習 Do Loop 和 For Next 迴圈的差異學習 Do While Loop 和 Do Loop While 迴圈學習 Do Until Loop 和 Do Loop Until 迴圈學習前測式和後測式 Do Loop 迴圈的差異學習 While Wend 和 Do Loop 無窮迴圈學習在儲存格中寫入公式和函數

2 5.1 前言結構化程式是程式設計的基本原則, 而程式是由循序結構選擇結構和重複結構三種基本邏輯架構組成其中循序結構是程式的最基本結構, 是由上到下依序逐行執行敘述構成至於上一章介紹的選擇結構會依照條件, 分別執行不同流程的設計程式時, 常碰到需將某個程式區段重複執行多次, 此時就需要重複結構來完成重複結構俗稱為迴圈 (Loop), 譬如 : 計算其總和從 A1 到 A100 連續讀取儲存格內資料等, 這些重複地執行煩人的固定性工作, 可透過重複結構來完成, 即使執行多少次也不會出錯 VBA 常用的重複結構 : 有 For Next 和 Do Loop 兩種迴圈, 將於本章逐一介紹 5.2 For Next 迴圈程式中若有某個需要反覆執行指定的次數時, 就可以使用 For Next 迴圈來完成 For Next 迴圈是由計數變數初值終值以及增值所構成 For Next 迴圈的語法如下 : 語法 : For 計數變數 = 初值 To 終值 [Step 增值 ] 流程圖 : 進入迴圈計數變數 = 初值 Next [Exit For] 計數變數 + 增值計數變數 > 終值是否離開迴圈 5-2

3 流程控制 ( 二 ) 重複結構說明 1. For Next 迴圈中的計數變數必須是數值資料型別的變數, 而初值終值和增值則可以為數值變數數值常值或數值運算式增值不能為零, 若省略不寫則預設增值為 1 2. For Next 迴圈中, 若初值小於終值, 增值必須為正, 當計數變數大於終值時離開迴圈 ; 若初值大於終值時, 則增值必須為負值, 計數變數在小於終值時離開迴圈 3. 如果想要提早離開 For Next 迴圈, 則可以使用 Exit For 敘述配合 If 條件式來判斷是否提前離開 For 迴圈 4. For Next 迴圈內的敘述, 應按 <Tab> 鍵來讓內縮以方便閱讀簡例 1. 將的總和存入 B3 儲存格流程圖進入迴圈 sum 0, k 1 k k+1 sum sum+ k 假設 : 1. 計數變數 k 2. 初值 = 1 3. 終值 = 10 程式碼 k > 10 否是 B3 儲存格值 sum Dim k As Integer, sum As Integer sum = 0 For k = 1 To 10 Step 1 sum = sum + k Next Range("B3").Value = sum 5-3

4 k 30, 總和超過 30 就離開迴圈, 求 k 和 sum 流程圖進入迴圈 sum=0, k=1 k > 30 是 k += 1 否 sum > 30 是 sum += k 否假設 : 1. 計數變數 k 2. 初值 = 1 3. 終值 = 10 B7 儲存格值 = sum : B8 儲存格值 = k 程式碼 Dim sum As Integer, k As Integer sum = 0 For k = 1 To 10 Step 1 sum = sum + k If sum > 30 Then Exit For Next Range("B7").Value = sum Range("B8").Value = k 隨堂測驗 1. 試將 =? 的運算式, 使用 For Next 迴圈敘述來撰寫程式? 2. 試將 =? 的運算式, 使用 For Next 迴圈敘述來撰寫程式? 5-4

流程控制 ( 二 ) 重複結構在前面第二章中我們介紹了程式除錯的方法, 我們藉此來了解 For Next 敘述的運作過程先在 VBA 程式編輯器中執行功能表檢視 / 區域變數視窗指令, 來開啟區域變數視窗然後按 <F8> 鍵來逐行執行程式, 就可以透過區域變數視窗來觀察 For Next 迴圈的運作流程,

5 流程控制 ( 二 ) 重複結構在前面第二章中我們介紹了程式除錯的方法, 我們藉此來了解 For Next 敘述的運作過程先在 VBA 程式編輯器中執行功能表檢視 / 區域變數視窗指令, 來開啟區域變數視窗然後按 <F8> 鍵來逐行執行程式, 就可以透過區域變數視窗來觀察 For Next 迴圈的運作流程, 以及相關變數的變化情形 FileName:For.xlsm 設計一個迴圈測試程式, 可輸入 For Next 迴圈的初值終值和增值, 執行後會計算出總和並顯示輸出要求解題技巧建立輸出入介面 1. 新增活頁簿並以 For 為新活頁簿名稱 2. 在工作表 1 中建立如下表格, 和 ActiveX 命令按鈕控制項 : 5-5

6 問題分析 1. 從儲存格讀取使用者輸入的初值終值和增值, 並分別存放在 start_num( 初值 ) end_num( 終值 ) 和 step_num ( 增值 ) 變數中 2. 將 start_num( 初值 ) end_num( 終值 ) 和 step_num ( 增值 ) 變數, 代入 For Next 迴圈中計算出總和 For i = start_num To end_num Step step_num sum += i Next 編寫程式碼 FileName: For.xlsm ( 工作表 1 程式碼 ) 01 Private Sub CommandButton1_Click() 02 Dim start_num, end_num, step_num, sum As Integer 03 start_num = Range("B1").Value 04 end_num = Range("B2").Value 05 step_num = Range("B3").Value 06 sum = 0 ' 預設總和為 0 07 For i = start_num To end_num Step step_num 08 sum = sum + i 09 Next 10 Range("B4").Value = sum 11 End Sub 隨堂測驗將上面實作增加增值的檢查, 以避免程式執行時的錯誤第一增值不能為零第二當終值大於初值時, 增值必須大於零第三終值小於初值時, 增值必須小於零 5-6

流程控制 ( 二 ) 重複結構 5.3 巢狀 For...Next 迴圈 5.3.1 巢狀 For.

若未超出範圍再進入外迴圈內, 將內迴圈的敘述再執行一次, 如此反覆執行到超出範圍才離開外迴圈使用巢狀迴圈時, 要特別注意每個 For 都必須有對應的 Next, 迴圈彼此之間是不允許相互交錯, 所以編寫時要使用縮排外迴圈

7 流程控制 ( 二 ) 重複結構 5.3 巢狀 For...Next 迴圈巢狀 For...Next 迴圈所謂巢狀 For Next 迴圈, 就是指一個 For Next 迴圈內的, 還有 For Next 執行時先進入外迴圈內將內迴圈的執行一次, 再回到外迴圈最前面比較計數變數和終值是否超出範圍? 若未超出範圍再進入外迴圈內, 將內迴圈的敘述再執行一次, 如此反覆執行到超出範圍才離開外迴圈使用巢狀迴圈時, 要特別注意每個 For 都必須有對應的 Next, 迴圈彼此之間是不允許相互交錯, 所以編寫時要使用縮排外迴圈 For i = 1 To 10 Step 1... For j = 1 To 10 Step 1... Next... Next 內迴圈巢狀迴圈中的每個 For 迴圈, 都必須使用自己的計數變數, 不可以重複使用通常巢狀 For 迴圈使用於二維有規則性的表格, 可以逐列逐欄一一寫入或是讀取儲存格的資料例如 : 製作一個九九乘法表, 統計儲存格範圍的數值總和等 5-7

簡例每列都顯示五個 "*" 星號, 共三個水平列可以將 r 設為外部迴圈的計數變數, c 為內部迴圈的計數變數其演算法如下 : 設定 r 變數由 1~3 表水平列數,c 變數由 1 ~ 5 表每列印出的個數 r = 1 即第 1 列時,c = 1 ~ 5 執行 5 次, 每次設儲存格 Cells(1, c) 的值為 "*" r = 2 即第 2 列時,c = 1 ~ 5 執行 5 次,

8 簡例每列都顯示五個 "*" 星號, 共三個水平列可以將 r 設為外部迴圈的計數變數, c 為內部迴圈的計數變數其演算法如下 : 設定 r 變數由 1~3 表水平列數,c 變數由 1 ~ 5 表每列印出的個數 r = 1 即第 1 列時,c = 1 ~ 5 執行 5 次, 每次設儲存格 Cells(1, c) 的值為 "*" r = 2 即第 2 列時,c = 1 ~ 5 執行 5 次, 每次設儲存格 Cells(2, c) 的值為 "*" r = 3 即第 3 列時,c = 1 ~ 5 執行 5 次, 每次設儲存格 Cells(3, c) 的值為 "*" For r = 1 To 3 For c = 1 To 5 Cells(r, c).value = "*" Next Next 輸出結果 FileName:One2Six.xlsm 設計一個可以顯示如下圖的 1 至 6 漸增的程式輸出要求 5-8

9 流程控制 ( 二 ) 重複結構解題技巧建立輸出入介面 1. 新增活頁簿並以 One2Six 為新活頁簿名稱 2. 在工作表 1 中建立一個 ActiveX 命令按鈕控制項問題分析 1. 列 ( 橫向 ) 和欄 ( 縱向 ) 都是由 1 到 6, 因此可以使用巢狀迴圈外圈 r 為水平列 ( 橫向 ) 執行 6 次 (r=1~6), 內圈 c 為垂直欄 ( 縱向 ) 由 1 到 6 漸增, 所以要將內圈的終值設為 r r=1: c = 1 To 1 顯示 c 值 1 次 r=2: c = 1 To 2 顯示 c 值 2 次 r=3: c = 1 To 3 顯示 c 值 3 次 r=4: c = 1 To 4 顯示 c 值 4 次 r=5: c = 1 To 5 顯示 c 值 5 次 r=6: c = 1 To 6 顯示 c 值 6 次 2. 因為要寫入到儲存格當中, 儲存格以 Cells 方式來指定會比較簡便 Cells() 內第一個參數是指定列數, 第二個參數是指定欄數, 例如 :Cells(3, 2) 就等於 B3 儲存格 r = 1 r + 1 r > 6 是否是否 c = 1 c > r Cells(r, c) = c c

10 編寫程式碼 FileName: One2Six.xlsm ( 工作表 1 程式碼 ) 01 Private Sub CommandButton1_Click() 02 For r = 1 To 6 03 For c = 1 To r 04 Cells(r, c).value = c 05 Next 06 Next 07 End Sub 隨堂測驗設計一個可以顯示如右圖的 1 至 6 漸減的程式取得工作表資料的最下列和最右欄當我們要處理 Excel 工作表中的資料時, 常常需要知道最下一列資料的列號, 以及最右一欄資料是第幾欄, 以便設定 For Next 迴圈的終值此時可以使用儲存格的 End 屬性, 可以由 A1 儲存格開始沿 xldown 方向找到最下一列, 再配合 Row 屬性取得列號沿 xltoright 方向找到最右一欄, 再配合 Column 屬性取得是第幾欄 End 屬性的詳細用法請參閱第十章第二節的內容例如 : 要取得工作表最下一列的列號, 和最右一欄是第幾欄, 程式寫法為 : rnum = Range("A1").End(xlDown).Row cnum = Range("A1").End(xlToRight).Column FileName:BackColor.xlsm 在公司存貨月報表上按鈕, 會自動檢查表格的範圍, 然後每隔一列填入紫色作為底色, 以方便閱讀表格 5-10

11 流程控制 ( 二 ) 重複結構輸出要求解題技巧建立輸出入介面 1. 新增活頁簿並以 BackColor 為新活頁簿名稱 2. 將範例 ch05 資料夾 BackColor 資料.xlsx 的表格複製到工作表 1 中, 再建立一個 ActiveX 命令按鈕控制項問題分析 1. 使用 End 屬性取得表格的最下列列號, 以及最右欄是第幾欄 2. 因為是隔列填底色, 所以 For 迴圈中的增值設為 2 3. 儲存格範圍可以使用 Range(Cells( 列 1, 欄 1), Cells( 列 2, 欄 2)) 來表示, 其中 Cells( 列 1, 欄 1) 為左上角儲存格 Cells( 列 2, 欄 2) 為右下角儲存格 4. 使用儲存格的 Interior.Color 屬性可以設定底色, 詳細用法請參閱第十章 5-11

編寫程式碼 FileName: BackColor.xlsm ( 工作表 1 程式碼 ) 01 Private Sub CommandButton1_Click() 02 Dim rnum As Integer 03 Dim cnum As Integer 04 rnum = Range("A1").End(xlDown).

12 編寫程式碼 FileName: BackColor.xlsm ( 工作表 1 程式碼 ) 01 Private Sub CommandButton1_Click() 02 Dim rnum As Integer 03 Dim cnum As Integer 04 rnum = Range("A1").End(xlDown).Row ' 取得最下列是第幾列 05 cnum = Range("A1").End(xlToRight).Column ' 取得最右欄是第幾欄 06 For r = 2 To rnum Step 2 ' 從第二列開始隔列填色 07 Range(Cells(r, 1), Cells(r, cnum)).interior.color = RGB(255, 0, 255) 08 Next 09 End Sub 隨堂測驗將上面實作改成隔欄填入底色 FileName:Print.xlsm 本實作學習如何修改巨集產生的程式碼變成符合本實作的程式碼本實作要求將工作表中 1~10 個班級所有同學的六科成績, 按鈕就會將 1~10 個班級, 逐班顯示所有同學的六科成績建議先透過功能區資料標籤頁的自動篩選鈕, 點按班級的下拉鈕, 如下圖選擇第一班, 便會由成績工作表中篩選出並顯示第一班所有同學的六科成績, 將此過程錄製成巨集, 再將巨集自動產生的程式碼複製給按鈕 Command Button1 的 Click 事件程序中, 然後在 Click 事件程序中修改相關程式碼, 變成可列印 1-10 個班級所有同學六科成績 5-12

13 流程控制 ( 二 ) 重複結構輸出要求解題技巧建立輸出入介面 1. 新增活頁簿並以 Print 為新活頁簿名稱 2. 將範例 ch05 資料夾中 Print 資料.xlsx 中的資料複製到工作表 1, 建立一個 ActiveX 命令按鈕控制項, 並設定其屬性值 : PrintObject=False 分析問題 1. 自動篩選和列印的程式碼, 我們可以使用錄製巨集的方式將程式碼錄下操作步驟如下 : 在開發人員索引標籤頁中按鈕, 預設會在 Module1 中建立巨集 1 程序我們使用預設值因為只是要所錄製下來的程式碼, 按鈕開始錄製巨集點按 A1 儲存格, 然後在資料索引標籤頁中按自動篩選鈕, 開啟自動篩選的功能 5-13

14 點按班級的下拉鈕, 只勾選 1 項目, 然後按鈕, 此時只會顯示 1 班同學的成績資料執行檔案 / 列印指令, 印出 1 班同學的成績表在資料索引標籤中按在開發人員索引標籤中按鈕, 關閉自動篩選功能鈕, 停止錄製巨集 2. 將巨集 1 中錄製的程式碼複製到 CommandButton1_Click 事件程序中, 下面就是所錄製的巨集程式 Range("A1").Select ' 選取 A1 儲存格 02 Selection.AutoFilter ' 開啟自動篩選 03 ActiveSheet.Range("$A$1:$I$102").AutoFilter Field:=1, Criteria1:="1" ' 篩選條件為 1 班 04 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ' 列印 1 份 05 Selection.AutoFilter ' 關閉自動篩選 3. 錄製完成的巨集程式, 可以再加上 VBA 的語法來增加其功能以上巨集是列印一個班的程式, 我們可以加上 For..Next 迴圈來列印出十個班的成績表上面第三行程式 Criteria1:="1", 是設定篩選條件為 "1", 所以必須用 Str 函數將計數變數轉為字串型態另外 Range("$A$1:$I$102") 指定篩選的儲存格範圍, 下次執行時如果學生人數增加會造成錯誤, 所以修改為 Range("A:I")

15 流程控制 ( 二 ) 重複結構 4. 在專案視窗中的 Module1 上按右鍵, 執行移除 Module1 指令刪除錄製的巨集程式 5. 命令按鈕的 PrintObject 屬性值設為 False, 是指定列印時不印出控制項編寫程式碼 FileName: Print.xlsm ( 工作表 1 程式碼 ) 01 Private Sub CommandButton1_Click() 02 Range("A1").Select ' 選取 A1 儲存格 03 Selection.AutoFilter ' 開啟自動篩選 04 For i = 1 To ActiveSheet.Range("A:I").AutoFilter Field:=1, Criteria1:=Str(i) ' 篩選條件為 i 字串 06 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ 07 IgnorePrintAreas:=False ' 列印 1 份 08 Next 09 Selection.AutoFilter ' 關閉自動篩選 10 End Sub 5.4 Do Loop 迴圈 For Next 計數迴圈會將迴圈內的, 反覆執行指定的次數因為 Do Loop 迴圈沒有計數變數, 是靠條件式來決定是否離開迴圈所以迴圈的執行次數無法事先預知時, 就必須改用 Do Loop 迴圈敘述來設計如果 Do Loop 條件式迴圈敘述的條件式, 置於迴圈的第一行就稱為前測式迴圈 ; 如果將條件式放在迴圈的最後一行, 就稱為後測式迴圈前測式迴圈要先判斷條件式是否成立? 如果成立才執行迴圈內的敘述如果條件式一開始便不成立, 則迴圈內的敘述不會被執行後測式迴圈是先執行迴圈內的敘述後才判斷條件式, 所以迴圈內的敘述至少會被執行一次無論是使用前測式或是後測式條件式迴圈, 在迴圈內必須有能夠使條件式不滿足的敘述, 如此才能離開迴圈, 繼續執行接在迴圈後面的敘述否則會一直在迴圈內反覆執行形成無窮迴圈, 而無法離開迴圈的錯誤 5-15

16 5.4.1 Do While 迴圈 Do While 迴圈是 < 條件式 > 成立才執行迴圈內的敘述, 根據置放 < 條件式 > 的位置分成前測式迴圈和後測式迴圈一前測式迴圈 Do While < 條件式 > Loop 迴圈, 將 < 條件式 > 放置在迴圈的第一行, 所以是屬於前測式迴圈當 While 後面的 < 條件式 > 為 True 時, 會如下圖將迴圈內的執行一次, 然後再回到迴圈的起點, 再重新判斷 < 條件式 > 一次, 一直到 < 條件式 > 為 False 時, 才結束迴圈若要中途離開 Do 迴圈, 繼續執行接在迴圈後面的程式碼時, 可以使用 Exit Do 敘述其語法如下 : 語法 : Do While < 條件式 > [Exit Do] Loop 條件式否是二後測式迴圈至於 Do Loop While < 條件式 > 迴圈, 將 < 條件式 > 放置在迴圈的最後一行, 所以是屬於後測式迴圈使用時機是先執行迴圈內的一次, 才判斷 < 條件式 > 是否成立時使用若 < 條件式 > 為 True, 會再執行迴圈內的一次, 直到 < 條件式 > 為 False 才結束迴圈其語法如下 : 語法 : Do [Exit Do] Loop While < 條件式 > 否條件式是 5-16

17 流程控制 ( 二 ) 重複結構 Do While Loop 是前測式迴圈, 如果一開始條件就不成立, 則迴圈內的完全不會被執行就離開迴圈至於 Do Loop While 則是屬於後測式迴圈, 迴圈內至少會執行一次 Do Until 迴圈 Do While 迴圈是 < 條件式 > 成立時, 才執行迴圈內的 ; 而 Do Until 迴圈是 < 條件式 > 不成立時, 才執行迴圈內的根據 < 條件式 > 的位置, 一樣分成前測式迴圈和後測式迴圈一前測式迴圈 Do Until Loop 是以否定方式來做判斷, 當 < 條件式 > 不成立時, 才執行迴圈內的 ; 若 < 條件式 > 成立, 才離開迴圈 Do Until Loop 迴圈是屬於前測式迴圈, 其語法為 : 語法 : Do Until < 條件式 > Loop [Exit Do] 條件式成立是否二後測式迴圈 Do Loop Until 迴圈也是以否定方式來做判斷, 當 < 條件式 > 不成立時, 才繼續執行迴圈內的 ; 若 < 條件式 > 成立就離開迴圈 Do Loop Until 迴圈是屬於後測式迴圈, 其語法為 : 語法 Do [Exit Do] Loop Until < 條件式 > 條件式成立是否 5-17

18 Do Loop 條件式迴圈無論是前測式或後測式迴圈, 都可以達到重複執行的效果撰寫程式時該使用哪個迴圈, 應該根據條件和個人的習慣來決定下面我們用 Do... Loop 四種不同的條件式迴圈, 來撰寫計算 sum = 程式 : 一使用 Do While 迴圈 1. 使用 Do While Loop 2. 使用 Do.. Loop While Dim i As Integer, sum As Integer i = 0: sum = 0 Do While i < 10 i = i + 1 sum = sum + i Loop Dim i As Integer, sum As Integer i = 0: sum = 0 Do i = i + 1 sum = sum + i Loop While i < 10 二使用 Do Until 迴圈 1. 使用 Do Until Loop 2. 使用 Do.. Loop Until Dim i As Integer, sum As Integer i = 0: sum = 0 Do Until i >= 10 i = i + 1 sum = sum + i Loop Dim i As Integer, sum As Integer i = 0: sum = 0 Do i = i + 1 sum = sum + i Loop Until i >= While Wend 迴圈 While Wend 迴圈和 Do While Loop 迴圈類似, 都是屬於前測式迴圈當 While 後面的條件式結果為 True 時, 會將迴圈內的執行一次, 然後再回到迴圈的起點, 再重新判斷條件式一次, 當條件式結果為 False 時, 才離開迴圈要特別注意的是 While Wend 迴圈沒有中途離開迴圈的敘述, 所以如果需要中途跳離迴圈, 請改用其他的迴圈敘述其語法如下 : 5-18

19 流程控制 ( 二 ) 重複結構語法 While < 條件式 > Wend 簡例條件式成立否是用 While Wend 迴圈來計算 sum = : Dim i As Integer, sum As Integer i = 0: sum = 0 While i < 10 i = i + 1 sum = sum + i Wend FileName:Sum.xlsm 從 A2 儲存格開始逐一向下讀取數值, 直到沒有數值為止, 計算出的總計在 B2 儲存格中顯示輸出要求解題技巧建立輸出入介面 1. 新增活頁簿並以 Sum 為新活頁簿名稱 5-19

20 2. 在工作表 1 中建立如下的表格, 和一個 ActiveX 命令按鈕控制項問題分析 1. 因為不知道使用者會輸入多少的數值, 所以要使用前測式 Do While Loop 迴圈, 當儲存格內有數值才加入總計中, 否則就結束迴圈 2. 使用 IsEmpty() 函數來檢查儲存是否為空白, 如果傳回值為 True 表為空白 ; 傳回值為 False 表有資料 3. 因為 Do Loop 迴圈不像 For 迴圈會自動增值, 所以要在迴圈內寫程式將變數加一, 來讀取下一個儲存格的數值編寫程式碼 FileName: Sum.xlsm ( 工作表 1 程式碼 ) 01 Sub test() 02 Dim i, sum As Integer 03 i = 2: sum = 0 04 Do While IsEmpty(Cells(i, 1)) = False 05 sum = sum + Cells(i, 1).Value 06 i = i Loop 08 Range("B2").Value = sum 09 End Sub 隨堂測驗將上面實作改成向右讀取儲存格數值, 並改用 Do Until Loop 前測式迴圈來編寫程式 5-20

輸出要求解題技巧建立輸出入介面 1. 新增活頁簿並以 CheckScore 為新活頁簿名稱 2.

21 輸出要求解題技巧建立輸出入介面 1. 新增活頁簿並以 CheckScore 為新活頁簿名稱 2. 在工作表 1 中建立如下的表格, 和一個 ActiveX 命令按鈕控制項問題分析 1. 因為是矩形的儲存格範圍, 所以要使用巢狀 Do Loop 迴圈來逐格檢查 2. 因為 Do Loop 為無窮迴圈, 所以一定要有 Exit Do 敘述, 才能跳離迴圈當到第 5 列就離開外層迴圈, 到第 7 欄就離開內層迴圈 3. 使用 IsEmpty() 函數檢查是否有輸入資料, 當傳回值為 True 表沒有資料 ; False 則表有資料 4. 使用 Cells() 的 Address 屬性, 可以取得該儲存格的位址, 例如 B2 儲存格位址為 $B$2 5-22

Excel VBA Excel Visual Basic for Application

Excel VBA Excel Visual Basic for Application Excel VBA Jun5,00 Sub 分頁 () Dim i As Integer Dim Cname As String Dim Code As Variant Set score=thisworkbook.sheets("sheet") Code=Array(" 專北一 "," 專北二 "," 專北三 "," 專桃園 "," 專桃竹 "," 專中苗 ", " 專台中 "," 專台南 ","