控制工具與窗體工具

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

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

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