批量改格式+运算，有难度有挑战，求大佬帮忙，拜谢！

dqcdw

lsdongjh 发表于 2019-6-12 09:37
个人觉得你的公式有问题，这些标黄的区域，等于 同行的 购入-出库，这样才能体现出本月与本年的区别。

不不，这里不是要体现本月或者本年的区别，而是上月结余数需要在【本月合计】及【本年累计】行下落显示，如果上月结余数为零，则零下落，有数则数下落，不知道我是否有说清楚，宝宝表达能力好弱弱，请见谅

lsdongjh

修改部分代码，注意标星号下方的三行代码：

1.     ReDim arrData(1 To 4, 1 To 2) As Double
   
2.     lngOffSet = lngOffSet + 2
   
3.     For lngRows = 1 To lngOffSet
   
4.         If arrResult(lngRows, 1) <> "" Then
   
5.             arrData(1, 1) = arrData(1, 1) + arrResult(lngRows, 4)
   
6.             arrData(2, 1) = arrData(2, 1) + arrResult(lngRows, 6)
   
7.             arrData(3, 1) = arrData(3, 1) + arrResult(lngRows, 7)
   
8.             arrData(4, 1) = arrData(4, 1) + arrResult(lngRows, 9)
   
9.         Else
   
10.             arrData(1, 2) = arrData(1, 2) + arrData(1, 1)
    
11.             arrData(2, 2) = arrData(2, 2) + arrData(2, 1)
    
12.             arrData(3, 2) = arrData(3, 2) + arrData(3, 1)
    
13.             arrData(4, 2) = arrData(4, 2) + arrData(4, 1)
    
14.             arrResult(lngRows, 3) = "本月合计"
    
15.             arrResult(lngRows, 4) = arrData(1, 1): arrData(1, 1) = 0
    
16.             arrResult(lngRows, 6) = arrData(2, 1): arrData(2, 1) = 0
    
17.             arrResult(lngRows, 7) = arrData(3, 1): arrData(3, 1) = 0
    
18.             arrResult(lngRows, 9) = arrData(4, 1): arrData(4, 1) = 0
    
19.            '****************************************************
    
20.             arrResult(lngRows, 10) = arrResult(lngRows, 4) - arrResult(lngRows, 7)
    
21.             arrResult(lngRows, 12) = arrResult(lngRows, 6) - arrResult(lngRows, 9)
    
22.             If Val(arrResult(lngRows, 10)) <> 0 Then arrResult(lngRows, 11) = Round(arrResult(lngRows, 12) / arrResult(lngRows, 10), 4)
    
23.             lngRows = lngRows + 1
    
24.             arrResult(lngRows, 3) = "本年累计"
    
25.             arrResult(lngRows, 4) = arrData(1, 2)
    
26.             arrResult(lngRows, 6) = arrData(2, 2)
    
27.             arrResult(lngRows, 7) = arrData(3, 2)
    
28.             arrResult(lngRows, 9) = arrData(4, 2)
    
29.            '****************************************************
    
30.             arrResult(lngRows, 10) = arrResult(lngRows, 4) - arrResult(lngRows, 7)
    
31.             arrResult(lngRows, 12) = arrResult(lngRows, 6) - arrResult(lngRows, 9)
    
32.             If Val(arrResult(lngRows, 10)) <> 0 Then arrResult(lngRows, 11) = Round(arrResult(lngRows, 12) / arrResult(lngRows, 10), 4)
    
33.         End If
    
34.     Next

复制代码

dqcdw

lsdongjh 发表于 2019-6-12 10:07
修改部分代码，注意标星号下方的三行代码：

还有个小问题存在，拜托

lsdongjh

那更简单了，增加以下几句：
            arrResult(lngRows, 3) = "本年累计"
            arrResult(lngRows, 4) = arrData(1, 2)
            arrResult(lngRows, 6) = arrData(2, 2)
            arrResult(lngRows, 7) = arrData(3, 2)
            arrResult(lngRows, 9) = arrData(4, 2)
            
            arrResult(lngRows, 10) = arrResult(lngRows, 4) - arrResult(lngRows, 7)
            arrResult(lngRows, 12) = arrResult(lngRows, 6) - arrResult(lngRows, 9)
            If arrResult(lngRows, 10) <> 0 Then arrResult(lngRows, 11) = Round(arrResult(lngRows, 12) / arrResult(lngRows, 10), 4)
            arrResult(lngRows - 1, 10) = arrResult(lngRows, 10)
            arrResult(lngRows - 1, 11) = arrResult(lngRows, 11)
            arrResult(lngRows - 1, 12) = arrResult(lngRows, 12)