Excel中各种VBA写法
工作簿对象事件一览表
当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。
事件说明
Activate激活工作薄时
AddinInstall当工作簿作为加载宏安装时
AddinUninstall工作簿作为加载宏卸载时
BeforeClose关闭工作薄前
BeforePrint打印工作薄(或其中任何内容)之前
BeforeSave保存工作薄前
Deactivate工作簿从活动状态转为非活动状态时
NewSheet在工作簿中新建工作表时
Open打开工作簿时
PivotTableCloseConnection在数据透视表关闭与其数据源的连接之后
PivotTableOpenConnection在数据透视表打开与其数据源的连接之后
SheetActivate激活任何一张表时
SheetBeforeDoubleClick双击任何工作表时
SheetBeforeRightClick鼠标右键单击任一工作表时
SheetCalculate工作表重新计算时
SheetChange更改工作表中的单元格时
SheetDeactivate任一工作表由活动状态转为非活动状态时
SheetFollowHyperlink单击 Microsoft Excel 中的任意超链接时
SheetPivotTableUpdate数据透视表的工作表更新之后
SheetSelectionChange工作簿中的数据透视表更新之后
WindowActivate工作簿的窗口激活时
WindowDeactivate工作簿的窗口变为非活动状态时
WindowResize工作簿窗口调整大小时
工作表事件一览表
工作表上的事件在默认情况下是可用的。若要查看工作表的事件过程，请用鼠标右键单击工作表标签，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。
事件说明
Activate 激活工作表时
Deactivate工作表从活动状态转为非活动状态时
BeforeDoubleClick 双击工作表前
BeforeRightClick 右键单击工作表时
Calculate 对工作表进行重新计算之后
Change 更改工作表中的单元格，或外部链接引起单元格时
FollowHyperlink 单击工作表上的任意超链接时
PivotTableUpdate 在工作簿中的数据透视表更新之后
SelectionChange工作表上的选定区域发生改变时
再贴一堆代码
例为设置密码窗口 (1) 
If Application.InputBox("请输入密码：") = 1234 Then 
[A1] = 1 '密码正确时执行 
vba排序函数sort用法Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码 
End If 
本示例为设置密码窗口 (1) 
X = MsgBox("是否真的要结帐？", vbYesNo) 
If X = vbYes Then 
Close 
本示例为设置工作表密码 
ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码 
ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码 
'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容 
。 
For Each w In Workbooks 
If w.Name ThisWorkbook.Name Then 
w.Close SaveChanges:=True 
End If 
Next w 
'每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。 
Application.WindowState = xlMaximized 
'本示例显示活动工作表的名称。 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。