項目6-動態(tài)高效的宏與VBA[125頁]課件

1、項目6 靈活高效的宏與VBA學(xué)習(xí)要點項目展示項目制作知識點擊實戰(zhàn)訓(xùn)練項目6 靈活高效的宏與VBA項目展示學(xué)生成績管理系統(tǒng)主界面項目6 靈活高效的宏與VBA項目制作任務(wù)一：“學(xué)生成績管理系統(tǒng)主界面”制作項目6 靈活高效的宏與VBA（1）新建工作簿，命名為：學(xué)生成績管理系統(tǒng)主界面。項目6 靈活高效的宏與VBA（2）插入背景圖：在【頁面布局】選項卡的【頁面設(shè)置】功能區(qū)中，單擊【背景】命令按鈕，在彈出的“插入圖片”對話框中，點擊“從文件”，選擇“背景圖.jpg”，然后點擊“插入”按鈕。效果如圖所示。任務(wù)一：“學(xué)生成績管理系統(tǒng)主界面”制作項目6 靈活高效的宏與VBA（3）主界面標題設(shè)計。在【插入】選項卡

2、的【文本】功能區(qū)中，單擊【藝術(shù)字】命令按鈕，彈出“文字編輯框”，如圖所示。（4）輸入文字：學(xué)生成績管理系統(tǒng)，適當調(diào)整文本的大小、位置等。任務(wù)一：“學(xué)生成績管理系統(tǒng)主界面”制作項目6 靈活高效的宏與VBA（5）主界面“學(xué)生基本信息管理”按鈕設(shè)計。在【開發(fā)工具】選項卡的【控件】功能區(qū)中，單擊【插入】命令按鈕，在彈出的“表單控件”按鈕中單擊“按鈕（窗體控件）”按鈕，如圖所示，在表格里繪制命令按鈕。任務(wù)一：“學(xué)生成績管理系統(tǒng)主界面”制作項目6 靈活高效的宏與VBA（6）右擊該命令按鈕，在彈出的快捷菜單里選擇“編輯文字”命令項，并輸入文字：學(xué)生基本信息管理，適當調(diào)整文字的格式和命令按鈕的位置，效果如圖所

3、示。任務(wù)一：“學(xué)生成績管理系統(tǒng)主界面”制作項目6 靈活高效的宏與VBA（7）主界面所有操作按鈕設(shè)計。按照第(5)、（6)步的操作方法，分別設(shè)計“學(xué)生成績管理”，“學(xué)生成績查詢”，“學(xué)生考勤管理”，“試卷分析報告”，“退出系統(tǒng)”操作按鈕，效果如圖所示。任務(wù)一：“學(xué)生成績管理系統(tǒng)主界面”制作任務(wù)二：錄制宏和運行宏項目6 靈活高效的宏與VBA（1）錄制宏：在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【錄制宏】命令按鈕，在彈出的“錄制宏”對話框中，輸入宏名：宏_學(xué)生基本信息管理，點擊“確定”按鈕，如圖所示。接下來打開“學(xué)生基本信息表.xlsx”，這一操作將被記錄下來，然后，點擊“停止錄制”按鈕，完成“

4、宏_學(xué)生基本信息管理”宏的錄制。項目6 靈活高效的宏與VBA（2）指定宏：右擊“學(xué)生基本信息管理”按鈕，在彈出的快捷菜單里，選擇“指定宏”命令，打開“指定宏”對話框，如圖所示。在該對話框里選擇“宏_學(xué)生基本信息管理”，然后，點擊“確定”按鈕。任務(wù)二：錄制宏和運行宏項目6 靈活高效的宏與VBA（3）運行宏：這時點擊“學(xué)生基本信息管理”按鈕，開始執(zhí)行“宏_學(xué)生基本信息管理”宏，自動打開“學(xué)生基本信息表.xlsx”。效果如圖。任務(wù)二：錄制宏和運行宏項目6 靈活高效的宏與VBA（1）創(chuàng)建“選擇班級和課程”窗體。在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【Visual Basic】命令按鈕，打開Vis

