[已解决]求助：代码计算不出"本月合计"和"本年累计"？

龙送农 · 发表于 2022-3-18 18:09

本帖最后由龙送农于 2022-3-18 18:09 编辑

Sub 余额计算()
arr = [A1].CurrentRegion
For x = 6 To UBound(arr)
      Select Case arr(x, 6)
      Case "本月合计"
         arr(x, 10) = x1
         arr(x, 12) = x2
         arr(x, 11) = x3
         arr(x, 13) = x4
         arr(x, 14) = x5
         arr(x, 16) = arr(x - 1, 16)
         x1 = 0: x2 = 0: x3 = 0: x4 = 0: x5 = 0
      Case "本年累计"
         arr(x, 10) = y1
         arr(x, 12) = y2
         arr(x, 11) = y3
         arr(x, 13) = y4
      arr(x, 14) = y5
         arr(x, 16) = arr(x - 1, 16)
      Case Else
         x1 = x1 + arr(x, 10)
         x2 = x2 + arr(x, 12)
         x3 = x3 + arr(x, 11)
         x4 = x4 + arr(x, 13)
      x5 = x5 + arr(x, 14)
         y1 = y1 + arr(x, 10)
         y2 = y2 + arr(x, 12)
         y3 = y3 + arr(x, 11)
         y4 = y4 + arr(x, 13)
      y5 = y5 + arr(x, 14)
         arr(x, 16) = arr(x - 1, 16) + arr(x, 10) - arr(x, 12)
      End Select
      If arr(x, 16) > 0 Then
         arr(x, 15) = "借"
      ElseIf arr(x, 16) = 0 Then
         arr(x, 15) = "平"
      ElseIf arr(x, 16) < 0 Then
         arr(x, 15) = "贷"
      End If
      arr(x, 16) = Round(arr(x, 16), 2)       '余额保留两位小数
Next x
[A1].CurrentRegion = arr
End Sub

最佳答案

月排行榜 / 总排行榜

金樽空对月

2022-3-18 22:34