[已解决]再次求助差旅费计算

武林长风 · 发表于 2014-11-29 10:25

本帖最后由武林长风于 2014-11-29 17:10 编辑

用代码提取V列（出差人）不重复姓名到“合计”工作表的A列，再用函数公式把每个人的差旅费汇总在“合计”工作表里。当“个人支付”有金额时，要加给“出差人”单元格的第一个人，余下金额按出差人数平均分加给每个人。如第四行，只有2个人，个人支付45,45要加给郭三，合计57-45=12,12/2=6，第四行的郭三金额是45+6=51，李丽金额是6.合计工作表有模拟结果。

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

爱疯 · 发表于 2014-11-29 11:25

是不是郭三名字排在李丽前面，所以45就是郭三的？

dsmch · 发表于 2014-11-29 11:26

Sub Macro1()
Dim arr, brr(1 To 2000, 1 To 3), d, i&, j%
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.Range("a1").CurrentRegion
For i = 4 To UBound(arr) - 1
x = Split(arr(i, 22), "、")
s = UBound(x) + 1
s2 = (arr(i, 21) - arr(i, 7)) / s
s1 = arr(i, 7) + s2
For j = 0 To UBound(x)
If Not d.exists(x(j)) Then
n = n + 1
d(x(j)) = n
brr(n, 1) = x(j)
brr(n, 2) = IIf(j = 0, s1, s2)
Else
n2 = d(x(j))
brr(n2, 2) = brr(n2, 2) + IIf(j = 0, s1, s2)
End If
Next
Next
Sheet2.Range("a3").Resize(n, 3) = brr
End Sub

复制代码

dsmch · 发表于 2014-11-29 11:27

………………

武林长风 · 发表于 2014-11-29 12:21

dsmch 发表于 2014-11-29 11:27
………………

用代码提取不重复姓名，用函数公式计算金额。您的都用代码做了，若金额有变动，还得点按钮，会影响其它的数据录入。

武林长风 · 发表于 2014-11-29 12:22

爱疯发表于 2014-11-29 11:25
是不是郭三名字排在李丽前面，所以45就是郭三的？

个人支付只给第一个人的。

爱疯 · 发表于 2014-11-29 12:34

用代码求不重复姓名，从“合计”工作表A3开始填充，这样就行了。是吗？

武林长风 · 发表于 2014-11-29 13:06

爱疯发表于 2014-11-29 12:34
用代码求不重复姓名，从“合计”工作表A3开始填充，这样就行了。是吗？

用代码提取不重复姓名，用函数公式计算金额。

爱疯 · 发表于 2014-11-29 13:20

武林长风发表于 2014-11-29 12:21
用代码提取不重复姓名，用函数公式计算金额。您的都用代码做了，若金额有变动，还得点按钮，会影响其它的 ...

要不再传一个附件，好理解全用代码会有影响

武林长风 · 发表于 2014-11-29 13:30

爱疯发表于 2014-11-29 13:20
要不再传一个附件，好理解全用代码会有影响

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

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

[已解决]再次求助差旅费计算

相关帖子

评分