Excel vba增加单元格值而不创建循环引用

时间:2016-02-29 01:55:43

标签: excel vba

我有一个电子表格,其中单元格D4:D93数据验证下拉列表,只有YesNo作为选项。

我试图弄清楚如何对VBA进行编码,以便在该范围内的单元格中选择Yes时,范围I4:I93中重合单元格中的值将更改为I4:I93V4:V93中重合的单元格。

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

1 个答案:

答案 0 :(得分:4)

试试这个工作表事件宏:

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窗口
  4. 如果您有任何疑虑,请先在试用工作表上试用。

    如果保存工作簿,宏将随之保存。 如果您在2003年之后使用的是Excel版本,则必须保存 该文件为.xlsm而不是.xlsx

    删除宏:

    1. 按上述方式调出VBE窗口
    2. 清除代码
    3. 关闭VBE窗口
    4. 要了解有关宏的更多信息,请参阅:

      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

      必须启用宏才能使其生效!