Worksheet_Change 作用与对象'Range'时失败，Worksheet_SelectionChange却不会

afan

我想把A列的数据在输入时自动变成大写字母，写了以下代码，结果提示 “作用与对象'Range'时失败”

Private Sub Worksheet_Change(ByVal TargetAs Range)

If Target.Column = 1 Then Target =UCase(Target)

End Sub

但是如果我改成以下后，却不会提示错误，为什么呢？

Private Sub Worksheet_SelectionChange(ByValTarget As Range)

If Target.Column = 1 Then Target =UCase(Target)

End Sub

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
    Application.EnableEvents = False
    Target = UCase(Target)
    Application.EnableEvents = True
    End If
End Sub

answer6141

http://club.excelhome.net/thread-574413-1-1.html
多看看帖子，有帮助
一个是内容发生变化，一个选择发生变化，

大灰狼1976

虽然说应该加上防止连锁反应的语句，但是vba自身也有少许自保护功能，上面的语句不至于出错，我做过测试，连续85次连锁反应后，change事件会自动停止，并没有出现楼主贴出的问题。测试代码如下：

1. Public n&
   
2. 
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4. Target = UCase(Target)
   
5. n = n + 1
   
6. Debug.Print n
   
7. End Sub

复制代码

另，楼主为技术分19的技术大牛，应该不至于不明白这两个事件。

afan

大灰狼1976 发表于 2020-1-10 14:48
虽然说应该加上防止连锁反应的语句，但是vba自身也有少许自保护功能，上面的语句不至于出错，我做过测试， ...

代码是有问题的，莫非是版本问题。我用的是OFFICE 365  2楼的方法可以，多谢。

大灰狼1976

afan 发表于 2020-1-13 10:23
代码是有问题的，莫非是版本问题。我用的是OFFICE 365  2楼的方法可以，多谢。

那应该是版本的差异，我的2010没有发生问题。
但是连锁反应是作为VBAer应该（必须）要避免的。