工作薄工作表事件一览表Word文档下载推荐.docx
《工作薄工作表事件一览表Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《工作薄工作表事件一览表Word文档下载推荐.docx(23页珍藏版)》请在冰点文库上搜索。
![工作薄工作表事件一览表Word文档下载推荐.docx](https://file1.bingdoc.com/fileroot1/2023-5/10/ec8de999-3f4a-4193-a931-e1b7302b465a/ec8de999-3f4a-4193-a931-e1b7302b465a1.gif)
在数据透视表打开与其数据源的连接之后
SheetActivate
激活任何一张表时
SheetBeforeDoubleClick
双击任何工作表时
SheetBeforeRightClick
鼠标右键单击任一工作表时
SheetCalculate
工作表重新计算时
SheetChange
更改工作表中的单元格时
SheetDeactivate
任一工作表由活动状态转为非活动状态时
SheetFollowHyperlink
单击MicrosoftExcel中的任意超链接时
SheetPivotTableUpdate
数据透视表的工作表更新之后
SheetSelectionChange
工作簿中的数据透视表更新之后
WindowActivate
工作簿的窗口激活时
WindowDeactivate
工作簿的窗口变为非活动状态时
WindowResize
工作簿窗口调整大小时
本示例在打开工作簿时将MicrosoftExcel窗口最大化。
SubWorkbook_Open()
Application.WindowState=xlMaximized
EndSub
Activate事件
激活一个工作簿、工作表、图表或嵌入图表时产生此事件。
PrivateSubobject_Activate()
object
Chart、Workbook、或者Worksheet。
有关对Chart对象使用事件的详细信息,请参阅图表对象事件的用法。
切换两个显示同一个工作簿的窗口时,将产生WindowActivate事件,但不产生工作簿的Activate事件。
新建窗口时不产生本事件。
示例
当激活工作表时,本示例对A1:
A10区域进行排序。
PrivateSubWorksheet_Activate()
Range("
a1:
a10"
).SortKey1:
=Range("
a1"
),Order:
=xlAscending
AddinInstall事件
当工作簿作为加载宏安装时,产生此事件。
PrivateSubWorkbook_AddinInstall()
当指定工作簿作为加载宏安装时,本示例将一个控件添加到常用工具栏中。
WithApplication.Commandbars("
Standard"
).Controls.Add
.Caption="
TheAddIn'
smenuitem"
.OnAction="
'
ThisAddin.xls'
!
Amacro"
EndWithEndSub
AddinUninstall事件
当工作簿作为加载宏卸载时,产生此事件。
PrivateSubWorkbook_AddinUninstall()
卸载加载宏时,该加载宏并不自动关闭。
当指定工作簿作为加载宏卸载时,本示例将MicrosoftExcel最小化。
Application.WindowState=xlMinimized
BeforeClose事件
在关闭工作簿之前,先产生此事件。
如果该工作簿已经更改过,则本事件在询问用户是否保存更改之前产生。
PrivateSubWorkbook_BeforeClose(CancelAsBoolean)
Cancel
当事件产生时为False。
如果该事件过程将本参数设为True,则停止对工作簿的关闭操作,工作薄仍处于打开状态。
本示例将BeforeClose事件的响应设置为保存工作簿的任何更改。
PrivateSubWorkbook_BeforeClose(CancelasBoolean)
IfMe.Saved=FalseThenMe.Save
BeforePrint事件
在打印指定工作簿(或者其中的任何内容)之前,产生此事件。
PrivateSubWorkbook_BeforePrint(CancelAsBoolean)
如果该事件过程将本参数设为True,则当该过程运行结束之后不打印工作簿。
本示例在打印之前对当前活动工作簿的所有工作表重新计算。
ForEachwkinWorksheets
wk.Calculate
Next
BeforeSave事件
保存工作簿之前产生此事件。
PrivateSubWorkbook_BeforeSave(ByValSaveAsUiAsBoolean,CancelAsBoolean)
SaveAsUi
如果显示“另存为”对话框,则为True。
如果该事件过程将本参数设为True,则该过程执行结束之后不保存工作簿。
本示例在保存工作簿之前询问用户是否保存。
PrivateSubWorkbook_BeforeSave(ByValSaveAsUIAsBoolean,_
CancelasBoolean)
a=MsgBox("
Doyoureallywanttosavetheworkbook?
"
vbYesNo)
Ifa=vbNoThenCancel=True
Deactivate事件
图表、工作表或工作簿从活动状态转为非活动状态时产生此事件。
PrivateSubobject_Deactivate()
Chart、Workbook或者Worksheet。
有关对Chart对象使用事件的详细信息,请参阅Chart对象事件的用法。
本示例当工作簿转为非活动状态时,对所有打开的窗口进行排列。
PrivateSubWorkbook_Deactivate()
Application.Windows.ArrangexlArrangeStyleTiled
NewSheet事件
当在工作簿中新建工作表时产生此事件。
PrivateSubWorkbook_NewSheet(ByValShAsObject)
Sh
新工作表。
可以是一个Worksheet或Chart对象。
本示例将新建的工作表移到工作簿的末尾。
PrivateSubWorkbook_NewSheet(ByValShasObject)
Sh.MoveAfter:
=Sheets(Sheets.Count)
Open事件
打开工作簿时,将产生本事件。
PrivateSubWorkbook_Open()
每次打开工作簿时,本示例都最大化MicrosoftExcel窗口。
PivotTableCloseConnection事件
发生在数据透视表关闭与其数据源的连接之后。
PrivateSubexpression_PivotTableCloseConnection(ByValTargetAsPivotTable)
expression
引用在类模块中带有事件声明的Workbook类型对象的变量。
Target
必需。
选定的数据透视表。
本示例显示一则消息,说明数据透视表与其数据源的连接已经关闭。
本示例假定您已在类模块中声明了带有事件的Workbook类型的对象。
PrivateSubConnectionApp_PivotTableCloseConnection(ByValTargetAsPivotTable)
MsgBox"
ThePivotTableconnectionhasbeenclosed."
PivotTableOpenConnection事件
发生在数据透视表打开与其数据源的连接之后。
PrivateSubexpression_PivotTableOpenConnection(ByValTargetAsPivotTable)
本示例显示一则消息,说明数据透视表与其数据源的连接已经打开。
PrivateSubConnectionApp_PivotTableOpenConnection(ByValTargetAsPivotTable)
ThePivotTableconnectionhasbeenopened."
SheetActivate事件
当激活任何一张表时产生此事件。
PrivateSubobject_SheetActivate(ByValShAsObject)
Application对象或Workbook对象。
激活的表。
可以是一个Chart对象或Worksheet对象。
本示例显示每一张激活的表的名称。
PrivateSubWorkbook_SheetActivate(ByValShAsObject)
MsgBoxSh.Name
SheetBeforeDoubleClick事件
当双击任何工作表时产生此事件,此事件先于默认的双击操作发生。
PrivateSubobject_SheetBeforeDoubleClick(ByValShAsObject,ByValTargetAsRange,ByValCancelAsBoolean)
有关对Application对象使用事件的详细信息,请参阅Application对象事件的用法。
代表该工作表的Worksheet对象。
当双击事件发生时最靠近鼠标指针的单元格。
当事件发生时为False。
如果事件过程将该参数设为True,则该过程执行完之后将不进行默认的双击操作。
图表不产生该事件。
本示例关闭默认的双击操作。
PrivateSubWorkbook_SheetBeforeDoubleClick(ByValShAsObject,_
ByValTargetAsRange,ByValCancelAsBoolean)
Cancel=True
SheetBeforeRightClick事件
当用鼠标右键单击任一工作表时产生此事件,此事件先于默认的右键单击操作。
PrivateSubobject_SheetBeforeRightClick(ByValShAsObject,ByValTargetAsRange,ByValCancelAsBoolean)
当右键单击事件发生时最靠近鼠标指针的单元格。
如果该事件过程将本参数设为True,则该过程执行结束之后将不执行默认的右键单击操作。
本示例关闭默认的右键单击操作。
有关其他示例的详细信息。
请参阅BeforeRightClick事件示例。
PrivateSubWorkbook_SheetBeforeRightClick(ByValShAsObject,_
SheetCalculate事件
当对工作表重新计算或者在图表上重新绘制发生更改的数据点时产生此事件。
PrivateSubobject_SheetCalculate(ByValShAsObject)
工作表。
当计算工作簿中的任何工作表时,本示例对第一张工作表的A1:
A100区域进行排序。
PrivateSubWorkbook_SheetCalculate(ByValShAsObject)
WithWorksheets
(1)
.Range("
a100"
=.Range("
)
EndWith
SheetChange事件
当用户更改工作表中的单元格或者外部链接引起单元格的更改时,产生此事件。
PrivateSubobject_SheetChange(ByValShAsObject,ByValSourceAsRange)
Source
发生更改的区域。
当任一工作表发生更改时,运行本示例。
PrivateSubWorkbook_SheetChange(ByValShAsObject,_
ByValSourceAsRange)
'
runswhenasheetischanged
SheetDeactivate事件
当任一工作表由活动状态转为非活动状态时产生此事件。
PrivateSubobject_SheetDeactivate(ByValShAsObject)
本示例显示每一非活动工作表的名称。
PrivateSubWorkbook_SheetDeactivate(ByValShAsObject)
SheetFollowHyperlink事件
单击MicrosoftExcel中的任意超链接时发生此事件。
对于工作表级的事件,请参阅“帮助”主题中的FollowHyperlink事件。
PrivateSubWorkbook_SheetFollowHyperlink(ByValShAsObject,ByValTargetAsHyperlink)
Object类型,必需。
表示包含该超链接的Worksheet对象。
Hyperlink类型,必需。
一个Hyperlink对象,该对象代表超链接的目标位置。
本示例对当前工作簿中所有已单击过的超链接保留一个列表或历史记录,其中也包括含有这些超链接的工作表名称。
PrivateSubWorkbook_SheetFollowHyperlink(ByValShasObject,_
ByValTargetAsHyperlink)
UserForm1.ListBox1.AddItemSh.Name&
"
:
&
Target.Address
UserForm1.Show
SheetPivotTableUpdate事件
发生在数据透视表的工作表更新之后。
PrivateSubexpression_SheetPivotTableUpdate(ByValShAsObject,TargetAsPivotTable)
引用在类模块中带有事件声明的Applicaton类型或Workbook类型对象的变量。
选定的工作表。
本示例显示一则消息,说明数据透视表已经更新。
本示例假定您已在类模块中声明了带有事件的Application类型或Workbook类型的对象。
PrivateSubConnectionApp_SheetPivotTableUpdate(ByValshOneAsObject,TargetAsPivotTable)
TheSheetPivotTableconnectionhasbeenupdated."
SheetSelectionChange事件
任一工作表上的选定区域发生更改时,将产生本事件。
(但图表上的选定对象发生改变时,不会产生本事件。
PrivateSubobject_SheetSelectionChange(ByValShAsObject,ByValTargetAsExcel.Range)
新选定的区域所在的工作表。
新选定的区域。
本示例在状态栏上显示选定区域所在的工作表名称及选定区域的地址。
PrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,_
ByValTargetAsExcel.Range)
Application.StatusBar=Sh.Name&
WindowActivate事件
工作簿的窗口激活时,将产生本事件。
PrivateSubobject_WindowActivate(ByValWbAsExcel.Workbook,ByValWnAsExcel.Window)
Wb
仅用于Application对象。
显示在活动窗口中的工作簿。
Wn
激活的窗口。
本示例使工作簿窗口激活时最大化。
PrivateSubWorkbook_WindowActivate(ByValWnAsExcel.Window)
Wn.WindowState=xlMaximized
WindowDeactivate事件
工作簿的窗口变为非活动状态时,将产生本事件。
PrivateSubobject_WindowDeactivate(ByValWbAsExcel.Workbook,ByValWnAsExcel.Window)
非活动状态的窗口中的工作簿。
非活动状态的窗口。
本示例使工作簿窗口变为非活动状态时最小化。
PrivateSubWorkbook_WindowDeactivate(ByValWnAsExcel.Window)
Wn.WindowState=xlMinimized
WindowResize事件
工作簿窗口调整大小时,将产生本事件。
PrivateSubobject_WindowResize(ByValWbAsExcel.Workbook,ByValWnAsExcel.Window)
在调整大小的窗口中显示的工作簿。
调整大小的窗口。
工作簿窗口调整大小时,将运行本示例。
PrivateSubWorkbook_WindowResize(ByValWnAsExcel.Window)
Application.StatusBar=Wn.Caption&
resized"