vba中工作簿事件，工作表事件，EnableEvents 属性

已于 2023-04-13 11:17:08 修改
阅读量1.7k 收藏 16
点赞数 2
文章标签： vba
于 2022-02-28 16:15:30 首次发布
原文链接：http://www.360doc.com/content/20/0407/11/51100410_904379652.shtml
版权

各种事件过程代码的执行顺序：

先出发工作表，再工作簿，最后应用程序

应用程序事件注释
NewWorkbook当新建一个工作簿时发生此事件
SheetActivate当激活任何工作表时发生此事件
SheetBeforeDoubleClick在双击任何工作表前发生此事件
SheetBeforeRightClick右键单击任何工作表前发生此事件
SheetCalculate在重新计算工作表时发生此事件
SheetChange更改任何工作表的单元格时发生此事件
SheetDeactivate当工作表失去焦点时发生此事件（离开工作表时）。 
SheetFollowHyperlink在单击工作簿中的任何超链接时发生。 
SheetPivotTableUpdate在更新数据透视表的工作表后发生。
SheetSelectionChange所选内容在任何工作表上更改时发生。
WindowActivate在激活任何工作簿窗口时发生。 
WindowDeactivate工作簿的窗口变为非活动状态时，将产生本事件。
WindowResize改变工作簿窗口大小时发生
WorkbookActivate当激活任何工作簿时发生此事件
WorkbookAddinInstall工作簿为加载宏安装时发生此事件
WorkbookAddinUninstall当任一工作簿作为卸载宏时发生
WorkbookAfterXmlEmport在保存或导出工作簿中的XML数据之后发生此事件
WorkbookAfterXmlImport当刷新现有的XML数据链接或新的XML数据被导入任一打开的Excel工作簿之后时发生
WorkbookBeforeClose关闭任何工作簿前发生此事件
WorkbookBeforePrint在打印工作簿前发生此事件
WorkbookBeforeSave在保存任何工作簿前发生引事件
WorkbookBeforeXmlExport保存或导出XML数据前发生的事件
WorkbookBeforeXmlImport当刷新现有的XML数据链接或新的XML数据被导入任一打开的Excel工作簿之前时发生
WorkbookDeactivate当打开的工作簿转为非活动状态时发生此事件
WorkbookNewSheet 在任何打开的工作簿中新建工作表时发生此事件
WorkbookOpen当打开一个工作簿时发生此事件
WorkbookPivotTableCloseCloseConnection在数据透视表的链接关闭之后发生此事件
WorkbookPivotTableOpenCloseConnection在数据透视表的链接打开之后发生此事件
WorkbookRowsetCompletd如果用户在OLAP数据透视表上深化记录集或调用行集操作，则会发生WorkbookRowsetComplete事件
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当工作表上选定区域发生改变时发生此事件

扩展：Application.EnableEvents 属性
'Application.EnableEvents = True/FALSE
'如果对指定对象启用事件，则该属性值为 True。Boolean 类型，可读写。
'作用：临时关闭，防止死循环

案例：

 Private Sub Worksheet_Activate() '激活工作表触发的程序
a = InputBox("请输入密码")
If a = 123 Then
    Cells.Font.Color = RGB(0, 0, 0)
    Application.EnableEvents = False 
Else
    Sheet3.Activate
End If
End Sub

Private Sub Workbook_Open()
Application.EnableEvents = True '让事件生效
Sheet2.Cells.Font.Color = RGB(255, 255, 255)
Sheet3.Activate
End Sub

 

 object 是对象的意思

番外补充：

 

 

 

