VBA学习笔记三（VBA事件）

VBA事件

执行宏的方法

执行宏的方法：
1、在写好的代码处点击一下，然后点击执行
2、点击宏，选中代码名后执行
3、将宏与表格中的按钮绑定，点击按钮便执行宏
4、双击选中待操作的表格，在上面选中worksheet，此时后面的事件发生时，执行下面代码，截图如下

工作表事件

事件	说明
Activate	激活工作表时
Deactivete	工作表从活动状态转化为非活动状态时
BeforeDoubleClick	双击工作表时
BeforeRightClick	右键单击工作表时
Calculate	对工作表进行重新计算之后
Change	更改工作表中的单元格，或外部链接引起单元格变化时
FollowHyperlink	单击工作表上的任意链接时
PivotTableUpdate	在工作表中的数据透视表更新之后
SelectionChange	工作表上的选定区域发生变化时

事件操作示例

根据表格中的内容自动筛选数据

问题：
从左侧数据中筛选出L3中该部门的数据，并将其复制到右侧
当L3中的数据变化时，右侧数据会自动更新
注意
由于在该项目中采用的时事件变化时执行宏操作，故在事件中选择Change,此时应该考虑虽然当表格L3中的数据变化时，会执行宏操作，但是当将筛选出来的数据填写至右侧表格时，依然会检测到表格变化，因此在检测到第一次表格变化时，将事件检测器关闭，关闭语句如下：

Application.EnableEvents = False
Application.EnableEvents = True

整体代码+注释

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
'首先将右侧内容清空
Range("l1:q10000").ClearContents
'开启筛选
Range("A1:F232").AutoFilter Field:=4, Criteria1:=Sheet1.Range("i2").Value
'复制
Range("a1:f232").Copy Range("l1")
'关闭筛选
Range("A1:F232").AutoFilter

Application.EnableEvents = True


End Sub

参考

参考：王佩丰老师教学视频链接: https://www.bilibili.com/video/BV1L4411Q7Ni?p=1.