其中“宏名”文本框顯示為默認(rèn)的名稱“Macro1”,，建議修改為有意義的名稱,，在“快捷鍵”文本框中輸入的字母將作為運(yùn)行宏的組合鍵即<Ctrl+Shift+字母>。在“保存在”下拉列表扣列出了保存錄制宏的3個(gè)位置：當(dāng)前工作簿,，新工作簿和個(gè)人宏工作簿,，選擇“當(dāng)前工作簿”將宏保存在活動(dòng)工作簿中，選擇“新工作簿”將宏保存在一個(gè)新的空工作簿,，選擇“個(gè)人宏工作簿”將宏保存在名為Personal.xls的特定文件中,，啟動(dòng)Excel時(shí)會(huì)自動(dòng)地裝載該文件。在“說明”文本框中添加宏的注釋,，即顯示在代碼頂部的文字,，用來提供與該宏相關(guān)的信息。

通常在錄制宏之前,，應(yīng)規(guī)劃好操作步驟,，盡可能少地錄制不必要的操作。

Step2 單擊“確定”按鈕開始錄制宏,。此時(shí)會(huì)出現(xiàn)如圖1-4所示的工具欄,，包含兩個(gè)按鈕：“停止

錄制”按鈕和“相對(duì)引用”按鈕,。單擊“停止錄制”按鈕將停止錄制操作，單擊“相對(duì)引用”按鈕將以相對(duì)于當(dāng)前單元格的方式錄制操作,。默認(rèn)的情況下,，Excel采用絕對(duì)引用的方式錄制宏。

注意：此時(shí)工作簿狀態(tài)欄中會(huì)出現(xiàn)“錄音”的提示,，菜單也由“錄制新宏”變?yōu)椤巴Ｖ逛浿啤薄?/SPAN>

Step3 在Excel中進(jìn)行操作,。單擊菜單“數(shù)據(jù)”→“篩選”→“高級(jí)篩選”，在打開的“高級(jí)篩選”對(duì)話框中選中“將篩選結(jié)果復(fù)制到其他位置”單選按鈕,，如圖1-5所示,。

Step4 在“高級(jí)篩選”對(duì)話框中單擊“列表區(qū)域”文本框，然后用鼠標(biāo)選定Database工作表中A1:F10單元格區(qū)域,，即原始數(shù)據(jù)列表,。

Step5 在“高級(jí)篩選”對(duì)話框中單擊“條件區(qū)域”文本框，然后用鼠標(biāo)選定Result工作表中的B2:C3單元格區(qū)域,，即指定的日期范圍,。

Step6 在“高級(jí)篩選”對(duì)話框中單擊“復(fù)制到”文本框，然后用鼠標(biāo)選定Result工作表中的B5單元格,，即目標(biāo)數(shù)據(jù)區(qū)域的起始單元格,。完成選擇后的“高級(jí)篩選”對(duì)話框如圖1-6所示。

Step7 單擊“確定”按鈕,，獲取的數(shù)據(jù)將復(fù)制到單元格B5開始的區(qū)域中,，結(jié)果如圖1-7所示。

宏錄制將記錄步驟3至步驟7所進(jìn)行的操作,，并將其轉(zhuǎn)換成相應(yīng)的VBA代碼,。

Step8 關(guān)閉宏錄制，單擊菜單“工具”→“宏”→“Visual Basic編程器”或者<Alt+F11>組合鍵在VBE中查看錄制的代碼,，如圖1-8所示,。

Step9 整理或修改代碼。錄制操作完成,，接下來應(yīng)該在VBE中整理或修改宏錄制器所錄制的宏代碼,，使宏更簡(jiǎn)潔,、更靈活且更有效率,。

通常宏錄制器會(huì)“認(rèn)真地”記錄用戶的每一步操作，應(yīng)用與操作相關(guān)的所有屬性和方法的所有參數(shù),，而實(shí)際進(jìn)行的操作僅僅為其中的一部分,，因此可以刪除代碼中與操作無關(guān)的方法參數(shù)和屬性。比如在大多數(shù)情況下,，有關(guān)選定對(duì)象和激活對(duì)象的代碼并無實(shí)際的用途,，而且會(huì)降低宏代碼的整體效率，所以可以刪除。

