Excel數(shù)據(jù)表分頁(yè)匯總與批量打印

1、Excel數(shù)據(jù)表分頁(yè)匯總與批量打印文章信息作者：陳秀峰原創(chuàng)時(shí)間：2004-10-25岀處：天極網(wǎng)責(zé)任編輯：Shiny文章導(dǎo)讀Excel數(shù)據(jù)表格的分頁(yè)匯總與批量打印，如果采取手工復(fù)制、粘貼的做法，不僅操作麻煩，而 且容易出現(xiàn)錯(cuò)誤圖1是一份普通的Excel數(shù)據(jù)表，我們現(xiàn)在需要將其打印成如圖2所示的樣式，如果采取手工復(fù)制、粘貼的做法，不僅操作麻煩，而且容易出現(xiàn)錯(cuò)誤。為此，筆者在此給出一種較為簡(jiǎn)便的解決方法，供大家參 考。文章末尾提供.xls文件供大家下載參考。ABCBEF12003年竣工工程亠覽很Z工程名秫建設(shè)單位施工單住平米萬(wàn)兀備奈目潮備注31A&號(hào)住宅樓某市焜地產(chǎn)全司某市AA建筑公司36

2、1518Szcoj-i-r42遍洱注宅樓某幣煽地產(chǎn)公祠某帀艇筑公祠36151862004-1-753遍刁號(hào)性宅樓某市焜地產(chǎn)公司某市憑筑公司169013?20Q<l-l-7&4碣4號(hào)性宅樓某帀焜地產(chǎn)公司某帀朋逹頼公利320615120<id-l-12丫5適瀉哇宅樓”湍薩地產(chǎn)公司某市建就公司32901552M4-1F12;匸甘擊！sit首從m111（圖片較大，請(qǐng)拉動(dòng)滾動(dòng)條觀看）處理過(guò)程:1、啟動(dòng)Excel2003 （其他版本請(qǐng)大家仿照操作），打開(kāi)數(shù)據(jù)表。2、切換到Sheet2工作表中，仿照?qǐng)D 2所示的樣式，制作好需要打印的表格表頭的表尾。3、選中A4單元格，輸入公式：=A3+1

