在输入末行数据时余额公式自动复制上一行公式

feiaoli

通过mmwwdd老师、wowo000老师不厌其烦的大力的无私帮助，做了一个很好用的流水账，仅此分享表达对两位老师的感激之情！

同时也感谢其他老师的无私帮助
不敢独享，拿来供有需要的朋友使用。
很好用的流水账（录入数据或者通过系统自动筛选自动复制余额、合计相应数据列、添加合计）

整理后网址：很好用的流水账（录入数据或者通过系统自动筛选自动复制余额、合计相应数据列、添...-Excel VBA程序开发-ExcelHome技术论坛 -

wowo000

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim arr, r, ir, heji
   
3. If AutoFilterMode = True Then
   
4.   arr = Sheet1.UsedRange
   
5.   r = UBound(arr)
   
6.   If Cells(r, 5).HasFormula = False Then
   
7.      Me.Range("E" & r + 1 & ":G" & r + 1).FormulaR1C1 = "=subtotal(9,r2c:r[-1]c)"
   
8.      Me.Range("A" & r + 1) = "合计："
   
9.      Me.Range("A" & r + 1 & ":D" & r + 1).Merge
   
10.      For ir = 3 To UBound(arr)
    
11.          Me.Range("G" & 3 & ":G" & ir).FormulaR1C1 = "=SUBTOTAL(109,R2C7,R2C5:RC[-2])-SUBTOTAL(109,R2C6:RC[-1])"
    
12.      Next ir
    
13.   End If
    
14. End If
    
15. If AutoFilterMode = False Then
    
16. arr = Sheet1.UsedRange
    
17.   r = UBound(arr)
    
18.   If Me.Cells(r, 5).HasFormula = True Then
    
19.      Me.Cells(r, 1).EntireRow.Delete
    
20.      For ir = 3 To UBound(arr)
    
21.          Me.Range("G" & 3 & ":G" & ir).FormulaR1C1 = "=SUBTOTAL(109,R2C7,R2C5:RC[-2])-SUBTOTAL(109,R2C6:RC[-1])"
    
22.      Next ir
    
23.   End If
    
24. End If
    
25. End Sub

复制代码

zpy2

系统自带的筛选后余额自动计算
系统自带感觉没这功能。

只能平衡一下输出，做成输出 查询报表体现余额 比较现实。

wowo000

楼主：看你求助得这么辛苦，照你的意思，俺觉得用函数公式好些，给你弄了弄，看看咋样？

feiaoli

zpy2 发表于 2022-3-3 08:46
系统自带的筛选后余额自动计算
系统自带感觉没这功能。

老师您看一下这个：

1、余额公式放在代码中（或者在输入末行数据时余额公式自动复制上一行公式）
2、最后一行加上合计两个字（跨列剧中）

这样可以实现吗？

wowo000

楼主：试试下面的代码。Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr, r, ir, heji
If AutoFilterMode = True Then
  arr = Sheet1.UsedRange
  r = UBound(arr)
  If Cells(r, 5).HasFormula = False Then
     Me.Range("E" & r + 1 & ":G" & r + 1).FormulaR1C1 = "=subtotal(9,r2c:r[-1]c)"
     Me.Range("A" & r + 1) = "合计："
     Me.Range("A" & r + 1 & ":D" & r + 1).Merge
     For ir = 3 To UBound(arr)
         Me.Range("G" & 3 & ":G" & ir).FormulaR1C1 = "=SUBTOTAL(109,R2C7,R2C5:RC[-2])-SUBTOTAL(109,R2C6:RC[-1])"
     Next ir
  End If
End If
If AutoFilterMode = False Then
arr = Sheet1.UsedRange
  r = UBound(arr)
  If Me.Cells(r, 5).HasFormula = True Then
     Me.Cells(r, 1).EntireRow.Delete
     For ir = 3 To UBound(arr)
         Me.Range("G" & 3 & ":G" & ir).FormulaR1C1 = "=SUBTOTAL(109,R2C7,R2C5:RC[-2])-SUBTOTAL(109,R2C6:RC[-1])"
     Next ir
  End If
End If
End Sub

feiaoli

wowo000 发表于 2022-3-3 12:39

谢谢老师，麻烦您再给修改一下，就可以了。

合计行余额这里是上面的单元格公式应该既可以

zpy2

feiaoli 发表于 2022-3-3 11:42
老师您看一下这个：

1、余额公式放在代码中（或者在输入末行数据时余额公式自动复制上一行公式）

select 代码,名称,日期,摘要,收入,支出,sum(收入-支出) over ( order by rowid) 余额 from 筛选收入支出余额报表 where regexp('${0}',代码||名称||日期||摘要||收入||支出) union select '' 代码,' ' 名称,' ' 日期,'合计' 摘要,sum(收入) 收入,sum(支出)支出,sum(收入-支出) 余额 from 筛选收入支出余额报表 where regexp('${0}',代码||名称||日期||摘要||收入||支出)

zpy2

zpy2 发表于 2022-3-4 06:34
select 代码,名称,日期,摘要,收入,支出,sum(收入-支出) over ( order by rowid) 余额 from 筛选收入支出 ...

分享报表

feiaoli

zpy2 发表于 2022-3-4 06:34
select 代码,名称,日期,摘要,收入,支出,sum(收入-支出) over ( order by rowid) 余额 from 筛选收入支出 ...

您好老师，我不会VBA，但是在使用中体会到了VBA的强大，因此来这里拜托各位老师给帮忙编辑一个小程序。尽管我知道这是一个交流学习的平台，像我这样的VBA小白来求助VBA就是剽窃各位老师的成果，真的很无奈VBA给我工作带来便利和惊喜的诱惑还是多次来到excelhome厚颜求助，还请各位老师鼎力相助！