【EXCEL_VBA_基础知识】07 VBA事件与典型应用案例

课程来源：王佩丰老师的《王佩丰学VBA视频教程》，如有侵权，请联系删除！

第07课，主要介绍With函数、事件触发以及实例应用

目录

1. With函数（设置格式常用，减少代码书写量）

1.1 填充色选项卡

 1.2 字体格式选项卡

1.3  对齐方式选项卡

 2. 事件

2.1 工作表事件

2.2 工作簿事件

3. 实例应用

3.1 事件使用注意（执行动作时屏蔽事件，避免出错）

3.2 光标所在行自动高光（不实用，其他单元格颜色均改变）

3.3 自动备份

---

1. With函数（设置格式常用，减少代码书写量）

1.1 填充色选项卡

 1.2 字体格式选项卡

1.3  对齐方式选项卡

 2. 事件

事件：为当...时（触发动作），会做...（行为动作）  

2.1 工作表事件

2.2 工作簿事件

3. 实例应用

3.1 事件使用注意（执行动作时屏蔽事件，避免出错）

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False '关闭事件动作触发
    Call 功能函数 '执行动作
    Application.EnableEvents = True ' 开启事件动作触发

End Sub

3.2 光标所在行自动高光（不实用，其他单元格颜色均改变）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Cells.Interior.Pattern = xlNone '全选单元格，清空填充颜色
Selection.EntireRow.Interior.Color = 65535 '选中行填充为黄色


End Sub

3.3 自动备份

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'另存复制为... 不改变当前所编辑的文件
' 此处以时间区分不同备份
ThisWorkbook.SaveCopyAs "路径" & Format(Now(), "yyyymmddhhmmss") & ".xls"

End Sub