有关VBA公式的问题

qhmpv · 发表于 2020-5-24 21:31

请教大神：
附件里，黄色格子里输入了一个公式，当黄色格子前插入新行的时候，该格子会随着插入一同往下，前面插入几行，就同时往下几行，这个用VBA如何实现，谢谢！！

microyip · 发表于 2020-5-24 22:17

你录制一下你说的步骤，就得到VBA代码了

taller · 发表于 2020-5-25 04:30

参考代码

Sub demo()
Range("A8").FormulaR1C1 = "=R[-7]C"
Rows("3:7").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

复制代码

qhmpv · 发表于 2020-5-26 09:29

microyip 发表于 2020-5-24 22:17
你录制一下你说的步骤，就得到VBA代码了

录制的好像没用，我试过了

qhmpv · 发表于 2020-5-26 10:09

taller 发表于 2020-5-25 04:30
参考代码

版主，你这个不是我要的结果，可能是我说的不够清楚吧我再描述一下试试。
比如单元格A11内输入公式 =sum(A1:A10),然后我在A1-A10之间插入3行，原本A11的单元格会随着插入行往下移动到A14，但是A14单元格里还是有公式的，还是可以计算A1-A10的数据。
但是VBA里，如果range("A11')里输入同样的公式，不管A1-A10插入多少，它不会跟着往下移动，还是在A11里计算，就有可能出错。
所以想问问大神，VBA里是不是也可以有这样的效果，怎么实现，插入行不是固定的。

sj15627581616 · 发表于 2020-5-26 10:21

难道不是插入新行就自动往下移吗？没看懂实际问题

qhmpv · 发表于 2020-5-26 15:10

sj15627581616 发表于 2020-5-26 10:21
难道不是插入新行就自动往下移吗？没看懂实际问题

你用VBA输入range，怎么会随着新行自动往下移？？

sj15627581616 · 发表于 2020-5-27 11:53

qhmpv 发表于 2020-5-26 15:10
你用VBA输入range，怎么会随着新行自动往下移？？

Sub Macro1()
Rows("8:8").Select
Selection.Insert Shift:=xlShiftDown
End Sub
录制宏代码，不清楚你为什么没用

taller · 发表于 2020-5-28 23:58

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

不可能，VBA插入的公式也会发生变化的，你可以上传示例文件

qhmpv · 发表于 2020-5-29 12:32

黄色格子里的是单元格直接输入的公式，当B1-B10里面随机插入N行，黄色格会随着插入的行下移，但是始终是在黄色格里显示，哪个大神，在红色格里，用VBA代码能做到黄色格里的功能，谢谢！！

		自动登录	找回密码
密码			免费注册

[求助] 有关VBA公式的问题

最新热点 /1