此外,，通過錄制而得到的宏代碼不夠靈活,，僅能用于執(zhí)行某項(xiàng)特定的操作任務(wù)；不能做出判斷,，不能執(zhí)行循環(huán),，不能提示用戶僌相關(guān)信息，不能使用為題賦值,；只能生成Sub過程,。因此為了創(chuàng)建功能更強(qiáng)大的宏程序，有必要對(duì)錄制宏的代碼進(jìn)行改進(jìn),。

在修改錄制的代碼時(shí),，應(yīng)及時(shí)地調(diào)試代碼，以免誤刪所需要的代碼,。

本例中錄制的代碼很簡(jiǎn)潔,，沒有多余的代碼，因此無須整理,。在進(jìn)一步的應(yīng)用中,，需要獲取AdvancedFilter方法所在的代碼并適當(dāng)?shù)匦薷脑摯a，當(dāng)用戶在Database工作表中增加數(shù)據(jù)時(shí)能查詢最新的數(shù)據(jù),，使代碼更靈活,。修改后的代碼如下：

Sub GetDatas()

    Dim lLastRow As Long

    lLastRow = Sheets(“Database”).UsedRange.Rows.Count

    Range(“B5:G65536”).Clear

    Sheets(“Database”).Range(“A1:F” & lLastRow).AdvancedFilter _

          Action:=xlFilterCopy, _

          CriteriaRange:=Range(“B2:C3”), _

          CopyToRange:=Range(“B5”), _

          Unique:=False

End Sub

代碼解析：

第3行中的代碼獲取Database工作表中已使用區(qū)域的行數(shù)并賦值給變量lLastRow。

第4行中的代碼清除了當(dāng)前工作表中上次查詢所獲得的數(shù)據(jù),，以免在本次查詢的結(jié)果中留下不必要的數(shù)據(jù),。

第5行中的代碼修改了宏錄制器生成的代碼，使用變量lLastRow擴(kuò)展數(shù)據(jù)列表,，從而可以獲取最新的數(shù)據(jù),。

修改代碼后可以在Database工作表中添加數(shù)據(jù)，重新運(yùn)行GetData過程,。如果新添加的數(shù)據(jù)滿足條件,，就會(huì)自動(dòng)地添加到結(jié)果數(shù)據(jù)表中。

注意：運(yùn)行此段代碼時(shí),，Result工作表應(yīng)該為活動(dòng)工作表,。

可以修改Result工作表單元格區(qū)域B3:C3中的日期范圍，然后再次運(yùn)行GetData過程,，從而獲取滿足該日期范圍的數(shù)據(jù),。

技巧2 執(zhí)行宏（調(diào)用過程）的5種方式

在Excel中執(zhí)行宏，實(shí)際上就是調(diào)用ExcelVBA過程,。Excel提供了多種調(diào)用過程的方式,，以滿足不同的情形和適應(yīng)不同的需求,。下面介紹幾種常用的調(diào)用過程的方法。

