[已解决]一个零钱计算器，不知道有没有办法实现

ww87398804

发工资的时候，经常发现零钱不好找，要不是员工没有零钱找，就是发的时候没有零钱付。

现在有一个表格，sheet2是员工姓名和应发工资金额，sheet1有一个多选择列表窗体，如何把员工姓名全部放到列表里面多选，然后点击开始计算，把选中的员工需要发的工资100元需要多少钱，50的需要多少钱，20、10、5、1元的需要多少钱填入sheet1的B15、B16、AB7、B18、B19里面。

这个不知道能不能实现，附件如下，谢谢各位大神了。

最佳答案

月排行榜 / 总排行榜

zjdh

2014-9-10 08:54

我来给个窗体的。（借用3楼思路）
零钱计算器2.rar (21.6 KB, 下载次数: 94)

2014-9-10 14:44 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

零钱计算器3.rar (21.29 KB, 下载次数: 24)

2014-9-10 15:03 上传

点击文件名下载附件

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. ReDim brr(1 To UBound(arr) - 1, 1 To 1)
   
6. crr = Range("e2").CurrentRegion
   
7. For i = 2 To UBound(arr)
   
8.     s100 = arr(i, 2) \ 100
   
9.     d(100) = d(100) + s100
   
10.     If s100 <> 0 Then brr(i - 1, 1) = s100 & "×100+"
    
11.     s50 = (arr(i, 2) - s100 * 100) \ 50
    
12.     d(50) = d(50) + s50
    
13.     If s50 <> 0 Then brr(i - 1, 1) = brr(i - 1, 1) & s50 & "×50+"
    
14.     s20 = (arr(i, 2) - s100 * 100 - s50 * 50) \ 20
    
15.     d(20) = d(20) + s20
    
16.     If s20 <> 0 Then brr(i - 1, 1) = brr(i - 1, 1) & s20 & "×20+"
    
17.     s10 = (arr(i, 2) - s100 * 100 - s50 * 50 - s20 * 20) \ 10
    
18.     d(10) = d(10) + s10
    
19.     If s10 <> 0 Then brr(i - 1, 1) = brr(i - 1, 1) & s10 & "×10+"
    
20.     s5 = (arr(i, 2) - s100 * 100 - s50 * 50 - s20 * 20 - s10 * 10) \ 5
    
21.     d(5) = d(5) + s5
    
22.     If s5 <> 0 Then brr(i - 1, 1) = brr(i - 1, 1) & s5 & "×5+"
    
23.     s1 = arr(i, 2) Mod 5
    
24.     d(1) = d(1) + s1
    
25.     If s1 <> 0 Then brr(i - 1, 1) = brr(i - 1, 1) & s1 & "×1"
    
26. Next
    
27. For i = 1 To UBound(crr)
    
28.     crr(i, 1) = d(crr(i, 1))
    
29. Next
    
30. Range("c2").Resize(UBound(brr)) = brr
    
31. Range("f2").Resize(UBound(crr)) = crr
    
32. End Sub

复制代码

dsmch

………………

zjdh

我来给个窗体的。（借用3楼思路）
零钱计算器2.rar (21.6 KB, 下载次数: 94)

2014-9-10 14:44 上传

点击文件名下载附件

zjdh

4楼附件又作了点修改。

ww87398804

zjdh 发表于 2014-9-10 08:54
我来给个窗体的。（借用3楼思路）

谢谢了，可以用的。

ww87398804

dsmch 发表于 2014-9-10 03:43
………………

谢谢你。

su45

算零钱是挺麻烦的

ww87398804

zjdh 发表于 2014-9-10 08:54
我来给个窗体的。（借用3楼思路）

可以再加一个合计的控件在窗体里面吗？这样才好合计合计本次这几个员工发了多少钱。谢谢了哦！