哪位大佬帮忙用VBA做一个进销存的汇总

忆往昔今

哪位大佬有时间帮忙看看，谢谢。

WANT-T

你这是手工帐的逻辑，电子帐没有这样设计的

micch

手工账和电子账是怎么区分的？

micch

1. Sub Main()
   
2.     Dim Qichu, Ruku, Chuku
   
3.     Dim d As New Dictionary
   
4.     Dim date1 As Date, date2 As Date
   
5.     Dim ar, Code, i, j, k
   
6.     Qichu = Sheet1.Range("a3:j" & 14)
   
7.     Ruku = Sheet2.Range("a2:m" & 14)
   
8.     Chuku = Sheet3.Range("a2:m" & 14)
   
9.     date1 = Sheet4.Range("c4").Value
   
10.     date2 = Sheet4.Range("d4").Value
    
11.     ReDim ar(1 To UBound(Qichu), 1 To 14)
    
12.    
    
13.     For i = 1 To UBound(Qichu)
    
14.         Code = Qichu(i, 1)
    
15.         d.Add Code, i
    
16.         ar(i, 1) = i
    
17.         ar(i, 2) = Code
    
18.         ar(i, 3) = Qichu(i, 2)
    
19.         ar(i, 4) = Qichu(i, 3)
    
20.         ar(i, 5) = Qichu(i, 4)
    
21.         ar(i, 6) = Qichu(i, 8)
    
22.         ar(i, 7) = Qichu(i, 9)
    
23.     Next
    
24.     For i = 2 To UBound(Ruku)
    
25.         If Ruku(i, 1) >= date1 And Ruku(i, 1) < date2 Then
    
26.         Code = Ruku(i, 5)
    
27.         If d.Exists(Code) Then
    
28.                 j = d(Code)
    
29.                 ar(j, 8) = ar(j, 8) + Ruku(i, 11)
    
30.                 ar(j, 9) = ar(j, 9) + Ruku(i, 12)
    
31.         End If
    
32.         End If
    
33.     Next
    
34.     For i = 2 To UBound(Chuku)
    
35.         If Chuku(i, 1) >= date1 And Chuku(i, 1) < date2 Then
    
36.         Code = Chuku(i, 5)
    
37.         If d.Exists(Code) Then
    
38.                 j = d(Code)
    
39.                 ar(j, 10) = ar(j, 10) + Chuku(i, 11)
    
40.                 ar(j, 11) = ar(j, 11) + Chuku(i, 12)
    
41.                 ar(j, 14) = ar(j, 14) + Chuku(i, 12) - Chuku(i, 11) * Qichu(j, 5)
    
42.         End If
    
43.         End If
    
44.     Next
    
45.     For i = 1 To d.Count
    
46.         ar(i, 12) = ar(i, 6) + ar(i, 8) - ar(i, 10)
    
47.         ar(i, 13) = ar(i, 7) + ar(i, 9) - ar(i, 11)
    
48.     Next
    
49.     With Sheet4.Range("a7")
    
50.         .Resize(999, 14).ClearContents
    
51.         .Resize(i - 1, 14).Value = ar
    
52.         .Activate
    
53.     End With
    
54. End Sub
    

复制代码

忆往昔今

WANT-T 发表于 2024-6-21 09:19
你这是手工帐的逻辑，电子帐没有这样设计的

要怎么设计呀

zpy2

忆往昔今 发表于 2024-6-21 10:30
要怎么设计呀

https://club.excelhome.net/forum.php?mod=viewthread&tid=1662985&pid=11255085&page=1&extra=&mobile#pid11255085

铁马1980

利润怎么计算啊

micch

铁马1980

参与一下

求助进销存汇总1.zip (19.79 KB, 下载次数: 18)

2024-6-21 12:46 上传

点击文件名下载附件

wang-way

不知道你这个最后的利润怎么算