1、,Excel VBA视频教程 07事件与典型应用案例,王佩丰MVP 微软最有价值专家MCT 微软认证讲师,议程,关于单元格格式设置中的WITH语句,常用事件,课程小结,本节演示案例,高亮显示当前单元格正行数据输入条件后自动完成筛选数据透视表自动更新为重要文件制作文件恢复节点,课程小结,需要理解并记住写法的概念,需要理解的概念,Application.EnableEvents=FalseThisWorkbook.SaveCopyAs,什么是事件Sheet1.Visible=xlSheetVeryHidden,Now()Format(),课后练习,综合练习,问题：为作业表制作密码验证。要求：打开文
2、件时只显示登录界面表隐藏其他所有表，弹出对话框输入密码。输入123则显示张三的三张表，输入456则显示李四的三张表。,附表：对齐方式选项卡,With Selection.HorizontalAlignment=xlRight.VerticalAlignment=xlCenter.WrapText=False.Orientation=0.AddIndent=False.IndentLevel=0.ShrinkToFit=False.ReadingOrder=xlContext.MergeCells=False End With,水平对齐方式垂直对齐方式自动换行文字方向缩进缩进量缩小字体填充文字方
3、向合并单元格,附表：字体格式选项卡,With Selection.Font.Name=华文琥珀.Size=9.Strikethrough=False.Superscript=False.Subscript=False.OutlineFont=False.Shadow=False.Underline=xlUnderlineStyleNone.ColorIndex=xlAutomatic.TintAndShade=0.ThemeFont=xlThemeFontNone End With,字体字号删除线上标下标大纲字体阴影下划线字体颜色颜色变深或变浅主题字体,附表：填充色选项卡,With Selection.Interior.Pattern=xlSolid.PatternColorIndex=xlAutomatic.ThemeColor=xlThemeColorDark1.TintAndShade=-4.99893185216834E-02.Color=65535.PatternTintAndShade=0 End With,图案样式图案颜色主体颜色颜色变深或变浅填充色对象的淡色和底纹图案,附表：工作簿事件,附表：工作表事件,Thank You,
