王佩丰老师vba课程笔记 第七讲--事件与典型应用案例

一、with 语句例：点击单元格，单元格所在行销段变为黄色Sub 改颜色()Cells.Interior.Pattern = xlNoneSelection.EntireRow.Interior.Color = 65535End Sub需点击宏才能运行。可设置。双击sheet1进入编程页面。选择worksheet -- selectionchange ‘选区变化Private Sub Worksheet_SelectionChange(ByVal Target As Range)Call textEnd Sub二、自动筛选例：单元格一发生变化就自动把满足亏李誉条件的值复制到l1单元格Sub 筛选()Columns("K:P").ClearRange("I2") = InputBox("以什么条件筛选")Range("A1:F232").AutoFilter field:=4, Criteria1:=Range("I2")Range("A1:F232").Copy Range("k1")Selection.AutoFilterEnd Sub再双击sheet1, worksheet changePrivate Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseCall 筛选Application.EnableEvents = TrueEnd Sub三、自动更新更改数据源，切换到数据透视表后，完成更新，否则不更新。双击sheet2 ，worksheet activatePrivate Sub Worksheet_Activate()ActiveWorkbook.RefreshAllEnd Sub ‘运行没反应四、重要数据的自动备份Thisworkbook 是针对工作簿进行处理的。.Xls 是可以保存数据及宏代码的.xlsx 不可以保存带代码的文档，只能保存纯数字.xlsm 启用宏的工作簿例：保存时，自动另存在d盘，并以当时时间命名（两函数一事件一方法）函数：Now() 当前时间 2020/12/13 20:07Format(now(),”yyyymmddhhmmss”)在模块中，Thisworkbook.saveas ” d:data1.xls ” 运行后，打开的文件1.xls，而非之前的原文件。在工作簿thisworkbook中： workbook beforesavePrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)ThisWorkbook.SaveCopyAs "d:" & Format(Now(), "yyyymmddhhmmss") & ".xls"End Sub ‘运行不出来五、作业为作业表制作密码验证打开文件只显示登入界面表，隐藏其他所有表，弹出对话框输入密码。输入123则显示张三的三张表，输入456则显示李四的三张表Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim sht As Worksheet隐藏所有表For Each sht In SheetsIf sht.Name "登录界面" Thensht.Visible = xlSheetVeryHiddenEnd IfNextEnd SubPrivate Sub Workbook_Open()Dim ii = InputBox("请输入密码")If i = "123" ThenSheet1.Visible = xlSheetVisibleSheet2.Visible = xlSheetVisibleSheet3.Visible = xlSheetVisibleElseIf i = "456" ThenSheet4.Visible = xlSheetVisibleSheet5.Visible = xlSheetVisibleSheet6.Visible = xlSheetVisibleElseMsgBox "密码扰乱输入错误"ThisWorkbook.CloseEnd IfSheet7.Visible = xlSheetVeryHiddenEnd Sub‘能够运用程序，但退出时会报错