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