[已解决]如何编写求和公式的代码？

被禁锢的风 · 发表于 2010-1-26 19:56

请教下，如何用VBA生成黄色底纹行的代码？

原数据没有黄色底纹的这行的，这行是我手工添加的，要求做成这样。

注意：数据可能是一定是大于0行的数据，可能是7行也可能是70行。
要求合计部分的金额是一个求和公式，不是一个数值。

biZfTCKl.rar (2.13 KB, 下载次数: 32)

枯禅 · 发表于 2010-1-26 20:09

Sub test()
Dim i&
i = [a65536].End(3).Row
Range("g" & i + 1).Formula = "=sum(g2:g" & i & ")"
End Sub

yuang68 · 发表于 2010-1-26 20:11

Dim x
x = [b65536].End(xlUp).Row
Cells(x, "g") = WorksheetFunction.Sum(Range("g2:g" & x - 1))

yuang68 · 发表于 2010-1-26 20:29

2楼的是正确的，学学了

云在山腰 · 发表于 2010-1-26 21:11

Dim h As Long
h = Range("a65536").End(xlUp).Row + 1
Range(" g" & h).Select
Rows(h).Interior.ColorIndex = 6
ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)"

一剑惊心 · 发表于 2010-1-26 21:13

学习各大高手的

云在山腰 · 发表于 2010-1-26 21:14

还是2楼的好

xi8wrgxp · 发表于 2010-1-27 19:21

提示: 作者被禁止或删除内容自动屏蔽

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

xi8wrgxp xi8wrgxp 当前离线积分 7 IP卡狗仔卡	发表于 2010-1-27 19:21 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
xi8wrgxp xi8wrgxp 当前离线积分 7 IP卡狗仔卡
	回复使用道具举报显身卡