5、ual Basic編輯器。在Visual Basic編輯器里，點擊 圖標，在彈出的快捷菜單里，選擇“用戶窗體”命令，如圖。任務(wù)三：創(chuàng)建和設(shè)計窗體項目6 靈活高效的宏與VBA（2）在“選擇班級和課程”窗體里添加控件。在工具箱里分別選擇 標簽控件，復(fù)選框控件和按鈕控件，在用戶窗體里分別創(chuàng)建：Label1、Label2、ComboBox1、ComboBox2、CommandButton1、CommandButton2，如圖所示。任務(wù)三：創(chuàng)建和設(shè)計窗體項目6 靈活高效的宏與VBA任務(wù)三：創(chuàng)建和設(shè)計窗體項目6 靈活高效的宏與VBA（3）設(shè)置窗體和控件屬性。 選中“選擇班級和課程”窗體，在屬性窗口的“Ca

6、ption”屬性里輸入：選擇班級和課程，如圖。任務(wù)三：創(chuàng)建和設(shè)計窗體項目6 靈活高效的宏與VBA然后設(shè)置Label1、Label2、 CommandButton1、CommandButton2的“Caption”屬性分別為：班級：、課程：、確定、取消；效果如圖。任務(wù)三：創(chuàng)建和設(shè)計窗體項目6 靈活高效的宏與VBA（4）編寫VBA代碼。 任務(wù)三：創(chuàng)建和設(shè)計窗體項目6 靈活高效的宏與VBA在“代碼窗口”的Initialize事件里，輸入如下代碼，實現(xiàn)班級和課程選項的初始化。任務(wù)三：創(chuàng)建和設(shè)計窗體項目6 靈活高效的宏與VBA（5）創(chuàng)建宏。在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【宏】命令按鈕，在彈

7、出的宏對話框里，輸入宏名：宏_學(xué)生成績管理，如圖，然后點擊“創(chuàng)建”按鈕。在打開的“代碼窗口”里輸入如下代碼:任務(wù)三：創(chuàng)建和設(shè)計窗體項目6 靈活高效的宏與VBA（6）指定并運行宏。右擊“學(xué)生成績管理”按鈕，在彈出的快捷菜單里，選擇“指定宏”命令，打開“指定宏”對話框，在該對話框里選擇“宏_學(xué)生成績管理”，然后，點擊“確定”按鈕。然后點擊“學(xué)生成績管理”按鈕，彈出“選擇班級和課程”窗體，如圖所示。任務(wù)三：創(chuàng)建和設(shè)計窗體項目6 靈活高效的宏與VBA 在彈出“選擇班級和課程”窗體里，選定班級和課程后，點擊“確定”按鈕，打開相應(yīng)的成績管理表。 任務(wù)三：創(chuàng)建和設(shè)計窗體任務(wù)四：VBA項目6 靈活高效的宏與V

8、BA（1）創(chuàng)建“宏_學(xué)生成績查詢”宏。在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【宏】命令按鈕，在彈出的宏對話框里，輸入宏名：宏_學(xué)生成績查詢，然后點擊“創(chuàng)建”按鈕。在打開的“代碼窗口”里輸入如下代碼，如圖。任務(wù)四：VBA項目6 靈活高效的宏與VBA（2）指定并運行宏。右擊“學(xué)生成績查詢”按鈕，在彈出的快捷菜單里，選擇“指定宏”命令，打開“指定宏”對話框，在該對話框里選擇“宏_學(xué)生成績查詢”，然后，點擊“確定”按鈕。然后點擊“學(xué)生成績查詢”按鈕，運行效果如圖所示。任務(wù)四：VBA項目6 靈活高效的宏與VBA（4）指定并運行宏。右擊“退出系統(tǒng)”按鈕，在彈出的快捷菜單里，選擇“指定宏”命令，打開“

9、指定宏”對話框，在該對話框里選擇“宏_退出”，然后，點擊“確定”按鈕。然后點擊“退出系統(tǒng)”按鈕，關(guān)閉工作表并退出Excel。（5）“學(xué)生考勤管理”和“試卷分析報告”按鈕的功能實現(xiàn)同“學(xué)生成績管理”。知識點擊本項目知識要點如下：應(yīng)用宏編寫VBA程序控件的應(yīng)用項目6 靈活高效的宏與VBA知識點擊6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA 宏是一種VBA應(yīng)用程序，它是存儲在VBA模塊中的一系列命令和函數(shù)的集合。當執(zhí)行宏命令所對應(yīng)的任務(wù)組合時，Excel會自動啟動該VBA程序模塊中的運行程序，以自動完成用戶指定的各項動作組合，Excel會自動將已錄制的命令組合重復(fù)執(zhí)行一次或者回放，從而實現(xiàn)重復(fù)操作