3、，并用“填充柄”將其公式復(fù)制到A5至A22單元格中（此處假定每頁(yè)打印20行數(shù)據(jù)）。4、分別選中 B3至H3單元格，依次輸入公式：=IF(ISERR0R(VL00KUP($A3,數(shù)據(jù)!A:H,2,FALSE),"",VLOOKUP($A3,數(shù)據(jù)!A:H,2,FALSE)、=IF(ISERROR(VLOOKUP($A3,數(shù) 據(jù)!A:H,3,FALSE),"",VLOOKUP($A3,數(shù)據(jù)!A:H,3,FALSE)=IF(ISERR0R(VL00KUP($A3,數(shù)據(jù)!A:H,8,FALSE),"",VLOOKUP($A3,數(shù)據(jù)!A:H,8,

4、FALSE)。5、 同時(shí)選中B3 H3單元格區(qū)域，用“填充柄”將上述公式復(fù)制到B4至H22單元格中。6、 分別選中E23和F23單元格，輸入公式：=SUM(E3:E22)和=SUM(F3:F22)，用于統(tǒng)計(jì)當(dāng)頁(yè)工程的“建 筑面積”和“造價(jià)”，達(dá)到分頁(yè)匯總的目的。7、 執(zhí)行“工具t宏t Visual Basic編輯器”命令，進(jìn)入 VBA編輯狀態(tài)(如圖 3)。注意：按下“ Alt+F11 ”組合鍵，也可以快速進(jìn)入 VBA 編輯狀態(tài)。8、選中“工程.xls”工作簿名稱(chēng)，執(zhí)行“插入t模塊”命令，插入一個(gè)新模塊(模塊1)，然后將下述代碼輸入到右側(cè)的空白區(qū)域中：Sub 分頁(yè)打印 ()x = InputBo

5、x(" 請(qǐng)輸入打印起始頁(yè)碼 ") '設(shè)置打印起始頁(yè)碼y = InputBox(" 請(qǐng)輸入打印結(jié)束頁(yè)碼 ") '設(shè)置打印結(jié)束頁(yè)碼For i = x To y ' 設(shè)置一個(gè)循環(huán)Cells(3, 1) = 20 * (i - 1) + 1 '在A3單元格中輸入一個(gè)序號(hào)ActiveWindow.SelectedSheets.PrintOut '執(zhí)行一次打印操作Next '進(jìn)入下一個(gè)循環(huán)End Sub注意：在上述代碼中，英文單引號(hào)“'”及后面的字符是對(duì)代碼的解釋?zhuān)趯?shí)際輸入的時(shí)候不需要輸入。9、輸入完成后，關(guān)

6、閉 VBA 編輯窗口，返回工作表中。10、執(zhí)行“視圖t工具欄T控件工具箱”命令，展開(kāi)“控件工具箱”工具條(如圖4)。11、單擊工具條上的“命令按鈕”按鈕，然后在工作表中拖拉一下，畫(huà)出一個(gè)命令按鈕。12、右擊命令按鈕，在隨后出現(xiàn)的快捷菜單中，選擇“屬性”選項(xiàng)，打開(kāi)“命令按鈕屬性”設(shè)置框(如 圖 5)。13、切換到“按分類(lèi)序”標(biāo)簽下，展開(kāi)“外觀”選項(xiàng)，將“Caption ”選項(xiàng)右側(cè)的字符修改為“分頁(yè)打印”，給按鈕命名；再展開(kāi)“雜項(xiàng)”選項(xiàng)，將“PrintObject”選項(xiàng)設(shè)置為“ False”。注意：將"Prin tObject "選項(xiàng)設(shè)置為“False',則后面打印時(shí)，

7、該按鈕不被打印出來(lái)。如果設(shè)置成了 “ True”，則按鈕會(huì)打印在紙張上，影響表格的打印效果。14、雙擊上述命令按鈕，再次進(jìn)入VBA編輯狀態(tài)，將“分頁(yè)打印”（上述代碼中的宏名稱(chēng)）字符輸入到已經(jīng)出現(xiàn)的兩行代碼之間，成如下?tīng)顩r：Private Sub Comma ndButto n1_Click（）分頁(yè)打印End Sub15、關(guān)閉VBA編輯狀態(tài)，返回工作表中。16、 象調(diào)整普通圖片大小一樣，調(diào)整好命令按鈕的大小，關(guān)將其定位在表格的合適位置上，單擊工具欄上的“退出設(shè)計(jì)模式”按鈕。17、 以后需要分頁(yè)打印時(shí)，單擊“分頁(yè)打印”命令按鈕，系統(tǒng)先后彈出類(lèi)似如圖6所示的兩個(gè)提示框，輸入需要打印的起、始頁(yè)號(hào)（參見(jiàn)圖6）。crnfittft iExcelif輸入打印趙始再碼確定取消按下“確定”按鈕，不一會(huì)兒，一份份分頁(yè)匯總打印的表格就呈現(xiàn)在我們的面前了（參見(jiàn)圖2）。 .xls文件下載2003年竣工工程一覽蔻序號(hào)工程名稱(chēng)1建設(shè)單位施工單位J面積 平米造價(jià)（萬(wàn)元）備案日期備注41常青路1標(biāo)段杲巾城建開(kāi)發(fā)處某市市政公司32231652004-1-1242常青路術(shù)段某市城建開(kāi)發(fā)處杲巾巾收公司1420?82004-1-12堂書(shū)贈(zèng)術(shù)田朗 CiCt 0> 3丄p 1工VI克木 I|JV> I 反K T木莊占IK H