Excel中各种VBA写法

《Excel中各种VBA写法》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、.Excel中各种VBA写法工作簿对象事件一览表当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。事件说明Activate激活工作薄时AddinInstall当工作簿作为加载宏安装时AddinUninstall工作簿作为加载宏卸载时BeforeClose关闭工作薄前Befor

2、ePrint打印工作薄(或其中任何内容)之前BeforeSave保存工作薄前Deactivate工作簿从活动状态转为非活动状态时NewSheet在工作簿中新建工作表时Open打开工作簿时PivotTableCloseConnection在数据透视表关闭与其数据源的连接之后PivotTableOpenConnection在数据透视表打开与其数据源的连接之后SheetActivate激活任何一张表时SheetBeforeDoubleClick双击任何工作表时..SheetBeforeRightClick

3、鼠标右键单击任一工作表时SheetCalculate工作表重新计算时SheetChange更改工作表中的单元格时SheetDeactivate任一工作表由活动状态转为非活动状态时SheetFollowHyperlink单击MicrosoftExcel中的任意超链接时SheetPivotTableUpdate数据透视表的工作表更新之后SheetSelectionChange工作簿中的数据透视表更新之后WindowActivate工作簿的窗口激活时WindowDeactivate工作簿的窗口变为非活动状

4、态时WindowResize工作簿窗口调整大小时工作表事件一览表工作表上的事件在默认情况下是可用的。若要查看工作表的事件过程，请用鼠标右键单击工作表标签，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。事件说明Activate激活工作表时Deactivate工作表从活动状态转为非活动状态时BeforeDoubleClick双击工作表前BeforeRightClick右键单击工作表时Calculate对工作表进行重新计算之后..Change更改工作表中的单元格，或外部链接引起单元格

5、时FollowHyperlink单击工作表上的任意超链接时PivotTableUpdate在工作簿中的数据透视表更新之后SelectionChange工作表上的选定区域发生改变时再贴一堆代码例为设置密码窗口(1)IfApplication.InputBox("请输入密码：")=1234Then[A1]=1'密码正确时执行Else:MsgBox"密码错误，即将退出！"'此行与第2行共同设置密码EndIf本示例为设置密码窗口(1)X=MsgBox("是否真的要结帐？",vbYesNo)IfX=vbYes

6、ThenClose本示例为设置工作表密码ActiveSheet.ProtectPassword:=641112'保护工作表并设置密码ActiveSheet.UnprotectPassword:=641112'撤消工作表保护并取消密码..'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。ForEachwInWorkbooksIfw.NameThisWorkbook.NameThenw.CloseSaveChanges:=TrueEndIfNextw'每次打开工作簿时，本示例都

7、最大化MicrosoftExcel窗口。Application.WindowState=xlMaximized'本示例显示活动工作表的名称。MsgBox"Thenameoftheactivesheetis"&ActiveSheet.Name'本示例保存当前活动工作簿的副本。ActiveWorkbook.SaveCopyAs"C:TEMPXXXX.XLS"'下述过程激活工作簿中的第四张工作表。Sheets(4).Activate..'下述过程激活工作簿中的第1张工作表。Worksheets(1).

8、Activate'本示例通过将Saved属性设为True来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改。ThisWorkbook.Saved=TrueThisWorkbook.Close'本示例对自动重新计算功能进行设置，使MicrosoftExcel不对第一张工作表自动进行重新计算。Worksheets(1).EnableCalculation=False'下述过程打开C盘上名为MyFolder的文件夹中的MyBook.xls工作簿。Workbooks.Op