如何解决循环引用，实现自动计算？

gjk0532@163.com · 发表于 2011-7-6 15:09

参见附件。

wfm1713 · 发表于 2011-7-6 15:41

这样就可以了吧

gjk0532@163.com · 发表于 2011-7-6 16:13

有没有哪位可以帮解决一下，即给我鱼又给我渔？

gjk0532@163.com · 发表于 2011-7-6 16:05

没看明白，好像不可以呀

wfm1713 · 发表于 2011-7-6 16:20

Sub g()
Dim i%, a%, b%, d%
For i = 2 To 11
Cells(2, i) = Cells(3, i) + Cells(4, i) + Cells(5, i) + Cells(6, i)
Next

For a = 2 To 11
Cells(7, a) = Cells(8, a) + Cells(9, a) + Cells(10, a) + Cells(11, a) + Cells(12, a)
Next

For b = 2 To 11
Cells(13, b) = Cells(2, b) - Cells(7, b)
Next

[b14] = [b13]
For d = 3 To 11
Cells(14, d) = Cells(14, d - 1) + Cells(13, d)
Next
End Sub

这样为什么不可以？只是方法不妥善，比较长
放了按钮给你，你可以去填数据验算一遍

gjk0532@163.com · 发表于 2011-7-6 16:39

我验算了，好像不对啊。而且怎么看不到原来的公式了，我比较菜，请谅解。

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

[求助] 如何解决循环引用，实现自动计算？