企业官网建设流程全解析

做网站的公司不会设计,域名做网站,phpnow搭建wordpress,百度上搜不到网站目录 第四课#xff1a;Excel VBA事件过程 1、EXCEL事件程序定义与作用 2、事件程序基础 3、工作表事件实例1#xff08;自选计算与投票统计#xff09; 4、工作表事件实例2#xff08;状态栏地址与防工作表名更改) 5、工作表事件实例3#xff08;自动列出工作表名与…目录第四课Excel VBA事件过程1、EXCEL事件程序定义与作用2、事件程序基础3、工作表事件实例1自选计算与投票统计4、工作表事件实例2状态栏地址与防工作表名更改)5、工作表事件实例3自动列出工作表名与单元格区域保护6、工作簿事件实例1自动选择月份表、右键禁用、打印控制7、工作簿事件实例2给工作表加密码8、应用程序事件基础与实例本章将解锁VBA的真正威力无需手动运行宏让Excel自动响应你的每一个操作。第四课Excel VBA事件过程1、EXCEL事件程序定义与作用excel事件程序:因一个操作动作而触发一个程序让程序发生运行事件类型代码位置工作表事件工作表工作簿事件工作簿ThisWorkbook程序事件工作簿ThisWorkbook或类模块应用程序事件事件说明NewWorkbook当新建一个工作簿时发生此事件。SheetActivate当激活任何工作表时发生此事件。SheetBeforeDoubleClick在双击任何工作表前发生此事件。SheetBeforeRightClick在右键单击任何工作表前发生此事件。SheetCalculate在重新计算工作表时发生此事件。SheetChange更改任何工作表的单元格时发生此事件。SheetDeactivate当工作表失去焦点时发生此事件离开工作表时。SheetFollowHyperlink在单击工作簿中的任何超链接时发生。SheetPivotTableUpdate在更新数据透视表的工作表后发生。SheetSelectionChange所选内容在任何工作表上更改时发生。WindowActivate在激活任何工作簿窗口时发生。WindowDeactivate工作簿的窗口变为非活动状态时将产生本事件。WindowResize改变工作簿窗口大小时发生。WorkbookActivate当激活任何工作簿时发生此事件。WorkbookAddinInstall工作簿作为加载宏安装时发生此事件。WorkbookAddinUninstall当任一工作簿作为加载宏卸载时发生。WorkbookAfterXmlExport在保存或导出工作簿中的XML数据之后发生此事件。WorkbookAfterXmlImport当刷新现有的XML数据链接或新的XML数据被导入任一打开的Excel工作簿之后时发生。WorkbookBeforeClose关闭任何工作簿前发生此事件。WorkbookBeforePrint在打印工作簿前发生此事件。WorkbookBeforeSave在保存任何工作簿前发生此事件。WorkbookBeforeXmlExport保存或导出XML数据前发生的事件。WorkbookBeforeXmlImport当刷新现有的XML数据链接或新的XML数据被导入任一打开的Excel工作簿之前时发生。WorkbookDeactivate当打开的工作簿转为非活动状态时发生此事件。WorkbookNewSheet在任何打开的工作簿中新建工作表时发生此事件。WorkbookOpen当打开一个工作簿时发生此事件。WorkbookPivotTableCloseConnection在数据透视表的连接关闭之后发生此事件。WorkbookPivotTableOpenConnection在数据透视表的连接打开之后发生此事件。WorkbookRowsetComplete如果用户在OLAP数据透视表上深化记录集或调用行集操作则会发生此事件。WorkbookSync当作为“文档工作区”一部分的工作簿的本地副本与服务器上的副本进行同步时发生此事件。工作簿事件事件说明Activate激活工作簿、工作表、图表工作表或嵌入式图表时发生此事件。AddinInstall当工作簿作为加载宏安装时发生此事件。AddinUninstall当工作簿作为加载宏卸载时发生此事件。AfterXmlExport在Excel保存或导出指定工作簿中的XML数据之后发生此事件。AfterXmlImport在刷新现有的XML数据链接或将新的XML数据导入到指定的Excel工作簿之后发生此事件。BeforeClose在关闭工作簿之前先产生此事件。如果该工作簿已经更改过则本事件在询问用户是否保存更改之前产生。BeforePrint在打印指定工作簿或者其中的任何内容之前发生此事件。BeforeSave保存工作簿之前发生此事件。BeforeXmlExport在Excel保存或导出指定工作簿中的XML数据之前发生此事件。BeforeXmlImport在刷新现有的XML数据链接或将新的XML数据导入到指定的Excel工作簿之前发生此事件。Deactivate图表、工作表或工作簿被停用时发生此事件。NewSheet当在工作簿中新建工作表时发生此事件。Open打开工作簿时发生此事件。PivotTableCloseConnection数据透视表关闭与其数据源的链接后发生此事件。PivotTableOpenConnection数据透视表打开与其数据源的链接后发生此事件。RowsetComplete如果用户在OLAP数据透视表上深化记录集或调用行集操作则会引发此事件。SheetActivate激活任何工作表时发生此事件。SheetBeforeDoubleClick当双击任何工作表时发生此事件此事件先于默认的双击操作发生。SheetBeforeRightClick右键单击任一工作表时发生此事件此事件先于默认的右键单击操作。SheetCalculate在重新计算工作表时或在图表上绘制更改的数据之后发生此事件。SheetChange当用户或外部链接更改了任何工作表中的单元格时发生此事件。SheetDeactivate当任何工作表停用时发生此事件。SheetFollowHyperlink单击Excel中的任何超链接时发生此事件。SheetPivotTableUpdate在数据透视表的工作表更新之后发生此事件。SheetSelectionChange任一工作表的选定区域发生更改时将发生此事件。Sync当作为“文档工作区”一部分的工作表的本地副本与服务器上的副本进行同步时发生此事件。WindowActivate工作簿窗口被停用时发生此事件。WindowDeactivate任何工作簿窗口调整大小时发生此事件。WindowResize任何工作簿窗口被停用时发生此事件。工作表事件事件说明Activate激活工作簿、工作表、图表等时发生的事件。BeforeDoubleClick在工作表中双击前发生的事件。BeforeRightClick在工作表中右键单击前发生的事件。Calculate工作表重新计算之后发生的事件。Change更改工作表中的单元格发生的事件。Deactivate工作表、图表停用焦点离开时发生的事件。FollowHyperlink单击工作表上的任意超链接时发生此事件。PivotTableUpdate工作簿中的数据透视表更新后发生此事件。SelectionChange工作表上选定区域发生改变时发生的事件点击单元格、拖动区域选择等都会发生。2、事件程序基础以下是sheet8中的事件程序Change这个事件非常有用PrivateSubWorksheet_Change(ByVal TargetAsRange)在单元格中输入新的内容然后回车或者焦点离开这个单元格后发生的事件IfTarget.Address $J$9Then模块1代码之程序调用测试$J$9不能写成$j$9因为它区分大小写EndSub以下是thisworkbook中的事件PrivateSubWorkbook_NewSheet(ByVal ShAsObject)On Error Resume Nexti InputBox(请输入工作表的名称)Sh.Name iEndSub以下是禁止操作工作表的代码PrivateSubWorksheet_SelectionChange(ByVal TargetAsRange)IfTarget.Address $A$1Then[a1].ActivateEndSub代码保护工具--VBAProject属性-保护然后设置密码“查看时锁定工程”要打上勾3、工作表事件实例1自选计算与投票统计以下是sheet5的选择变化事件投票统计PrivateSubWorksheet_SelectionChange(ByVal TargetAsRange)On Error Resume NextIfTarget.Address $I$4OrTarget.Address $J$4OrTarget.Address $K$4ThenTarget.Value Target.Value 1EndIfEndSub以下是sheet1的选择变化事件中自动计算PrivateSubWorksheet_SelectionChange(ByVal TargetAsRange)Dima%, b%ForEachrngInTargeta rng.Rowb rng.ColumnCells(a, b 1) rngNextEndSub4、工作表事件实例2状态栏地址与防工作表名更改)以下是sheet9中防止修改工作表名的代码PrivateSubWorksheet_SelectionChange(ByVal TargetAsRange)IfSheet9.Name 需要保存ThenSheet9.Name 需要保存EndSub以下是sheet1中SelectionChange代码的在状态栏上显示出当前所选单元格区域的地址PrivateSubWorksheet_SelectionChange(ByVal TargetAsRange)Target.Address(0, 0)显示的是相对地址格式如A1:C9Application.StatusBar 当前所选区域是 Target.Address(0, 0)Target.Address显示的是绝对地址格式: 如$A$1:$C$9Application.StatusBar 当前所选区域是 Target.AddressEndSubPrivateSubWorksheet_Deactivate()Application.StatusBar 离开这个工作表后状态的信息清空EndSub以上两段代码要配合使用才完美如果要让每个工作表都有以上功能则可以把它升级为工作簿事件详见下段代码以下是thisworkbook中的事件程序PrivateSubWorkbook_SheetSelectionChange(ByVal ShAsObject, ByVal TargetAsRange)Application.StatusBar 当前所选区域是 Target.Address(0, 0)EndSubPrivateSubWorkbook_SheetDeactivate(ByVal ShAsObject)Application.StatusBar EndSub5、工作表事件实例3自动列出工作表名与单元格区域保护以下是sheet2中事件程序自动列出所有工作表名Private SubWorksheet_Activate()ForEachShInSheetsk k 1Cells(k, m) Sh.NameNextEndSub以下是sheet6中的事件程序单元格区域保护PrivateSubWorksheet_SelectionChange(ByVal TargetAsRange)IfIntersect(Target, [a1:d6])IsNothingThenMsgBox 你只能在[a1:d6]区域中工作[A1].SelectEndIfEndSub以上代码是不严谨的只要所选区域跟[a1:d6]区域有交集则上面代码不会被执行。6、工作簿事件实例1自动选择月份表、右键禁用、打印控制以下是thisworkbook中事件程序自动选择激活工作表打开工作簿时自动选择激活工作表PrivateSubWorkbook_Open()mon Format(Now(), m)Sheets(mon 月).SelectEndSub以下是thisworkbook中事件程序禁用右键PrivateSubWorkbook_SheetBeforeRightClick(ByVal ShAsObject, ByVal TargetAsRange, CancelAsBoolean)Cancel TrueEndSub以下是thisworkbook中事件程序禁止打印禁止打印PrivateSubWorkbook_BeforePrint(CancelAsBoolean)IfMonth(Now()) 月 ActiveSheet.NameThenMsgBox 不能打印Cancel TrueElseMsgBox 能打印Cancel FalseEndIfEndSub7、工作簿事件实例2给工作表加密码*************************以下是给工作表加密码的两段代码**********************1、下面是要加密的工作表的工作表事件PrivateSubWorksheet_Activate()a InputBox(请输入密码)Ifa 123ThenCells.Font.Color RGB(0, 0, 0)Application.EnableEvents False禁用当前的事件程序以免每次激活此表都提示输入密码ElseSheet1.ActivateEndIfEndSub2、下面是thisworkbook中的事件PrivateSubWorkbook_Open()Application.EnableEvents True配合前面的Application.EnableEvents False 使用Sheet20.Cells.Font.Color RGB(255, 255, 255)EndSub8、应用程序事件基础与实例应用程序事件每个打开工作簿因操作所发生的事件应用程序事件代码位置thisworkbook或者类模块应用程序事件代码在thisworkbook中存在的先决条件 1、申明变量 Public WithEvents app As Excel.Application 2、工作簿打开时运行:PrivateSubWorkbook_Open()Set app Excel.ApplicationEndSub 3、将1、2中的代码写在thisworkbook中并保存为“加载宏”文件xlam 4、在加载宏菜单中加载第3步保存的加载宏文件。目的任何时候都能依附在excel文件中实例禁止新增工作表 1、以下是thisworkbook中的代码Public WithEvents appAsExcel.Application申明变量PrivateSubWorkbook_Open()Set app Excel.ApplicationEndSubPrivateSubapp_WorkbookNewSheet(ByVal WbAsWorkbook, ByVal ShAsObject)Application.DisplayAlerts FalseMsgBox 你没有权限新增工作表Sh.DeleteApplication.DisplayAlerts TrueEndSub删除“加载宏”文件的办法在excel中选择另存为保存类型选择“加载宏”然后删除相应位置的“加载宏”文件。然后在加载项中去掉相应“加载宏”文件前的勾计算机科学与技术 计算机网络技术双专业课程体系完全导航指南