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.