触发事件删除单元格内容

zhangv712

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "D3" Then
        Target.Offset(0, 1).Resize(1, 1).ClearContents
    End If

    If Target.Address(0, 0) = "E3" Then
        Target.Offset(0, -1).Resize(1, 1).ClearContents
    End If
End Sub

两个单元格循环使用   用D3时清空E3  用E3时清空D3    ，现在哪个都不显示了  {:3_45:}

hfwufanhf2006

只需要在开始设置
Application.EnableEvents = False
并在结尾还原
Application.EnableEvents = True

楼上的设置多用了一次，没必要的。
之所以会出现这种情况，是因为在address=D3时修改了E3，此时Address=E3，又会再一次触发change。不仅如此，第二次触发E3时，代码会修改D3，又再次触发了D3的change，如此就是死循环了。可以用下面代码证明，在change的最前面写：
cells(1,1)=target.column '显示单元格的列
在不设置application.screenupdating=false的情况下，a1单元格的值会不断变化，此时代码会一直处于运行状态；
因此对于change，在默认设置下，不能用于循环修改单元格的场合，selectchange事件也是如此；利用参数Application.EnableEvents = False可以切断excel继续捕捉change事件，使得在代码执行期间不会重复引发change;

大灰狼1976

防止连锁反应。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address(0, 0) = "D3" Then
   
3.         Application.EnableEvents = False
   
4.             Target.Offset(0, 1).Resize(1, 1).ClearContents
   
5.         Application.EnableEvents = True
   
6.     End If
   
7. 
   
8.     If Target.Address(0, 0) = "E3" Then
   
9.         Application.EnableEvents = False
   
10.             Target.Offset(0, -1).Resize(1, 1).ClearContents
    
11.         Application.EnableEvents = True
    
12.     End If
    
13. End Sub

复制代码

zhangv712

hfwufanhf2006 发表于 2019-10-21 21:20
只需要在开始设置
Application.EnableEvents = False
并在结尾还原

感谢老师的讲解 ，受益匪浅{:9_305:}

zhangv712

大灰狼1976 发表于 2019-10-21 20:26
防止连锁反应。

感谢版主的关注并解惑

大灰狼1976

Application.EnableEvents设定只用在头尾是正确的，但是在尽量不改变楼主代码的情况下，如果只设头尾两次，则需要增加判断条件，因为这里是两个if语句，而不是if else语句。如果不增加判断条件，直接套在两个if语句外面的话，则不管变动的是E3、D3单元格还是其他单元格，每次change都会开关一次，虽然可能对效率影响不大，但作为强迫症的我来讲是不能容忍的。如果我写的话会是下面这样：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.CountLarge > 1 Or Intersect([d3:e3], Target) Is Nothing Then Exit Sub
   
3. Application.EnableEvents = False
   
4. Cells(3, 9 - Target.Column) = ""
   
5. Application.EnableEvents = True
   
6. End Sub

复制代码

zhangv712

大灰狼1976 发表于 2019-10-22 10:25
Application.EnableEvents设定只用在头尾是正确的，但是在尽量不改变楼主代码的情况下，如果只设头尾两次， ...

Cells(3, 9 - Target.Column) = ""     版主  这句话是什么意思

大灰狼1976

cells(r,c)里面的参数，先行后列。减法是为了根据目标单元格位置来判断清空哪一个。

zhangv712

大灰狼1976 发表于 2019-10-22 19:36
cells(r,c)里面的参数，先行后列。减法是为了根据目标单元格位置来判断清空哪一个。

多谢解惑 {:9_318:}