10、的自動化。 6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA一、錄制宏錄制宏，就是通過錄制的方法把在Excel中的操作過程以代碼的方式記錄并保存下來，即宏的代碼可以用錄制的方法自動產(chǎn)生。6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA例如：在產(chǎn)品信息表工作簿里，通過錄制宏計算員工的提成，要求宏名為：宏_計算提成，快捷鍵設(shè)置為：Ctrl+Shift+S。一、錄制宏（1）打開“銷售管理.xlsx”文件，選擇“產(chǎn)品信息表”工作簿。在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【錄制宏】命令按鈕，如圖所示。 項目6 靈活高效的宏與VBA（2）在彈出的“錄制宏”對話框中，輸入宏名：宏_計算提成，如圖；單擊“確

11、定”按鈕，開始進行錄制操作，之后在Excel中所進行的操作都將被記錄，直至點擊“停止錄制”按鈕。6.3.1 應(yīng)用宏6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA二、查看宏代碼在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【宏】命令按鈕，如圖所示；彈出宏對話框，如圖所示。6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA在宏對話框中點擊“編輯”按鈕，即可查看該宏的代碼，如圖所示。6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA三、運行宏方法一：通過“執(zhí)行”按鈕運行宏打開“銷售管理.xlsx”文件，選中“產(chǎn)品信息表”工作簿中的E2單元格，單擊【宏】命令按鈕，打開宏對話框，如圖所示。6.3.1 應(yīng)用宏項目6

12、 靈活高效的宏與VBA在“宏對話框”中，選擇“宏_計算提成”宏，點擊“執(zhí)行”按鈕，即可自動執(zhí)行，宏執(zhí)行前和執(zhí)行后的效果如圖所示。6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA方法二：通過快捷鍵運行宏也可以利用此前設(shè)置的宏快捷鍵CTRL + Shift+S，在鍵盤上按下對應(yīng)快捷鍵，宏將自動執(zhí)行；執(zhí)行效果如圖。6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA方法三：通過表單控件運行宏（1）創(chuàng)建表單控件。在【開發(fā)工具】選項卡的【控件】功能區(qū)中，單擊【插入】命令按鈕，在彈出的“控件列表”界面中，選擇“表單控件”分類中的“命令按鈕”控件，如圖。6.3.1 應(yīng)用

13、宏項目6 靈活高效的宏與VBA（2）在表格里繪制命令按鈕；右擊該命令按鈕，在彈出的快捷菜單里選擇“編輯文字”命令并輸入文字：計算提成；適當調(diào)整文字的格式和命令按鈕的位置，效果如圖所示。 6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA（3）指定宏。右擊“計算提成”命令按鈕，在彈出的快捷菜單里，選擇“指定宏”命令，打開“指定宏”對話框，如圖。在該對話框里選擇“宏_計算提成”，然后，點擊“確定”按鈕。（4）運行宏。點擊“計算提成”命令按鈕，運行效果如圖。6.3.1 應(yīng)用宏項目6 靈活高效的宏與VBA6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA VBA是Visual Basic for Ap

14、plications的縮寫，是一種應(yīng)用程序自動化語言。VBA的由來： 在20世紀90年代早期，使應(yīng)用程序自動化還是充滿挑戰(zhàn)性的領(lǐng)域。對每個需要自動化的應(yīng)用程序，人們不得不學(xué)習(xí)一種不同的自動化語言。例如，可以使用Excel的宏語言使Excel自動化等。因此，Microsoft決定開發(fā)一種應(yīng)用程序共享的通用自動化語言VBA，這就是VBA的由來。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA一、VBA開發(fā)環(huán)境VBA集成開發(fā)環(huán)境（IDE）是進行VBA程序設(shè)計和代碼編寫的地方，打開方式：在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【Visual Basic】命令按鈕，即可打開VBA的IDE環(huán)境。

15、也可以通過快捷鍵“ALT+F11” 打開，如圖所示。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA一、VBA開發(fā)環(huán)境1資源管理器窗口 在資源管理器窗口可以看到所有打開和加載的Excel文件及其加載宏。每一個Excel文件，在VBA里稱為一個工程。每個工程都有4類對象，包括：Microsoft Excel對象、窗體、模塊、類模塊，如圖所示。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBAMicrosoft Excel對象：代表了Excel文件及其包括的工作簿和工作表等幾個對象，包括所有的Sheet和一個Workbook，分別表示

