ExcelVBA视频教程07事件与典型应用案例王佩丰MVP微软最有价值专家MCT微软认证讲师议程关于单元格格式设置中的WITH语句事件与典型事件案例课程小结及课后练习关于单元格格式设置中的WITH语句单元格格式设置With……..EndWithNow()函数Format函数常用事件Worksheet_SelectionChange事件Worksheet_Change事件Worksheet_Activate事件Workbook_BeforeSave事件Workbook_Open事件application.EnableEvents课程小结本节演示案例高亮显示当前单元格正行数据输入条件后自动完成筛选数据透视表自动更新为重要文件制作文件恢复节点课程小结需要理解并记住写法的概念需要理解的概念Application.EnableEvents=FalseThisWorkbook.SaveCopyAs什么是事件Sheet1.Visible=xlSheetVeryHiddenNow()Format()课后练习综合练习问题：为作业表制作密码验证。要求：打开文件时只显示登录界面表隐藏其他所有表，弹出对话框输入密码。输入123则显示张三的三张表，输入456则显示李四的三张表。附表：对齐方式选项卡WithSelection.HorizontalAlignment=xlRight.VerticalAlignment=xlCenter.WrapText=False.Orientation=0.AddIndent=False.IndentLevel=0.ShrinkToFit=False.ReadingOrder=xlContext.MergeCells=FalseEndWith水平对齐方式垂直对齐方式自动换行文字方向缩进缩进量缩小字体填充文字方向合并单元格附表：字体格式选项卡WithSelection.Font.Name="华文琥珀".Size=9.Strikethrough=False.Superscript=False.Subscript=False.OutlineFont=False.Shadow=False.Underline=xlUnderlineStyleNone.ColorIndex=xlAutomatic.TintAndShade=0.ThemeFont=xlThemeFontNoneEndWith字体字号删除线上标下标大纲字体阴影下划线字体颜色颜色变深或变浅主题字体附表：填充色选项卡WithSelection.Interior.Pattern=xlSolid.PatternColorIndex=xlAutomatic.ThemeColor=xlThemeColorDark1.TintAndShade=-4.99893185216834E-02.Color=65535.PatternTintAndShade=0EndWith图案样式图案颜色主体颜色颜色变深或变浅填充色对象的淡色和底纹图案附表：工作簿事件事件说明Activate激活工作薄时AddinInstall当工作簿作为加载宏安装时AddinUninstall工作簿作为加载宏卸载时BeforeClose关闭工作薄前BeforePrint打印工作薄(或其中任何内容)之前BeforeSave保存工作薄前Deactivate工作簿从活动状态转为非活动状态时NewSheet在工作簿中新建工作表时Open打开工作簿时PivotTableCloseConnection在数据透...
