如何在Excel中创建VBA应用级事件

应用程序级事件适用于整个应用程序（本参考中的Excel）。但是激活应用程序事件并不像创建工作簿或工作表事件那样容易。但我向您保证，它也不是那么棘手。在本文中，我们将通过几个简单的步骤来学习如何在Excel VBA中创建和使用应用程序事件。

要创建事件对象，我们需要使用类模块。

插入`link：/ modules-class-modules-vba-vba-class-modules-and-to-to-to-to-them [class module]`。根据需要命名。我将其命名为MyAppEvents。
使用关键字WithEvents定义应用程序类型的事件变量。

Private WithEvents myApp As Application

在左侧的下拉菜单中，选择课程。然后，在右上角的下拉列表中，选择“初始化”。

Private Sub Class_Initialize()

Set myApp = Application

End Sub

现在定义您要使用的事件。从左上角的下拉列表中，选择事件对象。您可以在右上角的下拉菜单中使用所有可用的事件处理过程。选择该事件触发时所需的条件并定义要执行的操作。图像：https：//www.office-skill.site/images/wp-content-uploads-2020-01-Capture-37.jpg [image，宽度= 540，高度= 208]

我使用SheetActivate事件。每当用户在任何打开的工作簿的工作表之间切换时，都会显示工作簿的名称和工作表用户已选择。

Private Sub myApp_SheetActivate(ByVal Sh As Object)

MsgBox ActiveWorkbook.Name & "-" & Sh.Name

End Sub

您可以在此处定义任意多个事件。

这些事件不会立即开始。这是第一步。

由于它是一个类模块，因此我们需要创建一个对象来激活事件。

现在，我们只需要从常规子例程开始这些事件。

现在我们有一个事件类。我们只需要创建该类的对象并对其进行初始化。一旦运行此子例程，事件类中的所有已定义事件将开始工作。

Private AppE As MyAppEvents

Private Sub StartEvents()

Set AppE = New MyAppEvents

End Sub

完成了。现在，只要打开包含工作簿的代码，只要您切换工作表，就会出现一个消息框，其中包含工作簿和工作表的名称。

很难吗？我不这么认为。在下面的评论部分中告诉我您的想法。

无效事件对象将EnableEvents设置为False

在单独的子例程中，将事件对象设置为Nothing

Private Sub StopEvents()

Set AppE = Nothing

End Sub

一旦运行此代码，事件将停止工作。您可以将其放在工作表上的按钮中以停止事件。现在，您将有两个按钮可以启动和停止这些特定事件。它只会停止由AppE对象创建的事件。

第二种方法是禁用事件。为了使所有事件均不可捕获，我们将Application类的EnableEvents属性设置为

Private Sub StopEvents()

Application.EnableEvents= False

End Sub

上面的代码将禁用所有事件。即使是默认的excel事件。在您再次启动它们之前，它们将不起作用。即使您运行StartEvents（）子例程（如上），该事件也不起作用。要使所有事件再次起作用，您将不得不再次将EnableEvents属性设置为True。

因此，如果您希望事件在每次启动事件时都起作用，请在子代码中添加以下代码行。

Private Sub StartEvents()

Application.EnableEvents = True

Set AppE = New MyAppEvents

End Sub

好的，这就是您如何在excel中使用应用程序事件的方式。让我知道这是否足以说明问题，并在下面的评论部分中帮助您了解Excel VBA中的应用程序级事件。如果您要添加一些内容，也要写下来。您可以在下面的评论部分中询问与本文或与其他任何excel VBA相关的主题的问题。

下载以下工作文件：

Excel VBA中的事件 | Excel中有七种类型的事件。每个事件涉及不同的范围。应用程序事件在工作簿级别处理。在工作表级别上的工作簿。范围级别的工作表事件。

`link：/ events-in-vba-the-worksheet-events-in-excel-vba [Excel VBA中的工作表事件] ** |当您希望在指定事件发生时运行宏时，工作表事件非常有用工作表。

在Microsoft Excel中使用VBA的工作簿事件 ||工作簿事件适用于整个工作簿。由于所有工作表都是工作簿的一部分，因此这些事件也适用于工作表。

在Microsoft Excel中使用VBA绘制对象事件 **图表是复杂的对象，您已附加了几个组件。为了制作图表事件，我们使用类模块。