下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 工作薄、工作表事件一览表

工作薄、工作表事件一览表.doc

工作薄、工作表事件一览表

思念诠释你我de距离
2017-11-19 0人阅读 举报 0 0 暂无简介

简介:本文档为《工作薄、工作表事件一览表doc》,可适用于活动策划领域

工作薄、工作表事件一览表工作簿对象事件一览表当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。事件说明激活工作薄时Activate当工作簿作为加载宏安装时AddinInstall工作簿作为加载宏卸载时AddinUninstall关闭工作薄前BeforeClose打印工作薄(或其中任何内容)之前BeforePrint保存工作薄前BeforeSave工作簿从活动状态转为非活动状态时Deactivate在工作簿中新建工作表时NewSheet打开工作簿时Open在数据透视表关闭与其数据源的连接之后PivotTableCloseConnection在数据透视表打开与其数据源的连接之后PivotTableOpenConnection激活任何一张表时SheetActivate双击任何工作表时SheetBeforeDoubleClick鼠标右键单击任一工作表时SheetBeforeRightClick工作表重新计算时SheetCalculate更改工作表中的单元格时SheetChange任一工作表由活动状态转为非活动状态时SheetDeactivate单击MicrosoftExcel中的任意超链接时SheetFollowHyperlink数据透视表的工作表更新之后SheetPivotTableUpdate工作簿中的数据透视表更新之后SheetSelectionChange工作簿的窗口激活时WindowActivate工作簿的窗口变为非活动状态时WindowDeactivate工作簿窗口调整大小时WindowResize本示例在打开工作簿时将MicrosoftExcel窗口最大化。SubWorkbookOpen()ApplicationWindowState=xlMaximizedEndSubActivate事件激活一个工作簿、工作表、图表或嵌入图表时产生此事件。PrivateSubobjectActivate()Chart、Workbook、或者Worksheet。有关对Chart对象使用事件object的详细信息请参阅图表对象事件的用法。说明切换两个显示同一个工作簿的窗口时将产生WindowActivate事件但不产生工作簿的Activate事件。新建窗口时不产生本事件。示例当激活工作表时本示例对A:A区域进行排序。PrivateSubWorksheetActivate()Range("a:a")SortKey:=Range("a"),Order:=xlAscendingEndSubAddinInstall事件当工作簿作为加载宏安装时产生此事件。PrivateSubWorkbookAddinInstall()示例当指定工作簿作为加载宏安装时本示例将一个控件添加到常用工具栏中。PrivateSubWorkbookAddinInstall()WithApplicationCommandbars("Standard")ControlsAddCaption="TheAddIn'smenuitem"OnAction="'ThisAddinxls'!Amacro"EndWithEndSubEndSubAddinUninstall事件当工作簿作为加载宏卸载时产生此事件。PrivateSubWorkbookAddinUninstall()说明卸载加载宏时该加载宏并不自动关闭。示例当指定工作簿作为加载宏卸载时本示例将MicrosoftExcel最小化。PrivateSubWorkbookAddinUninstall()ApplicationWindowState=xlMinimizedEndSubBeforeClose事件在关闭工作簿之前先产生此事件。如果该工作簿已经更改过则本事件在询问用户是否保存更改之前产生。PrivateSubWorkbookBeforeClose(CancelAsBoolean)Cancel当事件产生时为False。如果该事件过程将本参数设为True则停止对工作簿的关闭操作工作薄仍处于打开状态。示例本示例将BeforeClose事件的响应设置为保存工作簿的任何更改。PrivateSubWorkbookBeforeClose(CancelasBoolean)IfMeSaved=FalseThenMeSaveEndSubBeforePrint事件在打印指定工作簿(或者其中的任何内容)之前产生此事件。PrivateSubWorkbookBeforePrint(CancelAsBoolean)Cancel当事件产生时为False。如果该事件过程将本参数设为True则当该过程运行结束之后不打印工作簿。示例本示例在打印之前对当前活动工作簿的所有工作表重新计算。PrivateSubWorkbookBeforePrint(CancelAsBoolean)ForEachwkinWorksheetswkCalculateNextEndSubBeforeSave事件保存工作簿之前产生此事件。SaveAsUiAsBoolean,CancelAsPrivateSubWorkbookBeforeSave(ByValBoolean)SaveAsUi如果显示“另存为”对话框则为True。Cancel当事件产生时为False。如果该事件过程将本参数设为True则该过程执行结束之后不保存工作簿。示例本示例在保存工作簿之前询问用户是否保存。PrivateSubWorkbookBeforeSave(ByValSaveAsUIAsBoolean,CancelasBoolean)a=MsgBox("Doyoureallywanttosavetheworkbook",vbYesNo)Ifa=vbNoThenCancel=TrueEndSubDeactivate事件图表、工作表或工作簿从活动状态转为非活动状态时产生此事件。PrivateSubobjectDeactivate()objectChart、Workbook或者Worksheet。有关对Chart对象使用事件的详细信息请参阅Chart对象事件的用法。示例本示例当工作簿转为非活动状态时对所有打开的窗口进行排列。PrivateSubWorkbookDeactivate()ApplicationWindowsArrangexlArrangeStyleTiledEndSubNewSheet事件当在工作簿中新建工作表时产生此事件。PrivateSubWorkbookNewSheet(ByValShAsObject)Sh新工作表。可以是一个Worksheet或Chart对象。示例本示例将新建的工作表移到工作簿的末尾。PrivateSubWorkbookNewSheet(ByValShasObject)ShMoveAfter:=Sheets(SheetsCount)EndSubOpen事件打开工作簿时将产生本事件。PrivateSubWorkbookOpen()示例每次打开工作簿时本示例都最大化MicrosoftExcel窗口。PrivateSubWorkbookOpen()ApplicationWindowState=xlMaximizedEndSubPivotTableCloseConnection事件发生在数据透视表关闭与其数据源的连接之后。PrivateSubexpressionPivotTableCloseConnection(ByValTargetAsPivotTable)expression引用在类模块中带有事件声明的Workbook类型对象的变量。Target必需。选定的数据透视表。示例本示例显示一则消息说明数据透视表与其数据源的连接已经关闭。本示例假定您已在类模块中声明了带有事件的Workbook类型的对象。PrivateSubConnectionAppPivotTableCloseConnection(ByValTargetAsPivotTable)MsgBox"ThePivotTableconnectionhasbeenclosed"EndSubPivotTableOpenConnection事件发生在数据透视表打开与其数据源的连接之后。PrivateSubexpressionPivotTableOpenConnection(ByValTargetAsPivotTable)expression引用在类模块中带有事件声明的Workbook类型对象的变量。Target必需。选定的数据透视表。示例本示例显示一则消息说明数据透视表与其数据源的连接已经打开。本示例假定您已在类模块中声明了带有事件的Workbook类型的对象。PrivateSubConnectionAppPivotTableOpenConnection(ByValTargetAsPivotTable)MsgBox"ThePivotTableconnectionhasbeenopened"EndSubSheetActivate事件当激活任何一张表时产生此事件。PrivateSubobjectSheetActivate(ByValShAsObject)objectApplication对象或Workbook对象。Sh激活的表。可以是一个Chart对象或Worksheet对象。示例本示例显示每一张激活的表的名称。PrivateSubWorkbookSheetActivate(ByValShAsObject)MsgBoxShNameEndSubSheetBeforeDoubleClick事件当双击任何工作表时产生此事件此事件先于默认的双击操作发生。PrivateSubobjectSheetBeforeDoubleClick(ByValShAsObject,ByValTargetAsRange,ByValCancelAsBoolean)objectApplication对象或Workbook对象。有关对Application对象使用事件的详细信息请参阅Application对象事件的用法。Sh代表该工作表的Worksheet对象。Target当双击事件发生时最靠近鼠标指针的单元格。Cancel当事件发生时为False。如果事件过程将该参数设为True则该过程执行完之后将不进行默认的双击操作。说明图表不产生该事件。示例本示例关闭默认的双击操作。PrivateSubWorkbookSheetBeforeDoubleClick(ByValShAsObject,ByValTargetAsRange,ByValCancelAsBoolean)Cancel=TrueEndSubSheetBeforeRightClick事件当用鼠标右键单击任一工作表时产生此事件此事件先于默认的右键单击操作。PrivateSubobjectSheetBeforeRightClick(ByValShAsObject,ByValTargetAsRange,ByValCancelAsBoolean)objectApplication对象或Workbook对象。有关对Application对象使用事件的详细信息请参阅Application对象事件的用法。Sh代表该工作表的Worksheet对象。Target当右键单击事件发生时最靠近鼠标指针的单元格。Cancel当事件产生时为False。如果该事件过程将本参数设为True则该过程执行结束之后将不执行默认的右键单击操作。说明图表不产生该事件。示例本示例关闭默认的右键单击操作。有关其他示例的详细信息。请参阅BeforeRightClick事件示例。PrivateSubWorkbookSheetBeforeRightClick(ByValShAsObject,ByValTargetAsRange,ByValCancelAsBoolean)Cancel=TrueEndSubSheetCalculate事件当对工作表重新计算或者在图表上重新绘制发生更改的数据点时产生此事件。PrivateSubobjectSheetCalculate(ByValShAsObject)objectApplication对象或Workbook对象。有关对Application对象使用事件的详细信息请参阅Application对象事件的用法。Sh工作表。可以是一个Chart对象或Worksheet对象。示例当计算工作簿中的任何工作表时本示例对第一张工作表的A:A区域进行排序。PrivateSubWorkbookSheetCalculate(ByValShAsObject)WithWorksheets()Range("a:a")SortKey:=Range("a")EndWithEndSubSheetChange事件当用户更改工作表中的单元格或者外部链接引起单元格的更改时产生此事件。PrivateSubobjectSheetChange(ByValShAsObject,ByValSourceAsRange)objectApplication对象或Workbook对象。有关对Application对象使用事件的详细信息请参阅Application对象事件的用法。Sh代表该工作表的Worksheet对象。Source发生更改的区域。说明图表不产生该事件。示例当任一工作表发生更改时运行本示例。PrivateSubWorkbookSheetChange(ByValShAsObject,ByValSourceAsRange)'runswhenasheetischangedEndSubSheetDeactivate事件当任一工作表由活动状态转为非活动状态时产生此事件。PrivateSubobjectSheetDeactivate(ByValShAsObject)objectApplication对象或Workbook对象。Sh工作表。可以是一个Chart对象或Worksheet对象。示例本示例显示每一非活动工作表的名称。PrivateSubWorkbookSheetDeactivate(ByValShAsObject)MsgBoxShNameEndSubSheetFollowHyperlink事件单击MicrosoftExcel中的任意超链接时发生此事件。对于工作表级的事件请参阅“帮助”主题中的FollowHyperlink事件。PrivateSubWorkbookSheetFollowHyperlink(ByValShAsObject,ByValTargetAsHyperlink)ShObject类型必需。表示包含该超链接的Worksheet对象。TargetHyperlink类型必需。一个Hyperlink对象该对象代表超链接的目标位置。示例本示例对当前工作簿中所有已单击过的超链接保留一个列表或历史记录其中也包括含有这些超链接的工作表名称。PrivateSubWorkbookSheetFollowHyperlink(ByValShasObject,ByValTargetAsHyperlink)UserFormListBoxAddItemShName":"TargetAddressUserFormShowEndSubSheetPivotTableUpdate事件发生在数据透视表的工作表更新之后。PrivateSubexpressionSheetPivotTableUpdate(ByValShAsObject,TargetAsPivotTable)引用在类模块中带有事件声明的Applicaton类型或expressionWorkbook类型对象的变量。Sh必需。选定的工作表。Target必需。选定的数据透视表。示例本示例显示一则消息说明数据透视表已经更新。本示例假定您已在类模块中声明了带有事件的Application类型或Workbook类型的对象。PrivateSubConnectionAppSheetPivotTableUpdate(ByValshOneAsObject,TargetAsPivotTable)MsgBox"TheSheetPivotTableconnectionhasbeenupdated"EndSubSheetSelectionChange事件任一工作表上的选定区域发生更改时将产生本事件。(但图表上的选定对象发生改变时不会产生本事件。)PrivateSubobjectSheetSelectionChange(ByValShAsObject,ByValTargetAsExcelRange)objectApplication对象或Workbook对象。有关对Application对象使用事件的详细信息请参阅Application对象事件的用法。Sh新选定的区域所在的工作表。新选定的区域。Target示例本示例在状态栏上显示选定区域所在的工作表名称及选定区域的地址。PrivateSubWorkbookSheetSelectionChange(ByValShAsObject,ByValTargetAsExcelRange)ApplicationStatusBar=ShName":"TargetAddressEndSubWindowActivate事件工作簿的窗口激活时将产生本事件。PrivateSubobjectWindowActivate(ByValWbAsExcelWorkbook,ByValWnAsExcelWindow)objectApplication对象或Workbook对象。有关对Application对象使用事件的详细信息请参阅Application对象事件的用法。Wb仅用于Application对象。显示在活动窗口中的工作簿。Wn激活的窗口。示例本示例使工作簿窗口激活时最大化。PrivateSubWorkbookWindowActivate(ByValWnAsExcelWindow)WnWindowState=xlMaximizedEndSubWindowDeactivate事件工作簿的窗口变为非活动状态时将产生本事件。PrivateSubobjectWindowDeactivate(ByValWbAsExcelWorkbook,ByValWnAsExcelWindow)Application对象或Workbook对象。有关对Application对象object使用事件的详细信息请参阅Application对象事件的用法。Wb仅用于Application对象。非活动状态的窗口中的工作簿。Wn非活动状态的窗口。示例本示例使工作簿窗口变为非活动状态时最小化。PrivateSubWorkbookWindowDeactivate(ByValWnAsExcelWindow)WnWindowState=xlMinimizedEndSubWindowResize事件工作簿窗口调整大小时将产生本事件。PrivateSubobjectWindowResize(ByValWbAsExcelWorkbook,ByValWnAsExcelWindow)objectApplication对象或Workbook对象。有关对Application对象使用事件的详细信息请参阅Application对象事件的用法。Wb仅用于Application对象。在调整大小的窗口中显示的工作簿。Wn调整大小的窗口。示例工作簿窗口调整大小时将运行本示例。PrivateSubWorkbookWindowResize(ByValWnAsExcelWindow)ApplicationStatusBar=WnCaption"resized"EndSubWorksheet对象事件工作表上的事件在默认情况下是可用的。若要查看工作表的事件过程请用鼠标右键单击工作表标签再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。事件说明激活工作表时ActivateDeactivate工作表从活动状态转为非活动状态时BeforeDoubleClick双击工作表前BeforeRightClick右键单击工作表时Calculate对工作表进行重新计算之后更改工作表中的单元格或外部链接引起单元格时ChangeFollowHyperlink单击工作表上的任意超链接时PivotTableUpdate在工作簿中的数据透视表更新之后SelectionChange工作表上的选定区域发生改变时工作表级事件发生在工作表被激活、用户更改工作表上的单元格或数据透视表更改时。下例在工作表重新计算时就调整A列到F列的大小。PrivateSubWorksheetCalculate()Columns("A:F")AutoFitEndSub有些事件可用于将某操作取代默认的应用程序操作或对默认操作进行一些小改动。下例捕获了右键单击事件并在单元格区域B:B的快捷菜单中添加了新的菜单项。PrivateSubWorksheetBeforeRightClick(ByValTargetAsRange,CancelAsBoolean)ForEachicbcInApplicationCommandBars("cell")ControlsIficbcTag="brccm"ThenicbcDeleteNexticbcIfNotApplicationIntersect(Target,Range("b:b"))IsNothingThenWithApplicationCommandBars("cell")ControlsAdd(Type:=msoControlButton,before:=,temporary:=True)Caption="NewContextMenuItem"OnAction="MyMacro"Tag="brccm"EndWithEndIfEndSubActivate事件激活一个工作簿、工作表、图表或嵌入图表时产生此事件。PrivateSubobjectActivate()Chart、Workbook、或者Worksheet。有关对Chart对象使用事件object的详细信息请参阅图表对象事件的用法。说明切换两个显示同一个工作簿的窗口时将产生WindowActivate事件但不产生工作簿的Activate事件。新建窗口时不产生本事件。示例当激活工作表时本示例对A:A区域进行排序。PrivateSubWorksheetActivate()Range("a:a")SortKey:=Range("a"),Order:=xlAscendingEndSubDeactivate事件图表、工作表或工作簿从活动状态转为非活动状态时产生此事件。PrivateSubobjectDeactivate()objectChart、Workbook或者Worksheet。有关对Chart对象使用事件的详细信息请参阅Chart对象事件的用法。示例本示例当工作簿转为非活动状态时对所有打开的窗口进行排列。PrivateSubWorkbookDeactivate()ApplicationWindowsArrangexlArrangeStyleTiledEndSubBeforeDoubleClick事件当双击某工作表时产生此事件此事件先于默认的双击操作。PrivateSubexpressionBeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)引用在类模块中带有事件声明的Worksheet类型对象的变expression量。Target必需。双击发生时最靠近鼠标指针的单元格。Cancel可选。当事件发生时为False。如果事件过程将该参数设为True则该过程执行完之后将不进行默认的双击操作。说明使用DoubleClick方法并不触发本事件。用户双击单元格的边框时不触发本事件。BeforeRightClick事件当用鼠标右键单击某工作表时产生此事件此事件先于默认的右键单击操作。PrivateSubexpressionBeforeRightClick(ByValTargetAsRange,CancelAsBoolean)expression引用在类模块中带有事件声明的Worksheet类型对象的变量。Target必需。右键单击发生时最靠近鼠标指针的单元格。Cancel可选。当事件发生时为False。如果该事件过程将本参数设为True则该过程执行结束之后不进行默认的右键单击操作。说明与其他工作表事件相似当指针位置在图形或命令栏(工具栏或者菜单栏)上时右键单击不触发本事件。示例应用于Worksheet对象。本示例为B:B单元格添加新的快捷菜单项。PrivateSubWorksheetBeforeRightClick(ByValTargetAsRange,CancelAsBoolean)DimicbcAsObjectForEachicbcInApplicationCommandBars("cell")ControlsIficbcTag="brccm"ThenicbcDeleteNexticbcIfNotApplicationIntersect(Target,Range("b:b"))IsNothingThenWithApplicationCommandBars("cell")ControlsAdd(Type:=msoControlButton,before:=,temporary:=True)Caption="NewContextMenuItem"OnAction="MyMacro"Tag="brccm"EndWithEndIfEndSubCalculate事件对于Chart对象在图表对新的数据点或者更改的数据点绘制之后产生此事件。对于Worksheet对象在对工作表进行重新计算之后产生此事件。PrivateSubobjectCalculate()objectChart或者Worksheet。有关对Chart对象使用事件的详细内容请参阅Chart对象事件的用法。示例每当工作表重新计算时本示例就调整A列到F列的宽度。PrivateSubWorksheetCalculate()Columns("A:F")AutoFitEndSubChange事件当用户更改工作表中的单元格或外部链接引起单元格的更改时产生此事件。PrivateSubWorksheetChange(ByValTargetAsRange)Target更改的区域。可以是多个单元格。说明重新计算引起的单元格更改不触发本事件。可使用Calculate事件俘获工作表重新计算操作。示例本示例将更改的单元格的颜色设为蓝色。PrivateSubWorksheetChange(ByValTargetasRange)TargetFontColorIndex=EndSubFollowHyperlink事件当单击工作表上的任意超链接时发生此事件。对于应用程序级或工作簿级的事件请参阅SheetFollowHyperlink事件。PrivateSubWorksheetFollowHyperlink(ByValTargetAsHyperlink)TargetHyperlink类型必需。一个代表超链接目标位置的Hyperlink对象。示例本示例对在当前活动工作簿中访问过的所有链接保留一个列表或历史记录。PrivateSubWorksheetFollowHyperlink(ByValTargetAsHyperlink)WithUserFormListBoxAddItemTargetAddressShowEndWithEndSubPivotTableUpdate事件发生在工作簿中的数据透视表更新之后。PrivateSubexpressionPivotTableUpdate(ByValTargetAsPivotTable)引用在类模块中带有事件声明的Worksheet类型对象的变expression量。Target必需。选定的数据透视表。示例本示例显示一则消息说明数据透视表已经更新。本示例假定您已在类模块中声明了带有事件的Worksheet类型的对象。PrivateSubWorksheetPivotTableUpdate(ByValTargetAsPivotTable)MsgBox"ThePivotTableconnectionhasbeenupdated"EndSubSelectionChange事件当工作表上的选定区域发生改变时将产生本事件。PrivateSubWorksheetSelectionChange(ByValTargetAsExcelRange)Target新选定的区域。示例本示例滚动工作簿窗口直至选定区域位于窗口的左上角。PrivateSubWorksheetSelectionChange(ByValTargetAsRange)WithActiveWindowScrollRow=TargetRowScrollColumn=TargetColumnEndWithEndSub

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/22

工作薄、工作表事件一览表

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利