16、文件（工作簿）中所有的工作表。窗體對象：代表了自定義對話框或界面。模塊：是自定義代碼保存的地方。類模塊：是以類或?qū)ο蟮姆绞骄帉懙拇a保存的地方。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA2屬性窗口屬性窗口主要用于對象屬性的交互式設(shè)計和定義，例如選中圖中的VBAProject，在屬性窗口即可更改其名稱。右圖顯示的是一個打開的窗體(UserForm)的屬性窗口。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA3代碼窗口在IDE窗口的右側(cè)，可以打開代碼窗口。在資源管理器窗口中的每一個對象對應(yīng)一個代碼窗口?？梢酝ㄟ^在對象上雙擊、在右鍵菜單或資源管理器工具欄上選擇查看代碼（或?qū)ο螅┐蜷_

17、代碼窗口，如圖所示。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA二、編寫VBA程序 打開Excel文件，在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【Visual Basic】命令按鈕，打開VBA的IDE環(huán)境，也可以通過快捷鍵“ALT+F11” 打開VBA的IDE環(huán)境。在VBAProject上單擊右鍵，選擇“插入”、“模塊”按鈕，打開一個代碼窗口，在窗口中輸入以下代碼，如圖所示。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA 將鼠標光標放置在代碼之內(nèi)，執(zhí)行【運行】|【運行子過程/用戶窗體】菜單命令，或者在工具欄單擊按鈕，則可運行代碼。運行結(jié)果如下：6.3.2 編寫VBA程序項

18、目6 靈活高效的宏與VBA代碼說明：這是一個名稱為“MyFirstVBAProgram”的過程。定義了2個變量，其類型為字符串類型調(diào)用InputBox內(nèi)置函數(shù)，并將返回值賦給strName變量。將幾個字符串組合成一個新字符串。調(diào)用MsgBox函數(shù)，顯示一個對話框。表示過程結(jié)束。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA1模塊、過程和函數(shù) 模塊是作為一個單元保存在一起的VBA定義和過程的集合。 VBA中有兩種基本類型的模塊：標準模塊和類模塊。 模塊可以包括2類子程序：過程或者函數(shù)。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA【例6-1】如圖所示，計算所有產(chǎn)品的總金額=銷量*

19、單價的過程。 過程代碼如下：6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA【例6-2】計算產(chǎn)品價格的10%為運費。 分析：定義一個Shipping函數(shù)，參數(shù)為(Price)，實現(xiàn)計算運費，計算結(jié)果在函數(shù)中通過賦給函數(shù)名“Shipping”來返回給調(diào)用者。Price可以是數(shù)字和單元格引用。這個函數(shù)可以被其他過程或函數(shù)調(diào)用，也可以使用在電子表格中，如圖所示。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA2創(chuàng)建過程和函數(shù)創(chuàng)建第一個過程需要兩個基本步驟。一、向工作簿中添加一個模塊。二、向模塊中添加不同的過程和函數(shù)。 6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA2創(chuàng)建過程和函數(shù)

20、【例6-3】 創(chuàng)建顯示消息框的過程。（1）打開Excel文件，在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【Visual Basic】命令按鈕，打開VBA的IDE環(huán)境，也可以通過快捷鍵“ALT+F11” 打開VBA的IDE環(huán)境，進入Visual Basic編輯器，如圖所示。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA（2）在VBA IDE左面的“工程資源管理器”窗口VBAProject上單擊鼠標右鍵，執(zhí)行【插入】|【模塊】菜單命令，添加模塊，如圖所示。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA（3）點擊代碼窗口的空白處，執(zhí)行【插入】|【過程】菜單命令，顯示“添加過程”對話

21、框，如圖。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA（4）在名稱處輸入“HelloMsg”作為過程名稱，在“類型”分組框中，選擇“子程序”，單擊“確定”按鈕。這樣就在模塊中添加一個新的過程，代碼如圖。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA（5）在過程中輸入以下語句：MsgBox “這是我的第一個過程”輸入后的過程如圖。6.3.2 編寫VBA程序項目6 靈活高效的宏與VBA（6）運行過程方法1：將光標放置在這段代碼之內(nèi)，執(zhí)行【運行】|【運行子過程/用戶窗體】菜單命令，則可運行。方法2：在工具欄單擊運行按鈕。運行效果如圖。6.3.3 在工作表中插入控件項目6 靈活高效的

