VBA信息归类汇总问题

龙送农

1、以选择C2单位名称，自动从《银行账》查找D列单位名称，归类F列“分账种类”G列“科目”并汇总H列J列借贷金额到到此表；
2、从《期初余额》查找相关数据填入期初余额，并计算出余额；
3、序号自动填写。
如附件内效果图

蓝桥玄霜

请见代码。

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address <> [c2].Address Then Exit Sub
   
3.     dw = Target      '单位
   
4.     With Sheets("银行账")
   
5.         arr = .Range("A6:K" & .Range("a65536").End(xlUp).Row)
   
6.     End With
   
7.     With Sheets("期初余额")
   
8.         Set Rng = .Range("A:A").Find(dw)
   
9.         If Not Rng Is Nothing Then qc = Rng.Offset(, 1)     '期初余额
   
10.     End With
    
11.     ReDim brr(1 To UBound(arr), 1 To 6)
    
12.     Set d = CreateObject("scripting.dictionary")
    
13.     For i = 1 To UBound(arr)
    
14.         If arr(i, 4) = dw Then
    
15.             x = arr(i, 6) & arr(i, 7)
    
16.             If Not d.exists(x) Then
    
17.                 n = n + 1
    
18.                 d(x) = n
    
19.                 brr(n, 1) = n
    
20.                 brr(n, 2) = arr(i, 6)
    
21.                 brr(n, 3) = arr(i, 7)
    
22.             End If
    
23.             p = d(x)
    
24.             brr(p, 5) = brr(p, 5) + arr(i, 8)
    
25.             brr(p, 6) = brr(p, 6) + arr(i, 10)
    
26.         End If
    
27.     Next
    
28.     Application.EnableEvents = False
    
29.     [a5:f1000].ClearContents
    
30.     If n > 0 Then
    
31.         If qc <> 0 Then brr(1, 4) = qc
    
32.         [a5].Resize(n, 6) = brr
    
33.     End If
    
34.     Application.EnableEvents = True
    
35. End Sub

复制代码

龙送农

蓝桥玄霜 发表于 2016-1-8 13:11
请见代码。

老师：麻烦你，将你的代码发来运行看，我就不重新录。

龙送农

grf1973 发表于 2016-1-8 16:38

老师：“序号、分账种类、科目、借方、贷方”都实现了。

我修改了“期初余额”表，再麻烦您帮我实现：

1、“银行账”归类汇总后，单元格C2查找“期初余额”表第2行单位，与C列科目查找“期初余额”表B列所对应的相关数据填写在D列；

2、“银行账”没有产生的科目，而“期初余额”表有余额数据的则自动体现在本表C列D列非空单元格后面。

3、G列的余额也用代码计算出来。