送货单数据汇总

每天学一点。

送货单数据汇总

wang-way

里面大把代码 你自己不研究一下 ？

每天学一点。

wang-way 发表于 2024-5-6 21:06
里面大把代码 你自己不研究一下 ？

报表管理里代码不会写,发货单代码已写好了.

ykcbf1100

汇总表数据从哪个表提取的？发货单表可是空的。

沈默00

沈默00

猜一个......
另外用365版写个自定义函数也可以的

每天学一点。

ykcbf1100 发表于 2024-5-7 07:18
汇总表数据从哪个表提取的？发货单表可是空的。

数据表格中提

ykcbf1100

每天学一点。 发表于 2024-5-7 09:51
数据表格中提

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.7
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("报表管理")
   
4.         nf = CLng(.OLEObjects("ComboBox1").Object.Value)
   
5.         yf = CLng(.OLEObjects("ComboBox2").Object.Value)
   
6.         .[b3].Value = "统计区间：" & nf & "年" & yf & "月"
   
7.     End With
   
8.     With Sheets("数据表")
   
9.         r = .Cells(Rows.Count, 1).End(3).Row
   
10.         arr = .[a1].Resize(r, 10)
    
11.     End With
    
12.     ReDim brr(1 To UBound(arr), 1 To 8)
    
13.     For i = 2 To UBound(arr)
    
14.         rq = CLng(arr(i, 2))
    
15.         If Year(rq) = nf And Month(rq) = yf Then
    
16.             m = m + 1
    
17.             brr(m, 1) = m
    
18.             For j = 4 To UBound(arr, 2)
    
19.                 brr(m, j - 2) = arr(i, j)
    
20.             Next
    
21.         End If
    
22.     Next
    
23.     With Sheets("报表管理")
    
24.         If m > 0 Then
    
25.             .UsedRange.Offset(4).ClearContents
    
26.             .UsedRange.Offset(4).UnMerge
    
27.             .[b5].Resize(m, 8) = brr
    
28.             r = m + 5
    
29.             .Cells(r, 2) = "合计"
    
30.             .Cells(r, 8).FormulaR1C1 = "=SUM(R5C:R" & "[-1]C)"
    
31.             .Cells(r, 2).Resize(1, 6).Merge
    
32.             .[b5].Resize(m + 1, 8).Borders.LineStyle = 1
    
33.         Else
    
34.             MsgBox "无相应记录！"
    
35.             Exit Sub
    
36.         End If
    
37.     End With
    
38.     Application.ScreenUpdating = True
    
39.     MsgBox "OK！"
    
40. End Sub
    
41. 
    

复制代码

每天学一点。

ykcbf1100 发表于 2024-5-7 12:53
参与一下。。。

非常感谢您的回复，但是答案是错的。我做了一部分可否帮我改一下