单元格使用了数据有效性，Change事件不运行，看看问题在哪里？

liwenhong

单元格使用了数据有效性，Change事件不运行，看看问题在哪里？
当F1或者C2数据只要有一个变化时，就清空D5:I200


Private Sub Worksheet_Change(ByVal Target As Range) '
    If Target.Column = 6 And Target.Row = 1 Or Target.Column = 3 And Target.Row = 2 Then
        With Sheet9
            .Range("D5:I200") = ""
        End With
    End If
End Sub

爱疯

1）运行1次test，只为检查事件是否禁用。以后可不用。

Sub test()
Application.EnableEvents = True
End Sub



2）
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$1" Or Target.Address = "$C$2" Then
        Application.EnableEvents = False
        Sheet9.Range("D5:I200").ClearContents
        Application.EnableEvents = True
    End If
End Sub

liwenhong

爱疯 发表于 2013-4-14 00:12
1）运行1次test，只为检查事件是否禁用。以后可不用。

Sub test()

您的办法果然有效，不过我没有理解，我的程序之前还会运行，到晚上就不会了！

liwenhong

爱疯 发表于 2013-4-14 00:12
1）运行1次test，只为检查事件是否禁用。以后可不用。

Sub test()

比较我们的程序，我惭愧，还要努力向您学习，同时谢谢您！

爱疯

我也是学习来的。
“我的程序之前还会运行，到晚上就不会了！”
这个得看了你的附件后，才好说

hwc2ycy

关了事件触发忘了打开。

liwenhong

hwc2ycy 发表于 2013-4-14 08:49
关了事件触发忘了打开。

谢谢啊！我要学习事件触发关闭与打开

740705470

爱疯 发表于 2013-4-14 00:12
1）运行1次test，只为检查事件是否禁用。以后可不用。

Sub test()

好赞，给力{:09:}{:09:}{:09:}

century_zhang

爱疯 发表于 2013-4-14 00:12
1）运行1次test，只为检查事件是否禁用。以后可不用。

Sub test()

真的是，在学习change时，抄了例子，但是只抄了application.enableevents=false, 忘记抄另一半了。搞的所有Excel的change事件都不能运行了！还好搜到了您的帖子！要是能不用enableevents就好了，就不怕犯这种莫名其妙的错啦

zcz171392416

爱疯 发表于 2013-4-14 00:12
1）运行1次test，只为检查事件是否禁用。以后可不用。

Sub test()

谢谢
请问老师：若不是F1或者C2数据只要有一个变化，而是发生粘贴时。如何编写VBA程序？