控制工具與窗體工具

正確學(xué)會(huì)ExcelVBA的16堂課控制工具與窗體工具♂對(duì)表格內(nèi)容進(jìn)行處理♂對(duì)產(chǎn)品進(jìn)行篩選與排序♂對(duì)產(chǎn)品信息進(jìn)行管理♂在用戶(hù)窗體中添加控件對(duì)表格內(nèi)容進(jìn)行處理實(shí)現(xiàn)英文名稱(chēng)標(biāo)準(zhǔn)化轉(zhuǎn)換貨幣數(shù)字為中文形式實(shí)現(xiàn)凍結(jié)窗格功能實(shí)現(xiàn)凍結(jié)窗格功能具體的操作步驟如下：步驟1：按鈕前面介紹的方法，在工作表中添加控件按鈕，并在其【屬性】對(duì)話(huà)框中的“名稱(chēng)”文本框中輸入“凍結(jié)窗格”，這樣便于當(dāng)工作表中VBA過(guò)程較多時(shí)，為了便于程序的查看，可將過(guò)程的名稱(chēng)設(shè)置為與添加按鈕的名稱(chēng)相同；在“Caption”文本框中也輸入“凍結(jié)窗格”，即可修改添加的命令按鈕的顯示文本，如圖6-9所示。步驟2：在設(shè)計(jì)模式下，雙擊添加的“凍結(jié)窗格”按鈕，進(jìn)入該按鈕的代碼編輯窗口，在代碼窗口中添加如下的程序代碼：PrivateSub凍結(jié)窗格_Click()WithSelectionActiveWindow.FreezePanes=TrueEndWithEndSub實(shí)現(xiàn)凍結(jié)窗格功能具體的操作步驟如下：步驟3：返回工作表，在【開(kāi)發(fā)工具】選項(xiàng)卡的“控件”選項(xiàng)區(qū)中單擊【設(shè)計(jì)模式】按鈕，即可退出設(shè)計(jì)模式。選擇D6單元格，單擊【冰結(jié)窗格】按鈕，即可看到凍結(jié)窗格的效果，此時(shí)當(dāng)向下移動(dòng)垂直滾動(dòng)條時(shí)會(huì)發(fā)現(xiàn)前5行是固定不動(dòng)的；當(dāng)向右拖動(dòng)水平滾動(dòng)條時(shí)，會(huì)發(fā)現(xiàn)A、B、C列是固定不動(dòng)的，如圖6-10所示。步驟4：如果想取消凍結(jié)窗格的效果，可在工作表中切換到【視圖】選項(xiàng)卡，在“窗口”選項(xiàng)區(qū)中選擇【凍結(jié)窗格】→【取消凍結(jié)窗格】菜單項(xiàng)。對(duì)產(chǎn)品進(jìn)行篩選與排序?qū)崿F(xiàn)產(chǎn)品自動(dòng)篩選實(shí)現(xiàn)產(chǎn)品自動(dòng)排序?qū)崿F(xiàn)產(chǎn)品自動(dòng)排序具體的操作步驟如下：步驟1：參照前面介紹的方法，在工作表中添加控件按鈕，并在其【屬性】對(duì)話(huà)框的【按字母序】選項(xiàng)卡中，修改“名稱(chēng)”和“Caption”的屬性值均為“排序”，如圖6-13所示。步驟2：在設(shè)計(jì)模式下雙擊添加的【排序】按鈕，即可進(jìn)入該按鈕的代碼編輯窗口，在代碼窗口中添加如下程序代碼：PrivateSub排序_Click()Range("A3:F21").SortKey1:=Range("E3"),Order1:=xlDescending,Header:=xlGuessEndSub實(shí)現(xiàn)產(chǎn)品自動(dòng)排序具體的操作步驟如下：步驟3：返回工作表，在【開(kāi)發(fā)工具】選項(xiàng)卡的“控件”選項(xiàng)區(qū)中單擊【設(shè)計(jì)模式】按鈕，即可退出設(shè)計(jì)模式。單擊【排序】按鈕，即可實(shí)現(xiàn)“實(shí)際到賬貨款”為依據(jù)的降序排列功能，如圖6-14所示。對(duì)產(chǎn)品信息進(jìn)行管理實(shí)現(xiàn)記錄單管理VBA程序代碼管理VBA控件查詢(xún)信息記錄不同地區(qū)業(yè)務(wù)比例實(shí)現(xiàn)記錄單管理具體的操作步驟如下：步驟1：在工作表中切換到【數(shù)據(jù)】選項(xiàng)卡，在“記錄單”選項(xiàng)組中單擊【記錄單】按鈕，即可打開(kāi)【Sheet1】記錄單，在其中可以看到記錄單中顯示了當(dāng)前的記錄位置、工作表中各字段名稱(chēng)以及各字段的對(duì)應(yīng)值等信息，如圖6-15所示。步驟2：?jiǎn)螕簟拘陆ā堪粹o，該記錄單處于“新建記錄”狀態(tài)。分別在與各字段名稱(chēng)對(duì)應(yīng)的文本框中輸入添加的信息，如圖6-16所示。在輸入完畢后按下Enter鍵，即可將新建的記錄信息添加到工作表中，如圖6-17所示。實(shí)現(xiàn)記錄單管理具體的操作步驟如下：步驟3：如果想要?jiǎng)h除某條記錄，則可以打開(kāi)的記錄單對(duì)話(huà)框中通過(guò)單擊【上一條】或【下一條】按鈕，找到需要?jiǎng)h除的記錄信息。單擊【刪除】按鈕，此時(shí)系統(tǒng)則彈出一個(gè)確認(rèn)刪除的提示信息，單擊【確定】按鈕，即可將所選記錄刪除，如圖6-18所示。步驟4：若要查看某條指定的記錄，可以單擊【條件】按鈕，在彈出的空白文本框中輸入查詢(xún)的條件，例如在“銷(xiāo)售地區(qū)”文本框中輸入“豐臺(tái)區(qū)”，如圖6-19所示。VBA控件查詢(xún)信息具體的操作步驟如下：步驟1：為了便于對(duì)單元格區(qū)域的引用，首先需要對(duì)“B3：C21”單元格區(qū)域進(jìn)行定義。選中“B3：C21”單元格區(qū)域后，切換到【插入】選項(xiàng)卡，在“名稱(chēng)”選項(xiàng)組中單擊【定義名稱(chēng)】→【定義名稱(chēng)】菜單項(xiàng)，即可打開(kāi)【新建名稱(chēng)】對(duì)話(huà)框，如圖6-28所示。步驟2：在“名稱(chēng)”文本框中輸入“查看聯(lián)系方式”，單擊【確定】按鈕，即可完成對(duì)選中單元格區(qū)域名稱(chēng)的定義。切換到【開(kāi)發(fā)工具】選項(xiàng)卡，在“控件”選項(xiàng)組中單擊【插入】按鈕，即可彈出其相應(yīng)的下拉列表，如圖6-29所示。VBA控件查詢(xún)信息具體的操作步驟如下：步驟3：?jiǎn)螕簟窘M合框（ActiveX控件）】按鈕

