VIP学员凭借着跟卢子学到的知识,做了一个很好用的凭证自动打印模板,手工要操作一个星期,而有了这个模板,一分钟就可以搞定。 模板的总体框架卢子没做改变,略微对里面的内容调整而已。 出库凭证-水稻 数据表 1.普通智能 通常遇到这种情况,都是手工输入编号,然后借助VLOOKUP函数依次查找内容。设置完公式,要打印内容,就只需修改编号即可,这样效率也很高。 2.高级智能 一次性打印,不用再手工修改编号。这个是借助VLOOKUP函数+VBA实现。 在右边空白的区域,写上匹配值、开始值、结束值。假如你现在要从1-10,开始值就写1,结束值就写10,匹配值等于开始值。这些数字,根据实际表格修改。 匹配值的作用,是借助这个数字,用VLOOKUP函数进行查找对应值。 =VLOOKUP(N3,数据表!$A$3:数据表!$AZ$9329,6,0) 其他内容,也是根据VLOOKUP函数查找,只是修改第3参数而已,比如农户就把第3参数改成4。这里就不逐一罗列。 =VLOOKUP(N3,数据表!$A$3:数据表!$AZ$9329,4,0) 公式设置完,再看VBA部分。 在模板这里输入代码,这个代码就是根据开始值和结束值自动打印,再设置一个按钮来执行代码。 Sub 打印() Dim i i = [P2] For i = [P2] To [P3] [N3] = i ActiveSheet.PrintOut Next End Sub 卢子电脑没有打印机,就简单的做一个打印测试动画,点按钮执行代码后,会自动打印每一条记录。 这是打印第1页的效果。 这是打印第2页的效果。 这个只有亲身体验,才能感受模板的好。 模板链接: https://pan.baidu.com/s/190aqGwxc6qAd591Vh_ozqQ 提取码:cdpi 。 作者:卢子,清华畅销书作者,《Excel效率手册 早做完,不加班》系列丛书创始人 |
|