课程来源:王佩丰老师的《王佩丰学VBA视频教程》,如有侵权,请联系删除!
第07课,主要介绍With函数、事件触发以及实例应用
目录
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