关于更改excel指定区域单元格内容触发操作的问题

amesman

以下是更改一个单元格时所自动触发操作的代码:
Private  Sub  Worksheet_Change(ByVal   Target   As   Range)
        If   Target.Column   =   1   And   Target.Row   =   2   Then
                Range( "A1 ").Value   =   "更改了的内容 "
        End   If
End   Sub
现在想指定某一区域的单元格,比如A1:A10,请问该功能如何实现?或者说有没其他的函数?
请教各路高手,谢谢!

amesman

盼高手
这个版刷新太快了,自己项

ericjon

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rge As Range
   
    Set rge = Range("A2:A10")
    If Not Intersect(Target, rge) Is Nothing Then
        Range("A1 ").Value = "更改了的内容 "
    End If
End Sub

you can refer this

amesman

调试了一下，还是不行，在指定区域之外，比如A11，更改单元格内容同样会触发此操作。而且会使程序处于一个无止境的循环之中。

jygzcj

原帖由 amesman 于 2011-3-8 19:20 发表
调试了一下，还是不行，在指定区域之外，比如A11，更改单元格内容同样会触发此操作。而且会使程序处于一个无止境的循环之中。

我试了一下，好像不会吧！

amesman

按照三楼ericjon兄弟的方法调试成功!!!
原来是我的range()里的变量搞错了,以致调试了老半天都失败.
非常感谢三楼ericjon的正确解答,谢谢!
也感谢五楼jygzcj的提醒!
再次感谢大家!!!

keya

多谢！我应该也能用到。