根据excel中的明细表，生成出入库单

zpy2

http://club.excelhome.net/forum.php?mod=viewthread&tid=1479192&extra=&mobile
搞过一个类似的

160636

chxw68 发表于 2019-7-7 19:22
详见附件。

大神，用你的公式，出入库单的数据和明细表中的数据对不上的。应该是分类没设置好。会重复。

160636

一把小刀闯天下 发表于 2019-7-7 15:16
'数量、金额给你合计了一下。大小写这论坛找了一个函数给你套用了一下估计差不多

'行高以输出表格的1-16 ...

大神，大写金额不会显示呀。

chxw68

160636 发表于 2019-7-8 16:18
大神，用你的公式，出入库单的数据和明细表中的数据对不上的。应该是分类没设置好。会重复。

我是先按日期，后按客户分类的，你再仔细看看。

160636

chxw68 发表于 2019-7-8 18:07
我是先按日期，后按客户分类的，你再仔细看看。

大神，这样分类，只要在同一日期里有几个客户的，都会重复出现。应该是要日期和客户同时分类吧

160636

chxw68 发表于 2019-7-8 18:07
我是先按日期，后按客户分类的，你再仔细看看。

大神，您上传的附件里，就可以看的出来了。出入库单和明细表中的数量和金额数据是对不上的

chxw68

160636 发表于 2019-7-8 19:06
大神，您上传的附件里，就可以看的出来了。出入库单和明细表中的数量和金额数据是对不上的

知道了。那你就用其他老师的代码吧。

chxw68

修改好了。

micch

合计金额大写，没做，这个要不用公式，要不单独写一段代码

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet1.UsedRange
   
4.     For i& = 2 To UBound(arr)
   
5.         d(arr(i, 2) & " " & arr(i, 1)) = d(arr(i, 2) & " " & arr(i, 1)) & " " & i
   
6.     Next
   
7.     brr = d.items
   
8.     Sheet2.[a4:f13].ClearContents
   
9.     Set Rng = Sheet2.[a1:f17]
   
10.     Sheet2.[a18:f340].Clear
    
11.     Rng.Copy Sheet2.[a18:f340]
    
12.     brr = Sheet2.[a1:f340]
    
13.     For Each x In d.keys
    
14.         br = Split(d(x))
    
15.         For i = 1 To Int((UBound(br) - 1) / 10) + 1
    
16.             n = n + 1
    
17.             brr(n * 17 - 15, 2) = Split(x)(0)
    
18.             brr(n * 17 - 15, 5) = Split(x)(1)
    
19.             brr(n * 17 - 3, 3) = "=sum(indirect(""r[-1]c:r[-10]c"",))"
    
20.             brr(n * 17 - 3, 5) = "=sum(indirect(""r[-1]c:r[-10]c"",))"
    
21.             For k% = 0 To 9
    
22.                 If i + k <= UBound(br) Then
    
23.                     For j% = 3 To 8
    
24.                         brr(n * 17 + k - 13, j - 2) = arr(br(i + k), j)
    
25.                     Next j
    
26.                 End If
    
27.             Next k
    
28.         Next i
    
29.     Next
    
30.     Sheet2.[a1].Resize(n * 17, 6) = brr
    
31. End Sub
    

复制代码

绝世梦想

chxw68 发表于 2019-7-7 19:22
详见附件。

老师：假如产品不只一种，怎么分别显示每个客户各产品的汇总数成为一张出库单？代码怎么写
先按客户分类，再把客户下面的产品去重求和出来，如果有时间按时也分个类