[已解决]求VBA多条件筛选求和.感谢帮助

军3008 · 发表于 2021-12-11 12:33

想达到结果如左图
，并且可以根据源表（收支明细）里的数据变化而自动实时更新，
求VBA代码实现

右表为VBA显示区域(按条件只汇总签客户类型的单位,同单位重复相加)

感谢帮助！！

再问:是用事件更新好,还是用按钮好呢?数据大概会上万条以上

最佳答案

月排行榜 / 总排行榜

excel用户1116

2021-12-11 15:18

军3008 发表于 2021-12-11 15:09
完美！！！！我想在这里面加入框线等，以下代码怎么加进去： .Borders.LineStyle = xlContinu ...

(, 下载次数: 11)

excel用户1116 · 发表于 2021-12-11 14:49

本帖最后由 excel用户1116 于 2021-12-11 14:56 编辑

军3008 发表于 2021-12-11 14:43
感谢感谢！这个码可以用的，只是没有上面的汇总合计 ...

求助VBA多条件多列筛选求和.zip (29.57 KB, 下载次数: 34)

excel用户1116 · 发表于 2021-12-11 13:17

没整明白需要汇总哪些数据~~~~~~

军3008 · 发表于 2021-12-11 13:30

excel用户1116 发表于 2021-12-11 13:17
没整明白需要汇总哪些数据~~~~~~

汇总：源表（收支明细）的“签客户”类型下所有单位汇总，

冬天里的棉袄 · 发表于 2021-12-11 13:55

了解论坛

excel用户1116 · 发表于 2021-12-11 14:03

本帖最后由 excel用户1116 于 2021-12-11 14:14 编辑

求助VBA多条件多列筛选求和.zip (29.18 KB, 下载次数: 6)

sam-wang · 发表于 2021-12-11 14:05

如下請測試看看，謝謝
再问:是用事件更新好,还是用按钮好呢?数据大概会上万条以上
>> 資料多時要用按鈕，謝謝

Sub test()
Dim Arr, xD, T$, Crr(1 To 1, 1 To 3), Brr
Set xD = CreateObject("Scripting.Dictionary")
Arr = Sheets(2).[a1].CurrentRegion
ReDim Brr(1 To UBound(Arr), 1 To 4)
For i = 2 To UBound(Arr)
T = Arr(i, 3)
If Arr(i, 4) = "签客户" Then
      If xD.Exists(T) Then
         m = xD(T): Brr(m, 2) = Brr(m, 2) + Arr(i, 9)
         Brr(m, 3) = Brr(m, 3) + Arr(i, 10)
         Brr(m, 4) = Brr(m, 4) + Arr(i, 9) - Arr(i, 10)
         Crr(1, 1) = Crr(1, 1) + Arr(i, 9)
         Crr(1, 2) = Crr(1, 2) + Arr(i, 10)
         Crr(1, 3) = Crr(1, 3) + Arr(i, 10)
      Else
         n = n + 1: xD(T) = n
         Brr(n, 1) = Arr(i, 3): Brr(n, 2) = Arr(i, 9)
         Brr(n, 3) = Arr(i, 10): Brr(n, 4) = Arr(i, 9) - Arr(i, 10)
         For j = 1 To 3: Crr(1, j) = Crr(1, j) + Brr(n, j + 1): Next
      End If
End If
Next
Sheets(1).[h5].Resize(n, 4) = Brr
Sheets(1).[i3].Resize(1, 3) = Crr
End Sub

军3008 · 发表于 2021-12-11 14:18

sam-wang 发表于 2021-12-11 14:05
如下請測試看看，謝謝
再问:是用事件更新好,还是用按钮好呢?数据大概会上万条以上
>> 資料多時要用按鈕， ...

好的，我现在马上试下效果，感谢

军3008 · 发表于 2021-12-11 14:18

excel用户1116 发表于 2021-12-11 14:03

我现在马上下载下来试试，先感谢下

军3008 · 发表于 2021-12-11 14:43

excel用户1116 发表于 2021-12-11 14:03

感谢感谢！这个码可以用的，只是没有上面的汇总合计

军3008 · 发表于 2021-12-11 14:45

sam-wang 发表于 2021-12-11 14:05
如下請測試看看，謝謝
再问:是用事件更新好,还是用按钮好呢?数据大概会上万条以上
>> 資料多時要用按鈕， ...

试了下基本上正确，只是有点不明白，这个代码计算后，那个上面汇总合计中的余额上方那个数值怎么有点不正确

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

[已解决]求VBA多条件筛选求和.感谢帮助

评分