VBA提高篇_23 Change事件_事件处理自动跳转_事件级联处理

pigerr杨

已于 2023-02-19 12:24:29 修改

阅读量1.5k

点赞数 1

分类专栏： # VBA基础和提高篇文章标签： VBA excel

于 2023-02-19 11:29:31 首次发布

本文链接：https://blog.csdn.net/pigerr/article/details/129107900

版权

VBA基础和提高篇专栏收录该内容

48 篇文章 15 订阅

订阅专栏

文章详细阐述了ExcelVBA中的Change事件，指出它在单元格数据发生变化后触发，区别于SelectionChange事件。文章提供了Change事件的触发条件示例代码，并着重讨论了如何防止因修改单元格内容而产生的级联响应，通过设置Application.EnableEvents属性来控制事件的启用和禁用，确保数据输入的正确性。

摘要由CSDN通过智能技术生成

文章目录

1.Change事件

1.Change事件

1.1 Change事件的触发时间

发生变化后触发本事件

与SelectionChange的区别: SelectionChange选中时触发本事件

在这里插入图片描述

1.2 Change事件的触发条件

在这里插入图片描述

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Target.Address
    Target.Value = "发生Change事件"
End Sub

1.3.事件的级联响应

注意: VBA对单元格的修改也会触发Change事件,避免级联响应

Application.Events属性
在这里插入图片描述

Application.Events属性

Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Row > 3 And Target.Column = 4 Then
            If Not IsNumeric(Target) Or Target > 100 Or Target < 5 Then
                MsgBox "武力值必须是0-100之间的数字"
                Target.Select
                
                Application.EnableEvents = False
                Target.Value = "待输入"
                
                Application.EnableEvents = True
             End If
        End If
        
End Sub