VBA如何根据付款明细表中的付款状态实现付款信息的自动化生成？

zpy2 · 发表于 2021-10-17 15:10

Initiaux 发表于 2021-10-17 15:07
是的，截图是用上边大神提供的代码跑出来的结果，问题1没有被解决

这个跑出来有问题的图和你开贴的图2，一样的，哪里没解决？

Initiaux · 发表于 2021-10-17 15:12

zpy2 发表于 2021-10-17 15:09
Else
arr(t, 7) = "'" & arr(t, 7) & "/" & ar(i, 19)

好的，我试试，谢谢你

zpy2 · 发表于 2021-10-17 15:13

zpy2 发表于 2021-10-17 15:09
Else
arr(t, 7) = "'" & arr(t, 7) & "/" & ar(i, 19)

arr(k, 5) ="'" & ar(i, 17)

rem 看错列了，应该改第5列数字加逗号变文本

Initiaux · 发表于 2021-10-17 15:45

问题2弄明白了，是加单引号转换成文本格式，学习了；
问题1示例如图，生成的第4、5行结果最终实际是要转换成第6行标黄这行的样子，金额等于李春茹这个员工所有付款记录的行金额之和，凭证号是合并所有本次付款的凭证号即SX2021060116/SX2021060117这样，盼复，感谢

Initiaux · 发表于 2021-10-17 15:53

Initiaux · 发表于 2021-10-17 15:55

zpy2 发表于 2021-10-17 15:13
arr(k, 5) ="'" & ar(i, 17)

rem 看错列了，应该改第5列数字加逗号变文本

Else
arr(t, 7) = "'" & arr(t, 7) & "/" & ar(i, 19)

这个结果会显示成SX2021060116/SX2021060116/SX2021060116/SX2021060116这样，实际需求是显示成SX2021060116/SX2021060117，求解

zpy2 · 发表于 2021-10-17 17:15

本帖最后由 zpy2 于 2021-10-17 17:18 编辑

Initiaux 发表于 2021-10-17 15:55
Else
arr(t, 7) = "'" & arr(t, 7) & "/" & ar(i, 19)
、供应商类型为”员工“的，将同一供应商的不同单据编号合并在一个单元格内，

、供应商类型为”员工“的，将同一供应商的不同单据编号合并在一个单元格内，
这句话可能理解为不去重。。。

嗯，没去重。
要加个去重取唯一值。
为啥，要二种情况，一种去重，一种不去重。

Initiaux · 发表于 2021-10-17 17:24

zpy2 发表于 2021-10-17 17:15
、供应商类型为”员工“的，将同一供应商的不同单据编号合并在一个单元格内，
这句话可能理解为不去重。 ...

哦搜嘎，需要去重，因为系统批导会用到去重后的合并结果

zpy2 · 发表于 2021-10-17 17:31

Initiaux 发表于 2021-10-17 17:24
哦搜嘎，需要去重，因为系统批导会用到去重后的合并结果

https://club.excelhome.net/forum.php?mod=viewthread&tid=1602002&mobile=
我是用sql的，vba去重，应该用字典吧，具体你先搜索一下
这个代码有点长，我暂时还没法改动调试。

Initiaux · 发表于 2021-10-17 18:00

zpy2 发表于 2021-10-17 17:31
https://club.excelhome.net/forum.php?mod=viewthread&tid=1602002&mobile=
我是用sql的，vba去重，应 ...

嗯，再查了，感谢感谢

		自动登录	找回密码
密码			免费注册

[求助] VBA如何根据付款明细表中的付款状态实现付款信息的自动化生成？