亲爱的小伙伴们，还记得上次分享的《最牛动态对账单》吗？
有同学说，学会了它以后，接孩子放学从来没迟到过！
还有同学说，学会了它以后，和女朋友约会从来没有迟到过！
当然，最生气的自然是老板了，不想办法让员工加班的老板不是好老板（反正没有加班费，多帮我创造点收入多好！）
老板说了，现在呢要打印出来，方便给客户核对！
企鹅妹一听，乐了，因为她只有几个客户，所以鼠标点点点，就行了！
看这一波神操作，年轻就是好啊，这手速，，没话说！
这就苦了咱们雨夜妹纸了,她有100多个客户,这样点点点,手都会点软吧!!
那有没有什么高效的办法呢?当然有了,这种简单的重复工作,用VBA也是很简单的!!
先来看一下代码:
|
Sub 打印() Dim x For x = 1 To 7 Range(“X1”).Value = x ActiveSheet.PrintOut Next End Sub
|
一共7行代码,其中3行是核心,从上到下分别是
核心代码1：For x = 1 To 7
意思是从1循环到7，因为设计的模版文件中一共7条数据，其中x是变量（x的值一直在变化）
核心代码2：Range(“X1”).Value = x
意思是给x1单元格赋值X(有点巧，x1 , x别晕菜了)，这里的话x1单元格的值将会先赋值1，再改成2，然后再变成3，…最后变成7，来看一下测试动画！
测试的目的在于检查代码中各参数设置是否正确，如果你按F8没反应，请注意以下两点：
1、笔记本可能需要加按一个 Fn 键，即使用 FN + F8
2、可能是快捷键冲突了，请关闭Excel之外的软件，关一个试一下，以便找出是什么软件造成的。
核心代码3：ActiveSheet.PrintOut
意思是打印激活工作表（所以要先设置好打印区域哟，不然的话。。。），
好啦，程序解释知道了，调试也知道了，那这程序是怎么写进去的呢？
我们来看一下动画片吧！
在这里，可以和刚才调试一样，将光标放到过程中，然后按 F5（刚才是F8），它就开始工作啦！
为了方便以后操作，我们可以将这功能添加到按钮上！添加方法如下：
看到提示不要怕，解决方法就在提示中，照提示操作即可！！要想学好vba，这点能力是必须要练出来的！！这里就不再录制动画了。
另外用WPS的同学要注意了，WPS不带VBA功能，所以，，，（此处省略888字符）重点百度上有解决方案。
今天的分享就到这，如果教程对大家有用，希望大家多多分享点赞支持小编哦！你的每一次点赞和转发都是支持小编坚持原创的动力。
|
|
|
打开微信扫一扫，Office自学网
专注分享软件安装和视频教程，让你一号在手，办公无忧！