22、宏與VBA一、控件的概述“控件”是“控件工具箱”提供的一系列對象，擁有自己的名稱，存儲于文檔中?！翱丶本哂小皩傩浴?、“方法”和“事件”。“屬性”是描述其所屬控件的某個可量化特征的變量，在 VBA 程序中，“屬性”是使用點標記引用的：如：TextBox1.Text。“方法”是控件“知道”如何執(zhí)行的某種操作，在 VBA 程序中，“方法”也是使用點標記引用的：如：TextBox1.Activate?！笆录笔且环N被對象“意識到”已經(jīng)發(fā)生的操作，用戶一般通過“事件”來完成一系列的程序運行。6.3.3 在工作表中插入控件項目6 靈活高效的宏與VBA二、認識不同的控件控件分為兩種類型：表單控件和Acti

23、veX控件。表單控件只能在工作表中添加和使用，并且只能通過設(shè)置控件格式或者指定宏來使用它；ActiveX控件不僅可以在工作表中使用，還可以在用戶窗體中使用，并且具備了眾多的屬性和事件，提供了更多的使用方式。6.3.3 在工作表中插入控件項目6 靈活高效的宏與VBA（1）標簽：用于顯示文本信息，本身不具有可輸入功能；默認屬性是Caption屬性，默認事件是Click事件?；緦傩园ǎ好Q、Caption、BackColor、ForColor、WordWrap、Width、Height、Font等。（2）文本框：用于交互輸入與顯示文本信息，本身具有交互性；默認屬性是Value屬性，默認事件是Ch

24、ange事件。 基本屬性：名稱、Text、Value、ScrollBars、BackColor、ForColor、WordWrap、MultiLine、MaxLength、Width、Height、Font等。6.3.3 在工作表中插入控件項目6 靈活高效的宏與VBA（3）分組框：它用于將其他控件進行組合；（4）按鈕：用于執(zhí)行宏命令；在命令按鈕上可以顯示文本或圖片，或者二者同時顯示；默認屬性是AutoSize屬性，默認事件是Click事件。基本屬性包括：名稱、Picture、Caption、BackColor、ForColor、Width、Height、Font等。6.3.3 在工作表中插入控

25、件項目6 靈活高效的宏與VBA（5）復(fù)選框：它是一個選擇控件，通過單擊可以選擇和取消選擇，可以多項選擇。默認屬性是 Value 屬性，默認事件是 Click 事件?；緦傩园ǎ好Q、Caption、Value、BackColor、ForColor、GroupName、Width、Height、Font等。（6）選項按鈕：通常幾個選項按鈕組合在一起使用，在一組中只能選擇一個選項按鈕。默認屬性是 Value 屬性，默認事件是 Click 事件。6.3.3 在工作表中插入控件項目6 靈活高效的宏與VBA（7）列表框：用于顯示若干個值的列表，用戶可以從中選擇一個或多個值；默認屬性是 Value 屬性

26、，默認事件是 Click 事件?；緦傩园ǎ好Q、Text、Value、TopIndex、BackColor、ForColor、MultiSelect、Width、Height、Font等。（8）組合框：主要用于列出多項供選擇（單項選擇）的文本信息；組合框?qū)⒘斜砜蚝臀谋究虻奶匦越Y(jié)合在一起，用戶可以像在文本框中那樣輸入新值；默認屬性是Value屬性，默認事件是 Change 事件。組合框的基本屬性包括：名稱、Text、Value、TopIndex、BackColor、ForColor、Width、Height、Font等。6.3.3 在工作表中插入控件項目6 靈活高效的宏與VBA（9）滾動條：

27、包括水平滾動條和垂直滾動條，是一種選擇機制，默認屬性是 Value 屬性，默認事件是 Change 事件?；緦傩园ǎ好Q、Max、Min、SmallChange、BackColor、ForColor、Value、Width、Height、Font等。（10）微調(diào)控件：是一種數(shù)值選擇機制，主要用于增加及減少數(shù)值，通過單擊控件的箭頭來選擇數(shù)值。默認屬性是 Value 屬性，默認事件是 Change 事件?；緦傩园ǎ好Q、Delay、Max、Min、SmallChange、BackColor、ForColor、Value、Width、Height、Font等。6.3.3 在工作表中插入控件項

