[已解决]为什么运行出错？

心灵有约

为什么运行出错？.zip (17.44 KB, 下载次数: 10)

2014-6-25 09:29 上传

点击文件名下载附件 原因及办法

程序运行的目的是：当本工作表任一单元格内容（数据）有变化时，c16单元格自动计算出结果。

最佳答案

月排行榜 / 总排行榜

fffox

2014-6-25 10:05

单元格数值变化引起change事件重复执行。
需要增加一个语句：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     Range("C16").FormulaR1C1 = "=(R[-10]C-SUM(R[-9]C:R[-4]C)+sum(R[-2]C:R[-3]C))"
   
4.     Application.EnableEvents = True
   
5. End Sub

复制代码

跳转到最佳答案楼层

fffox

单元格数值变化引起change事件重复执行。
需要增加一个语句：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     Range("C16").FormulaR1C1 = "=(R[-10]C-SUM(R[-9]C:R[-4]C)+sum(R[-2]C:R[-3]C))"
   
4.     Application.EnableEvents = True
   
5. End Sub

复制代码

fffox

当C16单元格自身值发生变化时，不会执行change事件

zjdh

1. 向一个单元输入公式没有必要用事件触发吧？
2. 每次change都触发事件，形成了死循环！加一组限制吧。
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Range("C16").FormulaR1C1 = "=(R[-10]C-SUM(R[-9]C:R[-4]C)+sum(R[-2]C:R[-3]C))"
    Application.EnableEvents = True
End Sub

心灵有约

zjdh 发表于 2014-6-25 10:08
1. 向一个单元输入公式没有必要用事件触发吧？
2. 每次change都触发事件，形成了死循环！加一组限制吧。
...

也谢谢你啊。