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

zpy2

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

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

Initiaux

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

好的，我试试，谢谢你

zpy2

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

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

Initiaux

Initiaux

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

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

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

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

Initiaux

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

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

zpy2

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

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

Initiaux

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

嗯，再查了，感谢感谢