我有一个电子表格,其中单元格D4:D93
是数据验证下拉列表,只有Yes
和No
作为选项。
我试图弄清楚如何对VBA进行编码,以便在该范围内的单元格中选择Yes
时,范围I4:I93
中重合单元格中的值将更改为I4:I93
和V4:V93
中重合的单元格。
我一直在寻找好几天,尝试了很多我甚至不知道从哪里开始尝试过的东西。有些尝试没有发生任何事情。由于循环引用,其他导致Excel冻结或崩溃。不知道这是否相关,但D4:D93
和I4:I93
是表格的一部分,但V4:V93
不是。
答案 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
因为它是工作表代码,所以很容易安装和自动使用:
如果您有任何疑虑,请先在试用工作表上试用。
如果保存工作簿,宏将随之保存。 如果您在2003年之后使用的是Excel版本,则必须保存 该文件为.xlsm而不是.xlsx
删除宏:
要了解有关宏的更多信息,请参阅:
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
必须启用宏才能使其生效!