28、目6 靈活高效的宏與VBA將控件添加到工作表上,具體步驟：1創(chuàng)建或打開一個Excel的文件，選中一個單元格，在【開發(fā)工具】選項卡的【控件】功能區(qū)中，單擊【插入】命令按鈕，如圖所示。6.3.3 在工作表中插入控件項目6 靈活高效的宏與VBA2選擇表單控件中的“按鈕”控件，將鼠標定位到B2單元格,此時鼠標變成小十字，按下左鍵, 在Excel表格中繪制出該控件，可拖動控件四周節(jié)點控制大小，也可移動位置，如圖所示。6.3.3 在工作表中插入控件項目6 靈活高效的宏與VBA三、在工作表中插入控件3在“按鈕1”上單擊右鍵，在彈出的快捷菜單里，選擇“編輯文字”，如圖所示，可以輸入文字，如輸入：計算提成，完成

29、后，單擊任何單元格退出文字編輯。如圖所示。6.3.4 設(shè)置控件格式項目6 靈活高效的宏與VBA 在工作表中插入控件后，控件上顯示的文字格式，控件的大小、顏色等格式可以通過設(shè)置控件格式來改變，如圖所示。 6.3.5 為控件指定宏項目6 靈活高效的宏與VBA在Excel工作表中創(chuàng)建宏后，啟動宏的方式很多。 使用命令按鈕是為工作表添加交互功能的一種非常好的方法。 把Excel中的宏指定給命令按鈕控件的操作步驟如下：右擊“計算提成”命令按鈕，在彈出的快捷菜單里，選擇“指定宏”命令，打開“指定宏”對話框；在該對話框里選擇“宏_計算提成”，然后，點擊“確定”按鈕。6.3.6 創(chuàng)建與編輯窗體項目6 靈活高效

30、的宏與VBA（1）創(chuàng)建或打開一個Excel文件。（2）在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【Visual Basic】命令按鈕，打開編輯器。（3）在Visual Basic編輯器里，右鍵“VBAProject”，在彈出的快捷菜單里，執(zhí)行【插入】|【用戶窗體】菜單命令，如圖所示：6.3.6 創(chuàng)建與編輯窗體項目6 靈活高效的宏與VBA（4）這樣就創(chuàng)建了一個用戶窗體。（5）在創(chuàng)建“用戶窗體”時，同時出現(xiàn)了“控件工具箱”，可以在“用戶窗體”上創(chuàng)建相應(yīng)的控件，如在窗體上繪制登陸界面，從“工具箱”對話框中分別選擇“文本框”控件、“標簽”控件和“命令按鈕”控件，在窗體中繪制這些控件，如圖所示。6.3

31、.6 創(chuàng)建與編輯窗體項目6 靈活高效的宏與VBA（6）在“屬性”對話框中將兩個“標簽”控件的Caption屬性分別設(shè)置為“用戶名”和“密碼”，將“命令按鈕”控件的Caption屬性分別設(shè)置為“確定”和“取消”，在窗體中選擇第二個“文本框”控件，在“屬性”對話框中將PasswordChar屬性設(shè)置為字符“*”，如圖所示。6.3.6 創(chuàng)建與編輯窗體項目6 靈活高效的宏與VBA（7）按F5鍵運行，“登陸界面”的運行效果如圖所示。實戰(zhàn)訓(xùn)練6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA 本例制作的Excel使用情況調(diào)查表工作簿，包括問卷調(diào)查表：用于錄入數(shù)據(jù)；數(shù)據(jù)記錄表：用于記錄、存

32、儲問卷調(diào)查表中錄入的數(shù)據(jù)；數(shù)據(jù)統(tǒng)計表：用于對數(shù)據(jù)記錄表中的數(shù)據(jù)進行統(tǒng)計。效果如圖所示：6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA任務(wù)一：建立“備選數(shù)據(jù)”工作表（1）新建工作簿，保存為：問卷調(diào)查，依次雙擊工作表標簽sheet1、sheet2，重命名為：問卷調(diào)查表、備選數(shù)據(jù)。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（2）在工作表“備選數(shù)據(jù)”中輸

33、入備選數(shù)據(jù)，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA任務(wù)二：制作數(shù)據(jù)統(tǒng)計表（1）創(chuàng)建“數(shù)據(jù)記錄表”工作表。在“問卷調(diào)查”工作簿中，創(chuàng)建工作表：數(shù)據(jù)記錄表。（2）編輯批注。在各個單選項的字段名所在單元格中插入批注，用于標明各個序號所對應(yīng)的選項，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA任務(wù)三：制作問卷調(diào)查表（1）設(shè)置標題和開頭語。在工作表“問卷調(diào)查表”中，在【插入】選項卡的【文本】功能區(qū)中，單擊【藝術(shù)字】命令按鈕，在彈出的“文字編輯框”中，輸入文字：“Excel使用情況調(diào)查表”，并調(diào)整大小和位置，效果如圖。6.4.1 制作

