求助大神根据流水账汇总出来某客户这个月的出货列表并自动计算出对账单金额

百读谷歌 · 发表于 2023-3-13 21:56

我想根据流水账，汇总出某个客户的出货列表，并且自动计算每单金额和欠款。以此生成对账单！

之前有大神批评表格混乱无章。我现在稍加改动了一下，尽量不要那么混乱。
我解释一下，我这个源表格是每天的流水账表格，客户每天的出货单已经另外打印存档的了，
现在这里是为了汇总客户的对账单为一个表格单独打印出来进行复核，
需要汇总的信息是每个出货单的金额，汇总整月的金额以及打款金额，
所以做了这样的表格，虽然是丑了点，但是方便勾账核对就足够了。

所以能不能麻烦大神帮帮忙看看，能不能用vba自动汇总出来所有所需的数据？

LIUZHU · 发表于 2023-3-13 22:27

这个对账单的格式很粗糙

LIUZHU · 发表于 2023-3-13 22:29

表里面很多地方可以用公式解决，偏要舍近求远用VBA？

LIUZHU · 发表于 2023-3-13 23:09

VBA过程本质上是做一些重复有规律的事情，建议把表格整得漂亮点、规则清晰点，让别人有解决问题的欲望，否则丑到让人味同嚼蜡，回复帖子的人不见一个，过客倒是一大堆。

Yalishanda30 · 发表于 2023-3-14 07:39

论数据规范的重要性

全党 · 发表于 2023-3-14 08:08

写了一个，看看是不是你要求的，插入空行也简单，判断日期列上下不同加入空行，懒得写了。有空帮你加上。

全党 · 发表于 2023-3-14 08:36

全党发表于 2023-3-14 08:08
写了一个，看看是不是你要求的，插入空行也简单，判断日期列上下不同加入空行，懒得写了。有空帮你加上。

把插入空行加上了，毕竟刚学，代码不是太好，凑合用吧

Sub shishi()
Dim crr(1 To 10000, 1 To 13)
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("客户月度出货列表")
R = .Cells(Rows.Count, "a").End(xlUp).Row
c = .Cells(1, Columns.Count).End(xlToLeft).Column
arr = .Range("a1").Resize(R, c)
End With
For i = 2 To UBound(arr)
If arr(i, 2) <> "" Then
If arr(i, 2) = [q1] Then
n = n + 1
For j = 1 To UBound(arr, 2)
crr(n, j) = arr(i, j)
crr(n, 10) = VBA.Round(arr(i, 9) + arr(i, 8), 0)
Next j
End If
End If
Next i
i = Cells(Rows.Count, "a").End(xlUp).Row
Range("a2:p10000").Clear
Range("a2").Resize(n, 13) = crr
Range("n2") = "=j2-l2+r1"
Range("n3") = "=j3-l3+n2"
Range("n3").AutoFill Range("n3:n" & i)
For j = i To 2 Step -1
If Cells(j, 13) <> Cells(j - 1, 13) Then
Rows(j).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub

复制代码

百读谷歌 · 发表于 2023-3-14 14:42

LIUZHU 发表于 2023-3-13 23:09
VBA过程本质上是做一些重复有规律的事情，建议把表格整得漂亮点、规则清晰点，让别人有解决问题的欲望，否 ...

关于这个，我解释一下吧。因为我的表格受众不是文职文员来对账，都是一些市场卖海鲜的大老粗。我尽可能的把所有信息全部写在每一行。因为这个表格我还要用于每天出货单的单独打印，所以这些信息是要加在数量后面的

LIUZHU · 发表于 2023-3-14 15:58

现在只用JS宏写

LIUZHU · 发表于 2023-3-14 15:59

用WPS打开测试，切换到JS宏运行，没有WPS就当路过吧

		自动登录	找回密码
密码			免费注册