本期合计和本年累计问题

lianganren

改了下，有问题，求完善。

笑着...两年过去

1. Private Sub CommandButton2_Click()
   
2.         j = Sheet1.[a65536].End(3).Row
   
3.         ReDim ar(1 To j, 1 To 6)
   
4.         For i = 2 To j
   
5.             If Sheet1.Cells(i, 1) & "" = ComboBox2 And Sheet1.Cells(i, 3) & "" = ComboBox1 Then
   
6.                l = l + 1
   
7.                ar(l, 1) = ComboBox2
   
8.                ar(l, 3) = Sheet1.Cells(i, 2)
   
9.                ar(l, 4) = Sheet1.Cells(i, 5)
   
10.                ar(l, 5) = Sheet1.Cells(i, 6)
    
11.                ar(l, 6) = Sheet1.Cells(i, 7)
    
12.             End If
    
13.         Next
    
14.         ar(l + 1, 4) = "本期合计"
    
15.         ar(l + 2, 4) = "本年合计"
    
16.         ar(l + 1, 5) = Application.SumIfs(Sheet1.[f:f], Sheet1.[a:a], ComboBox2 & "", Sheet1.[c:c], ComboBox1 & "")
    
17.         ar(l + 2, 5) = Application.SumIf(Sheet1.[c:c], ComboBox1 & "", Sheet1.[f:f])
    
18.         ar(l + 1, 6) = Application.SumIfs(Sheet1.[g:g], Sheet1.[a:a], ComboBox2 & "", Sheet1.[c:c], ComboBox1 & "")
    
19.         ar(l + 2, 6) = Application.SumIf(Sheet1.[c:c], ComboBox1 & "", Sheet1.[g:g])
    
20.         [a6].Resize(l + 2, 6) = ar
    
21. End Sub

复制代码

lianganren

谢谢大侠！