2-1 利用“窗體”控件或?qū)ο笳{(diào)用過程

Step1 從“窗體”工具欄中拖放“按鈕”控件到工作表的適當(dāng)位置,，將出現(xiàn)“宏”對(duì)話框,；或者在已經(jīng)存在于工作表中的“按鈕”上單擊右鍵，從彈出的快捷菜單中選擇“指定宏”,，如圖2-1所示,。顯示“窗體”工具欄的方法是單擊菜單“視圖”→“工具欄”→“窗體”。

Step2 在“宏”對(duì)話框中選擇相應(yīng)的“宏名”,，然后單擊“確定”按鈕,，如圖2-2所示。

Step3 單擊工作表中的任意一個(gè)單元格,，取消對(duì)該按鈕的選擇?，F(xiàn)在只要單擊該按鈕就能夠執(zhí)行宏（調(diào)用指定的過程）。Excel工作表中的圖片,、形狀也可以調(diào)用過程,，調(diào)用的方法與上面的步驟相同。

2-2 利用“控件工具箱”控件調(diào)用過程

步驟1 選擇“控件工具箱”工具欄中的“命令按鈕”進(jìn)入設(shè)計(jì)模式,。顯示“控件工具箱”工具欄的方法是單擊菜單“視圖”→“工具欄”→“控件工具箱”,。

步驟2 拖放“命令按鈕”控件到工作表的適當(dāng)位置，雙擊該命令按鈕或者在該命令按鈕上單擊右鍵,，從彈出的快捷菜單中選擇“查看代碼”如圖2-3所示,。

步驟3 在該命令按鈕的單擊事件過程中，輸入調(diào)用過程的代碼如下：

Private Sub commandbutton1_click()

    Call getdatas

End Sub

其中Call語句調(diào)用GetDatas過程,。也可以不加Call語句,，而直接輸入要調(diào)用的過程名稱GetDatas。

步驟4 回到Excel界面,，單擊“控件工具箱”工具欄左上角的按鈕退出設(shè)計(jì)模式,，如圖2-4所示。

此時(shí)單擊該命令按鈕即可調(diào)用指定的過程,。

2-3 在菜單或工具欄中調(diào)用過程

在Excel菜單中能夠添加菜單項(xiàng),，然后使用該菜單項(xiàng)調(diào)用過程。

步驟1 單擊菜單“工具”→“自定義”,，在彈出的“自定義”對(duì)話框中選擇“命令”選項(xiàng)卡,。

步驟2 在左側(cè)的“類別”欄中找到“宏”，然后單擊右側(cè)的“命令”欄中的“自定義菜單項(xiàng)”,。

步驟3 拖動(dòng)“自定義菜單項(xiàng)”到菜單欄,，例如將其拖至菜單“文件”中的“文件搜索”的下方，創(chuàng)建一個(gè)自定義菜單項(xiàng),，如圖2-5所示,。

步驟4 在剛創(chuàng)建的自定義菜單項(xiàng)中單擊右鍵。

步驟5 在彈出的右鍵菜單中可以重命名該菜單項(xiàng),，為其命名一個(gè)有意義的名稱,，例如輸入“數(shù)據(jù)搜索”。

步驟6 在右鍵菜單中單擊“指定宏”,。

步驟7 在打開的“指定宏”對(duì)話框中選擇相應(yīng)的宏名,，然后單擊“確定”按鈕。

步驟8 在“自定義”對(duì)話框中單擊“關(guān)閉”按鈕,。

此時(shí)在菜單“文件”下就新增了一個(gè)名為“數(shù)據(jù)搜索”的菜單項(xiàng),，單擊該菜單項(xiàng)即可調(diào)用指定的“自定義按鈕”拖至工具欄相應(yīng)的位置并指定宏。

2-4 在一個(gè)過程中調(diào)用另一個(gè)過程

在使用VBA編寫程序時(shí),，一個(gè)好的習(xí)慣是盡量將實(shí)現(xiàn)單獨(dú)功能的代碼放置在獨(dú)立的過程中,，并在主過程中調(diào)用這些獨(dú)立的過程。這樣不僅便于程序的調(diào)試,，而且程序的結(jié)構(gòu)清晰,，便于理解和維護(hù)，取也能夠重復(fù)使用通用的過程代碼,。

下面用一個(gè)示例演示在程序中調(diào)用過程的方法,。如圖2-6所示的工作表，其中“加班費(fèi)基數(shù)”固定,，每個(gè)加班為80元,，“加班數(shù)”由人工輸入，“加班系數(shù)”根據(jù)加班個(gè)數(shù)而不同,，“加班費(fèi)”為“加班費(fèi)基數(shù)”,、“加班數(shù)”和“加班系數(shù)”的乘積。要求自動(dòng)地根據(jù)“加班數(shù)”確定“加班系數(shù)”并得到“加班費(fèi)”數(shù)值,，然后將最大加班費(fèi)數(shù)值所在的單元格的底紋設(shè)置為綠色,。

示例代碼如下：

Dim lLastRow As Long

Sub myMain()

   Dim rng As Range

   lLastRow = Range("A" & Cells.Row.Count).End(xlUp).Row

   Range("D3:E" & lLastRow).Clear

   '調(diào)用獲取加班系數(shù)的過程

   Call GetExtraNum

   '調(diào)用計(jì)算加班費(fèi)的過程

   Call CalculateExtra

   Set rng = Range("E3:E" & lLastRow)

   '調(diào)用設(shè)置加班費(fèi)不夠格式的過程

   Call SetFormat(rng)

End Sub

'獲取加班系數(shù)并輸入工作表

Sub GetExtraNum()

    Dim i As Long, ExtraNum As Single

    For i = 3 To lLastRow

        ExtraNum = Range("C" & i).Value

        Range("D" & i).Value = GetExtra(ExtraNum)

    Next i

End Sub

'計(jì)算加班費(fèi)并輸入工作表

Sub CalculateExtra()

   Range("E3:E" & lLastRow).FormulaR1C1 = "=RC2*RC3*RC4"

End Sub

'設(shè)置加班費(fèi)列的格式并突出顯示最大值

Sub SetFormat(rngF As Range)

    With rngF

        .NumberFormat = "0.00"

        .HorizontalAlignment = xlCenter

        .FormatConditions.Delete

        .FormatConditions.Add Type:=xlExpression, Formulal:="=RC5=max(c5)"

        .FormatConditions(1).Interior.ColorIndex = 4

    End With

End Sub

'獲取加班系數(shù)

Function GetExtra(num As Single) As Single

    Select Case num

        Case 1, 2

            GetExtra = 1

        Case 3 To 5

            GetExtra = 1.05

        Case Is > 5

            GetExtra = 1.1

        Case Else

            GetExtra = 0

    End Select

End Function

代碼解析：

本示例包括5個(gè)過程，其中myMain過程為主調(diào)過程,，用來調(diào)用另外4個(gè)過程,。

GetExtraNum過程用來獲致“加班系數(shù)”并輸入到工作表相應(yīng)的單元格中。該過程中調(diào)用GetExtra函數(shù)過程根據(jù)“加班數(shù)”來獲取相應(yīng)的“加班系數(shù)”,，其中使用了Select Case結(jié)構(gòu)語句,。

CalculateExtra過程用來計(jì)算“加班費(fèi)”并輸入工作表，代碼中使用R1C1樣式的公式計(jì)算單元格數(shù)值的乘積,。

SetFormat過程用來設(shè)置“加班費(fèi)”列的格式,，其中第31行至第33行中的代碼使用條件格式來判斷單元格區(qū)域中的最大值，并對(duì)該值所在的單元格設(shè)置格式,。

第7行,、第9行和第12行中的代碼調(diào)用Sub過程,，第19行中的代碼調(diào)用Function過程。除了本書后面介紹的屬性過程外,，ExcelVBA有兩種類型的過程：Sub過程和Function過程,。

在Sub過程中能夠調(diào)用Function過程和其他的Sub過程。如果從另一個(gè)過程中調(diào)用Sub過程,，那么該Sub過程可以接受輸入?yún)?shù),。

