而不产生循环引用

Question

Excel VBA中增加细胞值我有一个电子表格，其中细胞是D4:D93数据验证下拉列表仅Yes和No作为选项。

我试图找出使得当在一个单元被选择在该范围内Yes，然后在范围I4:I93变化在重合单元中的值是一致的单元格的总和在I4:I93和V4:V93如何编码VBA 。

我一直在寻找几天，并尝试了很多东西，我甚至不知道从哪里开始尝试。一些尝试导致没有发生。其他导致Excel由于循环引用而冻结或崩溃。不知道这是否相关，但D4:D93和I4:I93是表格的一部分，但V4:V93不是。

Answer 1

试试这个工作表事件宏：

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim D As Range, rw As Long 
    Set D = Range("D4:D93") 

    If Intersect(Target, D) Is Nothing Then Exit Sub 
    If LCase(Target.Value) <> "yes" Then Exit Sub 
    rw = Target.Row 
    Application.EnableEvents = False 
     Range("I" & rw).Value = Range("I" & rw).Value + Range("V" & rw).Value 
    Application.EnableEvents = True 
End Sub 

因为它是工作表的代码，它是非常容易安装和自动使用：

1. 右键单击靠近底部的标签名称Excel窗口
2. 选择查看代码 - 这带来了一个VBE窗口
3. 粘贴的东西并关闭VBE窗口

如果您有任何疑问，请先在试用工作表上尝试。

如果保存工作簿，宏将与其一起保存。 如果您正在使用一个版本的Excel更高然后2003，你必须保存 该文件作为.XLSM而非的.xlsx

要删除宏：

1. 弹出窗口VBE如上
2. 清晰的代码进行
3. 关闭VBE窗口

要了解更多关于一般的宏，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解更多有关事件宏（工作表的代码），请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

宏必须为此工作启用！