【求助】用VBA根据指定行公式向下填充活动行的计算结果

xyjxd

用VBA根据指定行公式向下填充活动行的计算结果.rar (3.28 KB, 下载次数: 14)

2012-9-25 13:37 上传

点击文件名下载附件
1、手动在第3行单元格内输入函数计算公式(此行公式不固定，有时会我根据项目情况进行调整)
2、其它行(表中黄色区域)沿用3行的公式，当活动行的B列为“计算”时，通过VBA计算并填充计算结果。
3、黄色区域中各列的计算公式均与行3行的相应列一致。

4、向站内老师求助，希望能实现此功能，由于我的表格里面，内容特别多，公式也特别多，在实际使用中造成运行变慢，所以现在想减少表格内的公式，而是通过VBA来后台计算，并且只填入才计算结果，以减少程序运行压力。谢谢

xyjxd

自己顶一下，希望老师帮助。

爱疯

不必VBA再处理吧，因为公式已经处理了。

i3=IF(B3="计算",E3*F3*H3,"")
j3=IF(B3="计算",E3*F3*G3*H3,"")

用VBA根据指定行公式向下填充活动行的计算结果2.rar (10.12 KB, 下载次数: 35)

2012-9-25 19:28 上传

点击文件名下载附件

xyjxd

爱疯 发表于 2012-9-25 19:28
不必VBA再处理吧，因为公式已经处理了。

i3=IF(B3="计算",E3*F3*H3,"")

谢谢版主关注，我知道公式可以处理，但我已经说了，我实际的表格公式特别多，如果运用公式处理，会造成程序反应慢。所以我希望用VBA处理后把结果填入单元格内。

爱疯

3楼附件里有填充公式的代码，是那样的效果么？

xyjxd

爱疯 发表于 2012-9-25 20:33
3楼附件里有填充公式的代码，是那样的效果么？

我想要实现的效果就是，我附件里的黄色区域是我要的结果，但黄色区域的结果是沿用第3行的用公式，计算得出的结果，需要用VBA来后台处理。

xyjxd

爱疯 发表于 2012-9-25 20:33
3楼附件里有填充公式的代码，是那样的效果么？

第3行的公式由我手动输入，其它行，是沿用第3行的公式，来计算得出的结果

爱疯

用VBA根据指定行公式向下填充活动行的计算结果3.rar (10.15 KB, 下载次数: 49)

2012-9-25 21:08 上传

点击文件名下载附件 {:041:}

xyjxd

爱疯 发表于 2012-9-25 21:08

怎么我改了E列~H列的数据，后面黄色区域的结果都没有变化呢。

xyjxd

爱疯 发表于 2012-9-25 21:08

1. 
   
2. <P>Sub lqxs()
   
3. Dim Arr
   
4. Sheet1.Activate
   
5. Arr = [A1].CurrentRegion
   
6. If UBound(Arr) > 3 Then
   
7.     [I3:K3].AutoFill [I3].Resize(UBound(Arr) - 2, 3)
   
8. End If
   
9. End Sub</P>

复制代码

以上是蓝老师的一段代码，这个代码可以向下填充公式，但我需要的是计算结果，并且我想只操作活动行。请超版参照一下，谢谢了