在 Excel 中创建应用程序级事件处理程序

lss001 · 发表于 2024-9-21 08:03

本帖最后由 lss001 于 2024-9-21 08:04 编辑

类模块Class1
Public WithEvents appevent As Application
Private Sub appevent_WindowResize(ByVal Wb As Excel.Workbook, _
         ByVal Wn As Excel.Window)
MsgBox "you resized a window"
End Sub

模块1
Dim myobject As New Class1
Sub Test()'打开事件
   Set myobject.appevent = Application
End Sub

Sub test()' 关闭事件
   Set myobject.appevent = Nothing
End Sub

桑特容易额 · 发表于 2024-9-21 10:52

使用场景呢

lss001 · 发表于 2024-9-21 11:00

本帖最后由 lss001 于 2024-9-22 09:29 编辑

用户提醒，加载项等

darklesson · 发表于 2024-9-21 11:02

桑特容易额发表于 2024-9-21 10:52
使用场景呢

做加载宏的时候非常有用的。

		自动登录	找回密码
密码			免费注册