Excel工作表事件（2）- Change事件

Excel工作表Change事件是最常用的事件代码之一，通俗的讲工作表内容发生变化时，此事件将被激活。
Change事件的过程框架如下，其中参数Target是Range类型变量，代表工作表中发生变化的单元格范围。

Private Sub Worksheet_Change(ByVal Target As Range)' Your code
End Sub

下面来看一个最简单示例，将代码写入工作表模块，如下图所示。

Private Sub Worksheet_Change(ByVal Target As Range)MsgBox "发生变化的单元格是：" & Target.Address
End Sub

在Sheet2工作表中选择B3至E8单元格区域，输入“2”，然后按<Ctrl+Enter>快捷键填充数据，将显示如下图所示的提示框，Target.Address将返回发生变化的单元格区域的绝对地址。

有时需要指定Change事件的有效单元格区域，那么就需要做代码过程中进行相应的判断，使用的场景基本上可以分为如下两种。

场景1：监测单个单元格
顾名思义，只有某个指定单元格发生变化时，才进行后续的处理。首先判断发生变化的单元格是为单个单元格，接着使用Target.Address = Range(TARGET_RNG).Address作为判断条件，判断是否为指定的单元格，如果需要监测其他单元格，只需要修改常量 TARGET_RNG。

Private Sub Worksheet_Change(ByVal Target As Range)Const TARGET_RNG = "A1"Application.EnableEvents = FalseWith TargetIf .Count = 1 ThenIf .Address = Range(TARGET_RNG).Address Then' Your CodeEnd IfEnd IfEnd WithApplication.EnableEvents = True
End Sub

场景2：监测指定区域
如果需要监测某个单元格区域，例如：A5:B10的单元格区域内的某个单元格发生变化时，运行相关代码，可以使用下面的代码。这个应用场景可以兼容“场景1”。

Private Sub Worksheet_Change(ByVal Target As Range)Const TARGET_RNG = "A5:B10"Application.EnableEvents = FalseWith TargetIf .Count = 1 ThenSet c = Application.Intersect(Range(TARGET_RNG), Target)If Not c Is Nothing Then' Your CodeEnd IfEnd IfEnd WithApplication.EnableEvents = True
End Sub

Excel工作表事件（2）- Change事件相关推荐

vba 修改access表的链接地址_神奇的VBA编程：禁止修改Excel工作表名称
职场中经常需要将做好的Excel表格/模板发给他人或者存放在公共路径上共享使用,此时需要禁止别人更改已经设定好的工作表名称.或者某些工作簿中有公式使用了对某些工作表的外部引用,如果工作表名称发生变化, ...
如何防止Excel工作表名称被修改
在Excel工作表标签上双击可以修改名称,如果其他工作簿中公式使用了对于此工作表的外部引用,那么工作表名称变化后,这些外部引用经失效,在VBA代码中通过工作表名称引用对象也将出错.利用VBA对象事件代 ...
如何禁止修改Excel工作表名称
经常会有网友提问:如何实现禁止修改Excel工作表名称,这个暂时没有完美解决方案,但是如下变通解决方法基本上可以满足需求. 示例文件中有两个工作表,名称为Summary和Sheet2,假设禁止修改第一 ...
excel按条件选择工作表_在Excel工作表中选择“实际使用范围”
excel按条件选择工作表 It's easy to select the current range in Excel – just press Ctrl + A. That shortcut se ...
excel链接隐藏工作表_自动隐藏Excel工作表
excel链接隐藏工作表 When you build a workbook for other people to use, there might be worksheets that can s ...
符号在excel中的引用_如何在Excel工作表中添加表情符号
&符号在excel中的引用 In the old days, we typed emoticons in our messages, to show a grin, or wink, etc. ...
在Excel工作表数据输入表单中编辑记录
How can you make it easy for people to enter and edit data in Excel, but keep them away from the dat ...
VBS遍历Excel工作表的方法
这篇文章主要介绍了VBS遍历Excel工作表的实现代码,需要的朋友可以参考下核心代码 '****************************************** '拖拽文件,获取文件路径 ...
在excel工作表中c1单元格_已知Excel工作表中A1单元格和B1单元格的值分别为“电子科技大学”、“信息中心”，要求在C1单元格显示“...
已知Excel工作表中A1单元格和B1单元格的值分别为"电子科技大学"."信息中心",要求在C1单元格显示" 更多相关问题所谓犯罪现象的特性,是指为 ...
计算机设计策略,专家经验谈：Excel工作表的设计策略
创建一个Excel工作表 (工作表:在 Excel 中用于存储和处理数据的主要文档.也称为电子表格.工作表由排列成行或列的单元格组成.工作表总是存储在工作簿中.)没有任何神秘之处可言,毕竟,这只是一些 ...

Excel工作表事件（2）- Change事件

Excel工作表事件（2）- Change事件相关推荐

最新文章

热门文章