[已解决]差旅费计算

武林长风 · 发表于 2014-11-20 18:22

本帖最后由武林长风于 2014-11-20 20:33 编辑

求代码：提取不重复姓名到“合计”工作表的A列，再把每个人的差旅费汇总在工作表“合计”里。当“个人支付”有金额时，要加给“出差人”单元格的第一个人，余下金额按出差人数平均分加给每个人。

差旅费计算.rar (15.49 KB, 下载次数: 15)

zjdh · 发表于 2014-11-20 18:57

当“个人支付”有金额时，要加给“出差人”单元格的第一个人，余下金额按出差人数平均分加给每个人。
这句无法理解！！

武林长风 · 发表于 2014-11-20 19:00

zjdh 发表于 2014-11-20 18:57
当“个人支付”有金额时，要加给“出差人”单元格的第一个人，余下金额按出差人数平均分加给每个人。
这句 ...

个人支付的金额加给出差人的第一个人。如第7行，个人支付90.00，这个90加给沈二，再用合计的金额减90，余下的除以4（沈二、郭三、张舞、才财），0/4=0，则沈二金额=90+0=90，其余的人就是0.

武林长风 · 发表于 2014-11-20 19:48

zjdh 发表于 2014-11-20 18:57
当“个人支付”有金额时，要加给“出差人”单元格的第一个人，余下金额按出差人数平均分加给每个人。
这句 ...

结果如图：

zjdh · 发表于 2014-11-20 19:54

差旅费计算.rar (23.57 KB, 下载次数: 15)

武林长风 · 发表于 2014-11-20 20:17

本帖最后由武林长风于 2014-11-20 20:18 编辑

zjdh 发表于 2014-11-20 19:54

当差旅费记录工作表没有数据时，点汇总按钮，在合计工作表出现

zjdh · 发表于 2014-11-20 20:40

添加一句
Sub test()
If Range("G4") = "" Then MsgBox "没有数据可以汇总！": Exit Sub
Set D = CreateObject("scripting.dictionary")
...........
End Sub

武林长风 · 发表于 2014-11-20 21:06

zjdh 发表于 2014-11-20 20:40
添加一句
Sub test()
If Range("G4") = "" Then MsgBox "没有数据可以汇总！": Exit Sub

加之后，只出现提示框就不计算了，还是不加了。谢谢！

kszcs · 发表于 2017-2-12 12:58

留下记号，实际中用

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