巨集(Macro).pptVIP

一. 何謂巨集（Macro）？ 巨集(Macro)是將許多命令或操作過程記錄下來，彙總成單一按鈕動作或巨集指令以後只要呼叫此巨集，即可完成所有設定的命令或操作 巨集適合應用於重複性很高的操作，將重複性的操作錄製成巨集，可簡化操作過程 巨集是存放在Visual Basic模組中的一連串指令和函數 錄製新巨集 定義巨集名稱及快速鍵 相對參照與絕對參照 錄製完畢 執行巨集的方式 從巨集視窗中執行 利用巨集的快速鍵執行 製作巨集按鈕 設計文字藝術師按鈕 在工具列上設定巨集按鈕 從巨集視窗中執行 利用巨集的快速鍵執行 檢視表單工具列-選擇按鈕指令 為文字藝術師按鈕指定巨集 在工具列上設定巨集按鈕 將自訂按鈕拖移至工具列上 二.何謂VBA？ VBA（Visual Basic for Application）係專門應用於Office中的程式語法，其主要架構及語法都與Visual Basic 相似 VB所發展的程式可一單獨在作業系統中執行， 而VBA則是為Excel、Access等 Office成員所量身訂做的語言工具 VB編輯器 錄製巨集所產生的VBA程式 新增VBA程式模組 VBA可用的資料型態 整數 Integer－ 2Bytes 長整數 Long－ 4Bytes 單精準浮點數 Single－ 4Bytes 倍精準浮點數 Double － 8Bytes 金額數值型態 Currency － 8Bytes 字串 String 位元組 Byte － 1Bytes 日期 Date 邏輯 Boolean 任何型別 Variant － 16Bytes 三. 程式流程控制基本指令 選擇結構 If… Then…End If If… Then…Else…End If Select Case…End Select 迴圈結構 For…Next For Each…In…Next Do…Loop 強迫跳離陳述式 Exit for Exit do If… Then…End If If 條件式 Then ….{條件式為True} End If If… Then…Else…End If If 條件式 Then ….{條件式為True} Else ….{條件式為False} End If For…Next迴圈 For 計次變數=起始值 To 終止值 (Step間隔值) …… Next 計次變數 Do…Loop陳述式 Do While|Until 條件式 …. Loop 或 Do …. Loop While|Until 條件式 Sub delstar() Dim I As Integer I = 1 Worksheets(1).Select AA = Range(A I).Value Do While AA If Range(B I).Value = * Then Rows(I).Delete Else I = I + 1 End If AA = Range(A I).Value Loop End Sub  兩個key都相同才刪 需先排序兩個key Sub delsame() Dim I As Integer I = 2 Worksheets(2).Select AA = Range(A I).Value BB = Range(B I).Value I = I + 1 Do While AA If Range(A I).Value = AA And Range(B I).Value = BB Then Rows(I).Delete Else AA = Range(A I).Value BB = Range(B I).Value I = I + 1 End If Loop End Sub 計算key不重複的有幾筆 需先排序 Sub countunique() Dim I, count As Integer I = 2 count = 0 Worksheets(1).Select AA = Range(A I).Value I = I + 1 Do While AA If Range(A I).Value AA Then count = count + 1 AA = Range(A I).Value End If I = I + 1 Loop Range(M1).Valu