|
對(duì)于大型的數(shù)據(jù)表要進(jìn)行分類匯總，以前我采用“自動(dòng)篩選”的辦法來實(shí)現(xiàn)的，但這樣既麻煩，又容易出現(xiàn)錯(cuò)誤。經(jīng)過摸索，發(fā)現(xiàn)用“宏”可以實(shí)現(xiàn)批量篩選和打印，一鍵搞定了分類匯總和打??！ 一、數(shù)據(jù)匯總 選中F1002單元格（此處假定有1000條數(shù)據(jù)），輸入公式：=SUBTOTAL(9,F3:F1002)，確認(rèn)一下，統(tǒng)計(jì)出“面積”總和。然后再次選中F1002單元格，將鼠標(biāo)移至該單元格右下角，成細(xì)十字線狀時(shí)，按住左鍵向右拖拉至H1002單元格，將上述公式復(fù)制到H1002單元格中，統(tǒng)計(jì)出“造價(jià)”總和。 小提示：修改函數(shù)“SUBTOTAL”中的第一個(gè)參數(shù)（“9”），可以實(shí)現(xiàn)求平均（AVERAGE—1）、計(jì)數(shù)（COUNT—2）等統(tǒng)計(jì)目的（具體請(qǐng)看該函數(shù)的幫助）。 二、編輯宏 切換到Sheet2工作表中，在A1至A10單元格中輸入工程“類型”名稱（此處的“1”和“10”與下述代碼中的循環(huán)起、止數(shù)值相同，如圖1）。按下“Alt+F11”組合鍵，進(jìn)入“Visual Basic編輯”狀態(tài)，執(zhí)行“插入模塊”命令，插入一個(gè)新模塊（“模塊1”）。將下述代碼輸入到“模塊1”右側(cè)的編輯區(qū)域中： 小提示：在上述代碼中，每一行英文單引號(hào)“'”及其后面的字符，是對(duì)代碼的解釋，在實(shí)際輸入時(shí)可不輸入。 輸入完成后，關(guān)閉“Visual Basic編輯”窗口，返回工作表中。 三、制作按鈕 執(zhí)行“視圖工具欄控件工具箱”命令，展開“控件工具箱”（圖2），單擊“工具箱”中的“命令按鈕”按鈕，然后在表格中拖拉出一個(gè)按鈕來。右擊剛才添加的按鈕，在隨后彈出的快捷菜單中，選擇“屬性”選項(xiàng)，展開“屬性”對(duì)話框。切換到“按分類序”標(biāo)簽下，展開“外觀”選項(xiàng)，將“Caption”選項(xiàng)后面的字符修改為“分類打印”。再展開“雜項(xiàng)”選項(xiàng)，將“PrintObject”選項(xiàng)設(shè)置為“False”，設(shè)置完成后，關(guān)閉“屬性”對(duì)話框。
小提示：將“PrintObject”選項(xiàng)設(shè)置為“False”的目的是：在打印時(shí)，該按鈕不被打印出來；否則（設(shè)置成True）按鈕會(huì)打印到紙張上，影響表格效果。 雙擊剛才添加的命令按鈕，再次進(jìn)入“Visual Basic編輯”狀態(tài)，將下述代碼輸入右側(cè)的區(qū)域中： Private Sub CommandButton1_Click() 分類匯總打印 '此處字符必須與上述宏名稱一致 End Sub 輸入完成后，關(guān)閉“Visual Basic編輯”窗口，返回工作表中。像調(diào)整圖形大小一樣，調(diào)整好命令按鈕的大小，然后將其定位在表格的合適位置上，再按下“工具箱”上的“退出設(shè)計(jì)模式”按鈕。 當(dāng)需要分類打印時(shí)，只要單擊表格中的“分類打印”按鈕即可快速獲得。
|
|
|