34、Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（2）在【插入】選項卡的【文本】功能區(qū)中，單擊【文本框】命令按鈕組中的【橫排文本框】按鈕，在彈出的“文字編輯框”中，輸入文字如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（3）插入“性別”分組框。在【開發(fā)工具】選項卡的【控件】功能區(qū)中，單擊【插入】命令按鈕組中的【分組框】按鈕，如圖所示。（4）在表格里繪制分組框；再右鍵單擊“分組框”控件，在彈出的快捷菜單里選擇“編輯文字”命令輸入文字：性別。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（5）插入“性別”單選按鈕。在【開發(fā)工具】選項卡的【控

35、件】功能區(qū)中，單擊【插入】命令按鈕中的【選項按鈕】按鈕，在“性別”分組框中繪制單選按鈕，右鍵單擊單選按鈕，在彈出的快捷菜單里選擇“編輯文字”命令并輸入文字：男，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（6）設(shè)置控件的單元格鏈接。右鍵單擊“男”單選按鈕，在彈出的“快捷菜單”里選擇“設(shè)置控件格式”命令，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（7）在彈出的“設(shè)置控件格式”對話框里，選擇“控制”選項，設(shè)置其值和單元格的鏈接，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（8）用同樣的方法插入和

36、設(shè)置單選按鈕“女”，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（9）插入“年齡”組合框。在【開發(fā)工具】選項卡的【控件】功能區(qū)中，單擊【插入】命令按鈕中的【組合框】按鈕，如圖所示；在表格里繪制“組合框”，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（10）在【插入】選項卡的【文本】功能區(qū)中，單擊【文本框】命令按鈕，在“年齡”組合框前繪制文本框并輸入文字：年齡，如圖所示。 6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（11）右鍵單擊“年齡”組合框控件，在快捷菜單中選擇“設(shè)置控件格式”命令，在彈出的“設(shè)置控

37、件格式”對話框中，選擇“控制”選項，其數(shù)據(jù)源區(qū)域和單元格鏈接的設(shè)置，如圖所示；“年齡”組合框控件數(shù)據(jù)源區(qū)域鏈接效果如圖所示。 6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（12）用同樣的方法插入：學(xué)歷、職業(yè)和收入組合框控件。其設(shè)置方法同“年齡”組合框控件，其單元格鏈接分別設(shè)置為： 數(shù)據(jù)統(tǒng)計表!$D$1、數(shù)據(jù)統(tǒng)計表!$E$1、數(shù)據(jù)統(tǒng)計表!$F$1。（13）插入其他單選按鈕分組框。用與插入“性別”分組框同樣的方法，插入“您目前使用的Excel是下列哪個版本？”、“您在工作中使用Excel的頻率？”和“您使用Excel的熟練程度？”分組框。6.4.1 制作Excel使用情況調(diào)

38、查表項目6 靈活高效的宏與VBA（14）分組框“您目前使用的Excel是下列哪個版本？”中單選按鈕的文本分別設(shè)置為：Excel2007、Excel2010、Excel2013、其他；單元格鏈接設(shè)置為： 數(shù)據(jù)統(tǒng)計表!$G$1。（15）分組框“您在工作中使用Excel的頻率？”中單選按鈕的文本分別設(shè)置為：基本不用、很少使用、經(jīng)常使用、頻繁使用；其單元格鏈接分別設(shè)置為：數(shù)據(jù)統(tǒng)計表!$H$1。（16）分組框“您使用Excel的熟練程度？”中單選按鈕的文本分別設(shè)置為：相當熟練、熟練、一般、較生；其單元格鏈接設(shè)置為：數(shù)據(jù)統(tǒng)計表!$I$1。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA

39、6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（17）插入“您經(jīng)常使用Excel的哪些功能？”分組框及復(fù)選框。插入“分組框”控件；在【開發(fā)工具】選項卡的【控件】功能區(qū)中，單擊【插入】命令按鈕中的【復(fù)選框】按鈕，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（18）插入“復(fù)選框”控件，其文本分別設(shè)置為：基本操作、數(shù)據(jù)的批量和規(guī)范錄入、公式和函數(shù)、圖表、分類匯總、數(shù)據(jù)透視圖/表、窗體控件、宏和VBA；如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（19）右鍵單擊“基本操作”復(fù)選框控件，在快捷菜單中選擇“設(shè)置控件格

