有关VBA公式的问题

语虚何以言知

qhmpv 发表于 2020-5-26 10:09
版主，你这个不是我要的结果，可能是我说的不够清楚吧我再描述一下试试。
   比如单元格A11内输入公式 = ...

我明白你的意思，你的需求是基于公式思维来设计的，如果用编程思维就有问题
a1：a10  有数字

公式思维：
1、a11求和
2、a11前面插入3行
3、原a11变为a14，还是求a1：a10

编程思维：
1、a11赋值="sum(xxx:xxx)"  实现求和
2、代码插入3行
3、原a11变为a14，还是求a1：a10

编程思维是用代码插入3行，实现你要的结果，但是题主你的要求的是手工插入3行，然后让之前第一步录入的代码自动变化？

taller

qhmpv 发表于 2020-6-3 07:45
那个绝对引用不是我写的啊，我的意思不知道你明白了没有。

完全不明白

qhmpv

语虚何以言知 发表于 2020-6-3 10:31
我明白你的意思，你的需求是基于公式思维来设计的，如果用编程思维就有问题
a1：a10  有数字

你还是没明白，lwwy1981这位兄弟明白了。为什么说你没明白
是的，公式： a11求和，求和区域不是问题，问题在于当你前面插入行后，公式会随着行的插入往下。
          而VBA要解决的是编程输入的是某个单元格，当前面插入N行时，这个单元格位置其实是没有变化的，D10还是D10，怎么让你要统计的这个单元格随着行的插入而变化才是我要实现的。

qhmpv

语虚何以言知 发表于 2020-6-3 10:31
我明白你的意思，你的需求是基于公式思维来设计的，如果用编程思维就有问题
a1：a10  有数字

你还是没明白，编程a11赋值，前面插入N行，a11还是a11，怎么让它随着插入行，删除行而上下变化才是我想实现的。

qhmpv

taller 发表于 2020-6-3 10:48
完全不明白

大神啊，这个真的有点难解释，

bobfifth

qhmpv 发表于 2020-5-29 12:32
黄色格子里的是单元格直接输入的公式，当B1-B10里面随机插入N行，黄色格会随着插入的行下移，但是始终是在 ...

你的问题描述太细节了。你应该把整体方案搞出来。
例如：如果你要算B列从B1到B列最下单元格之间的求和，那就简单：
Function sumB()
Dim rngB As Range
Set rngB = Range("B1040000").End(xlUp)
sumB = Application.Sum(Range("B1:B" & rngB.Row))
End Function
这样，你在VBA其他模块调用sumB函数时，得到的就是动态的黄色单元格求和结果。

lwwy1981

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  '当表格发生变动时触发以下内容
   
2. r = WorksheetFunction.Match("合计", Range("A:A"), 0)  '查找变化以后"合计"所在的行
   
3. If Target.Row >= r Then Exit Sub   '判断变化的行,如果在合计行之后,就停止执行,如果在合计行之前则执行下面
   
4. Cells(r, 3) = WorksheetFunction.Sum(Range("c2:c" & r - 1))  '合计行所在的第三列计算从C2到合计所在行的上一行的合计数
   
5. End Sub

复制代码

qhmpv 发表于 2020-6-3 09:58
你这个好像可以哎，这个也是实在太难表述了，我好好看看你这个程序，万分感谢！！

只有我懂你,你还不给我送花花

bobfifth

bobfifth 发表于 2020-6-4 20:46
你的问题描述太细节了。你应该把整体方案搞出来。
例如：如果你要算B列从B1到B列最下单元格之间的求和， ...

做好的xlsm

语虚何以言知

qhmpv 发表于 2020-6-4 20:18
你还是没明白，编程a11赋值，前面插入N行，a11还是a11，怎么让它随着插入行，删除行而上下变化才是我想实 ...

编程a11赋值，：vba单元格赋值，实现方法：工作表实践触发？单独运行过程？前面插入N行，：怎么插？手动插入？代码插入？
a11还是a11，：？？？？
怎么让它随着插入行，删除行而上下变化才是我想实现的。：联系上文，估计吧，是要在工作表界面手动插行？






这就存在一个问题，你的需求整个过程是怎样的：

打开工作簿后用什么方式代码给a11赋值，怎么插入行，a11的公式要随之变化？

还是提示你的解决问题的思路是编程思维，不要停留在公式时代

qhmpv

bobfifth 发表于 2020-6-4 21:10
做好的xlsm

你这个其实也是公式，那我就直接公式就行，而且你这个插入一个数字还不会自动加。