pgymeitianjinbu
关注
  • 2
    点赞
  • 踩
  • 16
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
Java绘制不规则几何图形.rar
07-10
Java绘制不规则几何图形，比如划曲线，写字，线条随意画，如截图所示，甚至可以写出文字： 　　不规则图形的绘制代码： 　　public class IrregularShapeDemo extends JFrame { 　　 GeneralPath gPath= new GeneralPath(); //GeneralPath对象实例 　　//构造函数 　　public IrregularShapeDemo() { 　　 super("不规则图形的绘制"); //调用父类构造函数 　　 enableEvents(AWTEvent.MOUSE_EVENT_MASK|AWTEvent.MOUSE_MOTION_EVENT_MASK); //允许事件 　　 setSize(300, 200); //设置窗口尺寸 　　 setVisible(true); //设置窗口可视 　　 setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE); //关闭窗口时退出程序 　　 } 　　 public void paint(Graphics g) { //重载窗口组件的paint()方法 　　 Graphics2D g2D = (Graphics2D)g; //获取图形环境 　　 g2D.draw(gPath); //绘制路径 　　 } 　　 public static void main(String[] args) { 　　 new IrregularShapeDemo(); 　　 } 　　 protected void processMouseEvent(MouseEvent e) { //鼠标事件处理 　　 if(e.getID() == MouseEvent.MOUSE_PRESSED) { 　　 aPoint = e.getPoint(); //得到当前鼠标点 　　 gPath = new GeneralPath(); //重新实例化GeneralPath对象 　　 gPath.moveTo(aPoint.x,aPoint.y); //设置路径点 　　 } 　　 } 　　 protected void processMouseMotionEvent(MouseEvent e) { //鼠标运动事件处理 　　 if(e.getID() == MouseEvent.MOUSE_DRAGGED) { 　　 aPoint = e.getPoint(); //得到当前鼠标点 　　 gPath.lineTo(aPoint.x, aPoint.y); //设置路径 　　 gPath.moveTo(aPoint.x, aPoint.y); 　　 repaint(); //重绘组件 　　 } 　　 } 　　}
EXCEL vba 循环复制 粘贴 另存为 新的文件VBA代码 分别设置单元格内容
12-02
EXCEL vba 循环复制 粘贴 另存为 新的文件VBA代码 分别设置单元格内容 With Workbooks(ThisWorkbook.Name) Application.EnableEvents = False Application.ScreenUpdating = False Application.DisplayAlerts = ...
Qt入门学习之Qt元对象特性
cainiaoxiakexing的博客
03-21 834
Qt 是一个用标准 C++ 编写的跨平台开发类库，它对标准 C++ 进行了扩展，引入了元对象系统、信号与槽、属性等特性，使应用程序的开发变得更高效。 Qt的元对象编译器(MOC)是一个预处理器，在源程序被编译前先将Qt特性的程序转换为标准C++兼容的形式，然后再由标准C++编译器进行编译。这就是为什么使用信号与槽机制的类里必须添加一个Q_OBJECT宏的原因，只有添加了这个宏，moc才能对类里的信...
VBA 常用处理
baidu_37289241的博客
09-17 567
1.禁止连续触发事件 'EXCEL中有多个单元格有change事件，只有当前单元格发生改变时触发当前单元格对应的处理 Private Sub Worksheet_Change(ByVal Target As Range) '禁止连续触发事件 Application.EnableEvents = False '======主要处理略 '允许连续触发事件 Application.EnableEvents = True End Sub 2.获取当前单元格的位置：Target.address 3.获取当前单元格
VBA 工作簿workbook常用的事件，比如聚光灯，禁止保存，禁止关闭EXCEL，禁止打印，监测内容变化等等
奔跑的犀牛先生
01-29 4998
1 工作簿workbook 常用的事件 1.1 常用事件 workbook_open() workbook_WindowActivate() workbook_Windowresize() workbook_sheetchange() workbook_sheetselectionchange() workbook_beforesave() workbook_befor...
Excel VBA开发必须了解的与工作簿Workbook及工作表Worksheet相关的5个对象详解（附实用例程）
weixin_50233916的博客
07-16 4716
每一个使用过Excel的用户都了解工作簿和工作表这两个概念。工作簿，简单地说就是与一个excel文件对应，一个打开的excel文件就是一个工作簿。而工作表是工作簿的一部分，是一个独立的数据区域。一个工作簿中可以有很多工作表，在较老的office版本中，一个工作簿最多可允许建立255个工作表，但是目前最新的Office，理论上支持在一个工作簿中建立无限个工作表，只受电脑的硬件资源的限制。 Excel VBA开发中，工作簿集合WorkBooks ，工作簿Workbook，图与表集合Sheets
Application.EnableEvents =false(true)的理解
游戏人间的专栏
01-17 1万+
Private Sub Worksheet_Change(ByVal Target As Range)Dim iRow As Integer iRow = Target.Row Application.EnableEvents = False Cells(iRow, 3) = Cells(iRow, 3) + Cells(iRow, 2) Application.EnableE
VBA，Application对象的常用属性和方法
热门推荐
奔跑的犀牛先生
02-01 1万+
1 Application 对象的常见属性 1.0对象管理器里可以查看application的所有属性，方法 Dim i As cell 错误，没有这种类型定义 只能 dim i as range dim sh as sheet dim wb as workbook 1.1 Application的常见属性 Application.screenupdating = ...
Excel中VBA编程学习笔记（六）--Application对象
数据之道
11-25 6494
1、基本属性设置 Sub main()    Application.ScreenUpdating = False '禁止屏幕更新    Application.ScreenUpdating = True '允许屏幕更新    Application.DisplayAlerts = False '禁止出现提示对话框    Application.DisplayAlerts = True ...
转：经典Excel VBA代码
weixin_33790053的博客
08-06 958
转：经典Excel VBA代码 VBA基础在大家的关注声中即将告一段落了，有许多经典的VBA操作我们只是作了简要的介绍，想要熟练地使用VBA还需要大家慢慢地去消化和吸收，然后在实践中总结和提高。最后我们收集了常见的VBA代码以飨广大的读者，希望对大家有所启示。Application（Excel程序）篇Application.EnableEven...
vba EnableEvents 状态设置查看
nbspzs的专栏
06-27 230
【代码】vba EnableEvents 状态设置查看。
菜鸟谈VBA最最基础入门
09-15
24、新建工作表 25、认识数组（一） 26、Worksheet的Change事件(带作业） 27、关于Application.EnableEvents属性（有实例动画） Application.EnableEvents补充说明 28、关于Worksheet的SelectionChange...
VBA_事件01
岩
05-25 250
'选区发生变化就调用某个方法--事件 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call biaoshi End Sub 'with的简单使用 Sub withyuju() With Sheet2 .Range("A1") = 5 .Range("A2") = 6 .Range("A3") = 7 End With End Sub '鼠标点击某行标识颜色 Sub biaoshi() ...
VBA学习笔记三（VBA事件）
Sampson的博客
07-28 1603
VBA学习笔记三VBA事件执行宏的方法工作表事件事件操作示例根据表格中的内容自动筛选数据参考 VBA事件 执行宏的方法 执行宏的方法： 1、在写好的代码处点击一下，然后点击执行 2、点击宏，选中代码名后执行 3、将宏与表格中的按钮绑定，点击按钮便执行宏 4、双击选中待操作的表格，在上面选中worksheet，此时后面的事件发生时，执行下面代码，截图如下 工作表事件 事件 说明 Activate 激活工作表时 Deactivete 工作表从活动状态转化为非活动状态时 BeforeDo
Excel-VBA 快速上手（四、Excel 程序事件、工作簿事件、工作表事件）
Ares5k
07-08 5244
vba Excel 程序事件、工作簿事件、工作表事件
对enableEvents类的应用
yayax的专栏
04-02 1728
实现代码如下： MyButton.java文件代码： import java.awt.*; import java.awt.event.*; public class MyButton extends Button { private MyButton friend = null; public MyButton(String title) { // T
VBA Excel宏常用操作
sfli_g的专栏
08-10 1980
Application.EnableEvents= True/ False ’启用/禁用所有事件   Application.DisplayAlerts=True/False ’显示/关闭警告框提示框   Application.ScreenUpdating= True/
VBA事件：【工作簿事件】 【工作表事件】
俊杰の博客
12-24 1807
VBA事件：工作簿事件-工作表事件
2023年美赛特等奖论文-F-2305794-解密.pdf
最新发布
05-06
大学生，数学建模，美国大学生数学建模竞赛，MCM/ICM，2023年美赛特等奖O奖论文
VBA合并当前文件夹下所有工作簿的所有工作表，但是当前工作簿的所有工作表里有合并单元格怎么合并到一张表上？
07-14
您可以使用以下VBA代码来合并当前文件夹下所有工作簿的所有工作表，并处理合并单元格的情况： ```vba Sub 合并工作簿工作表() Dim MyPath As String Dim MyFile As String Dim WB As Workbook Dim WS As Worksheet Dim DestWS As Worksheet Dim LastRow As Long '设置合并后的目标工作表 Set DestWS = ThisWorkbook.Sheets.Add(After:= _ ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) DestWS.Name = "合并结果" '获取当前文件夹路径 MyPath = ThisWorkbook.Path & "\" '关闭屏幕更新和事件处理，加快处理速度 Application.ScreenUpdating = False Application.EnableEvents = False '循环遍历当前文件夹下的所有工作簿 MyFile = Dir(MyPath & "*.xlsx") Do While MyFile <> "" '排除当前工作簿 If MyFile <> ThisWorkbook.Name Then '打开工作簿，合并工作表到目标工作表 Set WB = Workbooks.Open(MyPath & MyFile) For Each WS In WB.Sheets '复制工作表到目标工作表的下一行 WS.Copy After:=DestWS '合并单元格处理 With DestWS.Cells(DestWS.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) LastRow = .Row + .MergeArea.Rows.Count - 1 If .MergeCells Then .MergeArea.Copy .PasteSpecial xlPasteAll Application.CutCopyMode = False DestWS.Cells(LastRow + 1, 1).ClearFormats End If End With Next WS WB.Close False '关闭工作簿，不保存更改 End If MyFile = Dir Loop '恢复屏幕更新和事件处理，并选中合并结果工作表 Application.ScreenUpdating = True Application.EnableEvents = True DestWS.Select End Sub ``` 请注意，此代码会在当前工作簿中创建一个名为"合并结果"的新工作表，并将所有工作簿的所有工作表合并到该工作表中。在合并过程中，它会处理合并单元格的情况，将其展开为多个单元格。 您只需将此代码复制到VBA编辑器中的模块中，并运行即可实现合并操作。在运行之前，请确保您保存了当前工作簿，并将其他要合并的工作簿放置在同一文件夹中。 希望对您有帮助！如有其他问题，请随时提问。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值