有个学员问了个问题
如何快速生成询证函
![](http://dingyue.ws.126.net/2021/0111/a6899472p00qmrdod005fd200u00097g00it005r.png)
表格被处理成这样
其实有不少辅助列是没有必要的
当然这里我不打算对这个明细表进行改造
直接按照作者的意思来设计
询证函的格式如下
![](http://dingyue.ws.126.net/2021/0111/be1c5e2dp00qmrdoe001yd200ha00mdg00ha00md.png)
需求是这样的:
在E4单元格里修改编号
B6\C14\D14自动更换数据
但是每次人工修改E4单元格的编号特别麻烦
想能不能自动修改编号,然后自动打印询证函
特别说明的是:
明细表里每行都是一个新编号,一个编号只有唯一的一行数据记录
这种问题,通常都是编程解决
Sub MyPrint()
nam = "明细单"
k = Worksheets(nam).[i1].End(xlDown).Row
Q = MsgBox("您一共有" & k - 1 & "份询证函要打印。是否已经检查好打印预览状况并确定要打印?", vbOKCancel)
If Q = vbOK Then
For w = 2 To k
Range("e4") = Worksheets(nam).Range("i" & w).Value
ActiveSheet.PrintOut
Next w
Else
Exit Sub
End If
MsgBox "恭喜您!打印完成,一共打印" & w - 1 & "份询证函。"
End Sub
![](http://dingyue.ws.126.net/2021/0111/4638da16p00qmrdof004md200u000h6g00it00ar.png)
上面代码是把每个询证函打印出来。
也可以把询证函打印出PDF文件
有200行数据就可以打印成200个PDF文件
代码稍微修改下
把上面的 ActiveSheet.PrintOut
改成 :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\" & ActiveSheet.Name & w - 1 & ".pdf"
最后执行代码就可以打印或存为PDF文件
在开发工具,宏,执行(快捷键是ALT+F8)
![](http://dingyue.ws.126.net/2021/0111/93acfce1p00qmrdof000kd200ay00cmg00ay00cm.png)
具体细节不展开说明。大家自行摸索研究。
另外,实际工作里询证函
会比上面说到的案例更为复杂
那么以上代码就必须进行大量的改造
否则是不可能直接套用的
VBA代码从来都是根据具体的例子而编写的
很难或者很少能用一套代码解决所有问题
没有背地里苦逼地死磕煎熬努力,
哪有什么人前显贵、毫不费力、轻松舒畅、精彩绽放!
点滴积累,都是为了某一天你的美好。
很多人跟说,李老师,我想变成excel高手,可是有没有速成的捷径啊
就是那种网络上微信里经常营销鼓吹的,什么21天速成啊
我想说,你想得太美
要学好excel,在大部分情况下游刃有余地解决工作上的问题
必须死磕自己,起码坚持熬学最少半年时间
21天速成都是自己骗自己,一知半解蜻蜓点水,那只是知道一点而已
让我成为你职场上office成长加速器
让我成为你职场上office软件技能的顾问
长期陪伴你一起成长一起进步一起转折
更多活灵活现淋漓尽致酣畅淋漓的解读,
更多Excle,PPT,Word 实战技能足以让你傲视群雄
请参考这套课程,520节大餐,饕餮之夜等您开启
《Excel+PPT+Word小白变大神[520节]》
不用太久,你一定也能成为职场办公软件高手大神!
就这一套课程,李则见老师能确保您达到这样的高手境界!
《Excel+PPT+Word小白华丽蜕变高手大神之超级修炼营[永久]》
我能确保!我能承诺!只要你认真持续学习!
火速购买如下课程,真的不是忽悠!!!品质担保!
全网络唯一一款货真价实,实至名归,表里如一的良心课程!!!
视频永久收看!
让我成为你职场上office成长加速器
让我成为你职场上office软件技能的顾问
长期陪伴你一起成长一起进步一起转折
请火速加入这套课程,520节大餐,饕餮之夜等您开启
你来或不来,课程就在这里 你学或不学,别人已经开始 你看或不看,他人早在千里之外
推荐这套好网课
品质之选,精品之作
《520节-Excel+PPT+Word小白变大神》
![](http://dingyue.ws.126.net/2021/0111/76b831f6j00qmrdof001id200u000c8g00i7007e.jpg)
本次大促力度很大,还没购买的学员朋友,
给您超值惊喜,只此一次,绝不再有
我们会给您很多超越期待的回报和福利,史无前例的!
送超值Excel网课,送211套精品PPT模板!
送优惠券抵扣!你还想怎样?火速来!
最重要的是,学完此课程,升职加薪,绝对可以到来!
完爆99%的Office网课的520节在线视频课程
福利惊喜,喜出望外
一次购买,永久有效
辅导答疑,长期陪伴
系统深入,深入浅出
高手大神,承诺必达
史无前例,鸿篇巨制
千山万水,独此一家
宣传营销,没有花招
网课无数,学我不悔
超值视频,一套封神
技能宝典,必入囊中
正本清源,登峰捷径
购买前可以咨询李则见老师,微信号在上面
已有近7700人加入学习
而你却一直犹豫要不要学习
高下立见
未来就在某个瞬间被决定了
你的思维限制了你的未来
李则见老师微信号是change12365
错过机会再等1年错过本次蹉跎365天
错过本课工作效能低下1年不学office纯粹浪费时间
网课无数到处挑选到处是坑坑坑与其找遍无数课程纠结彷徨后悔骂人
不如立即加入我的网课
工作常见问题知无不言言无不尽
长期答疑解惑全年无休答疑做您身后的office解答专家
基本上没有我们解决不了的问题 问题是您得给我一个想回答的理由
热门跟贴