項(xiàng)目6-動(dòng)態(tài)高效的宏與VBA[125頁(yè)]課件

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

22、宏與VBA一、控件的概述“控件”是“控件工具箱”提供的一系列對(duì)象，擁有自己的名稱(chēng)，存儲(chǔ)于文檔中?！翱丶本哂小皩傩浴?、“方法”和“事件”?！皩傩浴笔敲枋銎渌鶎倏丶哪硞€(gè)可量化特征的變量，在 VBA 程序中，“屬性”是使用點(diǎn)標(biāo)記引用的：如：TextBox1.Text。“方法”是控件“知道”如何執(zhí)行的某種操作，在 VBA 程序中，“方法”也是使用點(diǎn)標(biāo)記引用的：如：TextBox1.Activate。“事件”是一種被對(duì)象“意識(shí)到”已經(jīng)發(fā)生的操作，用戶(hù)一般通過(guò)“事件”來(lái)完成一系列的程序運(yùn)行。6.3.3 在工作表中插入控件項(xiàng)目6 靈活高效的宏與VBA二、認(rèn)識(shí)不同的控件控件分為兩種類(lèi)型：表單控件和Acti

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

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

25、件項(xiàng)目6 靈活高效的宏與VBA（5）復(fù)選框：它是一個(gè)選擇控件，通過(guò)單擊可以選擇和取消選擇，可以多項(xiàng)選擇。默認(rèn)屬性是 Value 屬性，默認(rèn)事件是 Click 事件。基本屬性包括：名稱(chēng)、Caption、Value、BackColor、ForColor、GroupName、Width、Height、Font等。（6）選項(xiàng)按鈕：通常幾個(gè)選項(xiàng)按鈕組合在一起使用，在一組中只能選擇一個(gè)選項(xiàng)按鈕。默認(rèn)屬性是 Value 屬性，默認(rèn)事件是 Click 事件。6.3.3 在工作表中插入控件項(xiàng)目6 靈活高效的宏與VBA（7）列表框：用于顯示若干個(gè)值的列表，用戶(hù)可以從中選擇一個(gè)或多個(gè)值；默認(rèn)屬性是 Value 屬性

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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