，在工作表中的合適位置處待鼠標(biāo)指針變?yōu)椤?”狀時(shí)拖動(dòng)鼠標(biāo)至適當(dāng)大小后釋放，即可添加一個(gè)組合框，如圖6-30所示。步驟4：右擊插入的組合框，在彈出菜單中選擇【屬性】菜單項(xiàng)，即可打開(kāi)其【屬性】對(duì)話(huà)框，在【按字母序】選項(xiàng)卡“Style”選項(xiàng)右側(cè)下拉列表中選擇“2-fmStyleDropDownList”選項(xiàng)，即可設(shè)置用戶(hù)必須從列表中選擇值，如圖6-31所示。VBA控件查詢(xún)信息具體的操作步驟如下：步驟5：選擇“LinkedCell”選項(xiàng)，在其右側(cè)文本框中輸入“G1”，即選擇一個(gè)空的單元格G1作為顯示查詢(xún)數(shù)據(jù)結(jié)果的地方；在“ListFillRange”選項(xiàng)的右側(cè)文本框中輸入剛剛定義的單元格區(qū)域名稱(chēng)“查看聯(lián)系方式”，如圖6-32所示。步驟6：在“ColumnCount”選項(xiàng)右側(cè)文本框中設(shè)置其值為2，表示當(dāng)前引用區(qū)域中共有2列數(shù)據(jù)；在“BoundColumn”選項(xiàng)右側(cè)的文本框中設(shè)置其值也為2，表示需要查找的是第2列單元格的內(nèi)容，如圖6-33所示。VBA控件查詢(xún)信息具體的操作步驟如下：步驟7：?jiǎn)螕簟癋ont”選項(xiàng)右側(cè)的【選擇】按鈕

，即可打開(kāi)【字體】對(duì)話(huà)框，在其中選擇字體為“TimesNewRoman”，字形為“常規(guī)”，大小為“四號(hào)”，如圖6-34所示。步驟8：?jiǎn)螕簟敬_定】按鈕返回工作表，選擇【開(kāi)發(fā)工具】選項(xiàng)卡，在“控件”選項(xiàng)組中單擊【設(shè)計(jì)模式】按鈕，即可退出設(shè)計(jì)模式。在組合框的下拉列表中可顯示出各地區(qū)的業(yè)務(wù)負(fù)責(zé)人，如圖6-35所示。VBA控件查詢(xún)信息具體的操作步驟如下：步驟9：此時(shí)若選中任意負(fù)責(zé)人名稱(chēng)，可在單元格G1中顯示其聯(lián)系方式，如選擇“Tina”，則單元格G1中顯示的就是該負(fù)責(zé)人聯(lián)系方式，如圖6-36所示。在用戶(hù)窗體中添加控件用戶(hù)窗體控件插入與使用控件的公用屬性控件的公用事件常用控件專(zhuān)家課堂（常見(jiàn)問(wèn)題與解答）點(diǎn)撥1：在添加窗體時(shí)，在窗體代碼窗口中輸入運(yùn)行窗體代碼后，當(dāng)運(yùn)行窗體時(shí)，為什么總彈出運(yùn)行“錯(cuò)誤424，要求對(duì)象”的錯(cuò)誤提示？解答：UserForm1.Show可添加到程序的任何位置，當(dāng)程序運(yùn)行到該句時(shí)，便會(huì)顯示窗體；如果出現(xiàn)錯(cuò)誤提示時(shí)，請(qǐng)檢查在程序中使用UserForm1.Show方法和名稱(chēng)的窗體是否存在，如果不存在，則會(huì)出現(xiàn)錯(cuò)誤提示信息。點(diǎn)撥2：使用Visible屬性隱藏顯示某控件時(shí)，在VBA