金额分配

fankairong

当发放现金工资时，需要提前准备各种面值的金额，而这个就是用来分配各需要准备多少的。
金额分配.rar (14.43 KB, 下载次数: 34)

2013-9-23 16:58 上传

点击文件名下载附件

1. 
   

复制代码

1. Sub dd()
   
2.     Application.ScreenUpdating = False
   
3.     Dim JS As Integer
   
4.     Dim r As Integer
   
5.     Dim c As Integer
   
6.     Dim er As Integer
   
7.     er = Cells(65536, 1).End(xlUp).Row
   
8.     For r = 2 To er
   
9.         For c = 2 To 7
   
10.             If c = 2 Then JS = Cells(r, 1)
    
11.             Cells(r, c).Value = Int(JS / (Cells(1, c)))
    
12.             JS = JS - Cells(r, c) * Cells(1, c)
    
13.         Next
    
14.     Next
    
15.     Application.ScreenUpdating = True
    
16. End Sub

复制代码

jsxjd

选中B2：G2输入区域数组公式，下拉：

1. =INT(MOD(MOD(A2,{10000000000,100,50,50,10,5}),{10000000000,100,50,20,20,5})/B$1:G$1)

复制代码

张雄友

很适合做会计的用，但是工作表事件代码可以去掉，更省时一些。

fankairong

jsxjd 发表于 2013-9-23 18:50
选中B2：G2输入区域数组公式，下拉：

学习了，非常感谢！

yaozong

楼主附件中似乎漏掉2元这一档
从通用角度考虑,应算到"角"(有角无角均适用/分位就不必要了)
最后宜加个合计
参考附件(在一楼程式基础上更改)
Sub bzs()
    Application.ScreenUpdating = False
    Dim x#, y#, r&, i&, j&
    r = [B1].End(4).Row
    For i = 2 To r
        x = Cells(i, 2).Value
        For j = 3 To 12
            If j < 10 Then y = Int(x) Else y = Application.Round(x - Int(x), 1)
            Cells(i, j).Value = Int(y / (Cells(1, j)))
            x = x - Cells(i, j) * Cells(1, j)
            Cells(r + 2, j) = Application.Sum(Range(Cells(2, j), Cells(r, j)))
        Next
    Next
    Cells(r + 2, 1) = "合计(张)": Cells(r + 2, 2) = Application.Sum(Range(Cells(2, 2), Cells(r, 2)))
    Application.ScreenUpdating = True
End Sub

fankairong

yaozong 发表于 2013-9-23 22:06
楼主附件中似乎漏掉2元这一档
从通用角度考虑,应算到"角"(有角无角均适用/分位就不必要了)
最后宜加个合计 ...

没想到我的一个小玩意能够得到Yaozong侠圣的关注，倍感荣幸，学习了！