首页
学习
活动
专区
工具
TVP
发布

对账单、询证函等一键生成,这个模板太好用了!

客户对账清单,记录着几十个客户的各种数据。

希望将每个客户的数据引用到模板里面,每个客户生成一个表。

VIP会员的这个问题,用普通的复制粘贴也能实现,就是非常繁琐,需要复制粘贴无数次。

这种有两种比较常用的解决方案,一个是借助Word邮件合并,另一个是借助VBA,今天卢子就分享这个VBA代码。

VBA有一个好处,就是设置完模板,以后就能一键生成,一劳永逸。运行代码,短短几秒就全部生成对账单。

使用VBA的,都需要启用所有宏。

源代码:

Sub 对账单()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For X = Sheets.Count To 3 Step -1

Sheets(X).Delete

Next

With Sheets("客户对账清单")

For X = 2 To .Cells(Rows.Count, 3).End(3).Row

Sheets("模板").Copy After:=Sheets(Sheets.Count)

ActiveSheet.Name = .Cells(X, 4)

[B1] = .Cells(X, 3)

[B2] = .Cells(X, 4)

[E11] = .Cells(X, 5)

[E12] = .Cells(X, 6)

[E13] = .Cells(X, 7)

[E14] = .Cells(X, 16)

Next

.Select

End With

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

询证函也是这种格式,详见文章:不想加班,就来学一键生成往来款项询证函!

作者:卢子

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20200418A0OI3Y00?refer=cp_1026
  • 腾讯「腾讯云开发者社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 cloudcommunity@tencent.com 删除。

扫码

添加站长 进交流群

领取专属 10元无门槛券

私享最新 技术干货

扫码加入开发者社群
领券