40、式”命令，在彈出“設(shè)置控件格式”對話框中，選擇“控制”選項，其數(shù)據(jù)源區(qū)域和單元格鏈接的設(shè)置，如圖所示。（20）其他復(fù)選框的單元格鏈接依次設(shè)置為：數(shù)據(jù)統(tǒng)計表!$J$1數(shù)據(jù)統(tǒng)計表!$Q$1。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（21）分組框“您希望提高Excel的哪些方面？”中的文本分別設(shè)置為：基本操作、數(shù)據(jù)的批量和規(guī)范錄入、公式和函數(shù)、圖表、分類匯總、數(shù)據(jù)透視圖/表、窗體控件、宏和VBA，如圖所示。 （22）分組框“您希望提高Excel的哪些方面？”中復(fù)選框的單元格鏈接依次設(shè)置為：數(shù)據(jù)統(tǒng)計表!$R$1數(shù)據(jù)統(tǒng)計表!$Y$1。6.4.1 制作Excel使用情況調(diào)查表項

41、目6 靈活高效的宏與VBA（1）在【開發(fā)工具】選項卡的【代碼】功能區(qū)中，單擊【宏】命令按鈕，在彈出的“宏”對話框中，輸入宏名：提交，點擊“創(chuàng)建”按鈕，如圖所示。在代碼窗口輸入宏代碼。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（2）添加“提交”命令按鈕。在【開發(fā)工具】選項卡的【控件】功能區(qū)中，單擊【插入】命令按鈕中的【按鈕】按鈕，如圖所示。（3）繪制按鈕，并編輯文字為：提交，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（4）右鍵單擊“提交”按鈕，在彈出的快捷菜單里選擇“指定宏”，在彈出的指定宏對話框中，選擇“提交”宏，如圖所示。6.4.

42、1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（5）運行宏。在“調(diào)查表”中選擇各項數(shù)據(jù)后，點擊“提交”命令按鈕，其調(diào)查結(jié)果即可輸入到數(shù)據(jù)統(tǒng)計表中，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（1）創(chuàng)建“數(shù)據(jù)統(tǒng)計表”工作表。在“問卷調(diào)查”工作簿中，創(chuàng)建工作表：數(shù)據(jù)統(tǒng)計表，并編輯各項的批注，如圖所示。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（2）統(tǒng)計“性別“、”年齡“等各項數(shù)據(jù)。在單元格B4中輸入公式：=COUNTIF(數(shù)據(jù)記錄表!B$5:B$210,$A4)。（3）復(fù)制單元格B4的公式至單元格C4I4中；修改數(shù)據(jù)統(tǒng)計區(qū)域

43、：數(shù)據(jù)記錄表! B$5:B$210，分別將列標依次修改為CI即可。（4）向下自動填充B列I列的數(shù)據(jù)。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA（5）統(tǒng)計“使用的Excel功能”、“希望提高Excel的方面”等各項數(shù)據(jù)。在單元格J4中輸入公式：=COUNTIF(數(shù)據(jù)記錄表!J$5:J$210,TRUE)。（6）復(fù)制單元格J4的公式至單元格J5J11中；修改數(shù)據(jù)統(tǒng)計區(qū)域：數(shù)據(jù)記錄表! J$5:J$210，分別將列標依次修改為KQ即可。（7）分別復(fù)制單元格J4J11的公式至單元格K4K11中。6.4.1 制作Excel使用情況調(diào)查表項目6 靈活高效的宏與VBA任務(wù)五：創(chuàng)建數(shù)據(jù)統(tǒng)計表各項數(shù)據(jù)統(tǒng)計結(jié)果如圖所示。6.4.2 制作銷售管理卡項目6 靈活高效的宏與VBA 通過銷售管理卡，查詢銷售數(shù)據(jù)更方便、快捷、清晰。在“銷售管理卡”的設(shè)計中添加了“滾動條控件”和翻頁按鈕“首張”、“上一張”、“下一張”、“末張”，實現(xiàn)對銷售情況表中數(shù)據(jù)的動態(tài)查詢，效果如圖所示。6.4.2 制作銷售管理卡項目6 靈活高效的宏與VBA6.4.2 制作銷售管理卡項目6 靈活高效的宏與VBA6.4.2 制作銷售管理卡項目6