更改事件

学有止境

谁能写一个事件代码。
如果单元格H3的值发生改变时，单元格H2的值自动清空。
谢谢

hehex

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.    
   
3.     If Target.Address(0, 0) <> "H3" Then Exit Sub
   
4.     Application.EnableEvents = False
   
5.     Target.Offset(-1) = ""
   
6.     Application.EnableEvents = True
   
7.    
   
8. End Sub

复制代码

学有止境

hehex 发表于 2013-12-21 13:17

好像不行呢

学有止境

我说错了，是I3单元格的内容发生改变时，H2的内容清空，不好意思，再帮我改一下，谢谢

hehex

学有止境 发表于 2013-12-21 14:50
我说错了，是I3单元格的内容发生改变时，H2的内容清空，不好意思，再帮我改一下，谢谢

If Target.Address(0, 0) <> "I3" Then Exit Sub
上面这句话H3 改成I3.
代码都贴的那么明白了，自己不能改一下吗？ 一个字母而已。

学有止境

hehex 发表于 2013-12-21 15:41
If Target.Address(0, 0)  "I3" Then Exit Sub
上面这句话H3 改成I3.
代码都贴的那么明白了，自己不能改 ...

真的是不行额，是改变额（改变不一定是清空内容，也有可能是里面的内容更换了），就是I3的内容改变，h2的内容自动清空。

lhdcxz

学有止境 发表于 2013-12-21 14:50
我说错了，是I3单元格的内容发生改变时，H2的内容清空，不好意思，再帮我改一下，谢谢

Private Sub Worksheet_Change(ByVal Target As Range)  
If Target.Address = "$I$3" Then Range("H2")=""
End Sub