注意：不能運(yùn)行一個(gè)帶有直接輸入?yún)?shù)的Sub過程。

Function過程也可以接受輸入?yún)?shù),，能夠調(diào)用另一個(gè)Function過程,，甚至Sub過程。與Sub過程不同的是：Function過程能夠返回值,。

注意：自定義函數(shù)內(nèi)置的工作表函數(shù)的效率更低,，特別是在工作表中大量地使用自定義函數(shù)時(shí)。此外,，自定義函數(shù)不能操作工作表及其單元格,，不能改變單元格的格式設(shè)置，例如復(fù)制或移動(dòng)單元格,、設(shè)置字體的顏色等,。

在myMain過程中使用Call語句調(diào)用過程，也可以省略Call語句,，直接使用過程的名稱來調(diào)用該過程,。在使用Call語句調(diào)用過程時(shí)，如果該過程有參數(shù),，則必須在被調(diào)過程的參數(shù)的周圍加上括號(hào),，如第12行中的代碼。如果省略Call語句,，對(duì)于帶參數(shù)的Sub過程,，參數(shù)的周圍則不應(yīng)該放置括號(hào)；對(duì)于Function過程,，如果要使用該函數(shù)過程的返回值,，則應(yīng)該在參數(shù)的周圍放置括號(hào)，如果不需要使用帶參數(shù)的Function過程的返回值,，在參數(shù)的周圍則不需要放置括號(hào),。

在定義參數(shù)時(shí)，建議同時(shí)聲明參數(shù)的類型,。對(duì)于Function過程,，建議同時(shí)聲明該函數(shù)過程的返回值類型，例如第37行中的代碼。此外在指定參數(shù)的值時(shí),，應(yīng)使用“：=”指定參數(shù)的名稱以便于理解,。

運(yùn)行myMain過程后結(jié)果如圖2-7所示。

2-5 利用Excel事件調(diào)用過程

如果在打開工作簿時(shí),，希望直接運(yùn)行技巧1中的GetDatas過程,，則可在工作簿的Open事件過程中輸入下面的代碼：

Private SubWorkbook_Open（）

    GetDatas

End Sub

當(dāng)然還可以使用Application對(duì)象的Run方法執(zhí)行過程,。關(guān)于Run方法的具體使用請(qǐng)參閱技巧19.