分享

凭证自动打印模板,能为你节省一周时间!

 cdzlh 2019-08-04

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效率手册 早做完,不加班》系列丛书创始人

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多