|
VIP學(xué)員憑借著跟盧子學(xué)到的知識，做了一個很好用的憑證自動打印模板，手工要操作一個星期，而有了這個模板，一分鐘就可以搞定。 模板的總體框架盧子沒做改變，略微對里面的內(nèi)容調(diào)整而已。 出庫憑證-水稻 數(shù)據(jù)表 1.普通智能 通常遇到這種情況，都是手工輸入編號，然后借助VLOOKUP函數(shù)依次查找內(nèi)容。設(shè)置完公式，要打印內(nèi)容，就只需修改編號即可，這樣效率也很高。 2.高級智能 一次性打印，不用再手工修改編號。這個是借助VLOOKUP函數(shù)+VBA實(shí)現(xiàn)。 在右邊空白的區(qū)域，寫上匹配值、開始值、結(jié)束值。假如你現(xiàn)在要從1-10，開始值就寫1，結(jié)束值就寫10，匹配值等于開始值。這些數(shù)字，根據(jù)實(shí)際表格修改。 匹配值的作用，是借助這個數(shù)字，用VLOOKUP函數(shù)進(jìn)行查找對應(yīng)值。 =VLOOKUP(N3,數(shù)據(jù)表!$A$3:數(shù)據(jù)表!$AZ$9329,6,0) 其他內(nèi)容，也是根據(jù)VLOOKUP函數(shù)查找，只是修改第3參數(shù)而已，比如農(nóng)戶就把第3參數(shù)改成4。這里就不逐一羅列。 =VLOOKUP(N3,數(shù)據(jù)表!$A$3:數(shù)據(jù)表!$AZ$9329,4,0) 公式設(shè)置完，再看VBA部分。 在模板這里輸入代碼，這個代碼就是根據(jù)開始值和結(jié)束值自動打印，再設(shè)置一個按鈕來執(zhí)行代碼。 Sub 打印() Dim i i = [P2] For i = [P2] To [P3] [N3] = i ActiveSheet.PrintOut Next End Sub 盧子電腦沒有打印機(jī)，就簡單的做一個打印測試動畫，點(diǎn)按鈕執(zhí)行代碼后，會自動打印每一條記錄。 這是打印第1頁的效果。 這是打印第2頁的效果。 這個只有親身體驗(yàn)，才能感受模板的好。 模板鏈接： https://pan.baidu.com/s/190aqGwxc6qAd591Vh_ozqQ 提取碼：cdpi 。 作者：盧子，清華暢銷書作者，《Excel效率手冊 早做完，不加班》系列叢書創(chuàng)始人 |
|
|
