调试经验——VBA类模块初体验（First hands-on of VBA Class Module）

本文通过实例演示了如何使用VBA创建类模块来处理Excel事件，如新建工作簿和关闭工作簿时自动调整窗口布局。这不仅展示了VBA类模块的基本用法，还介绍了如何在实际项目中应用这些技术。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

写技术博客的一个好处就是能够督促我们不断学习新的知识。

因为，新的知识会促进我们不断思考，带给我们意外的收获，形成积极的正反馈（learning by doing, grow everyday!）

比如，在调试下面的这段示例代码时，我第一次有机会创建一个类模块（Class Module）。

Object Name	Object/Attribute/ Method/Event	对象/属性/ 方法/事件	Description
Application	NewWorkbook	新建一个工作簿事件	当新建一个工作簿时产生此事件当新建一个工作簿时，本示例对所有打开的窗口进行排列。 Private Sub App_NewWorkbook(ByVal Wb As Workbook) Application.Windows.Arrange xlArrangeStyleTiled End Sub

步骤：

1. 在VBE中新建一个“类模块”，重命名为“EventClassModule”

2. 将以下代码复制到该类模块中：

Public WithEvents App As Application
 
Dim X As New EventClassModule
 
Sub InitializeApp()
Set X.App = Application
End Sub
 
Private Sub App_NewWorkbook(ByVal Wb As Workbook)
Application.Windows.Arrange xlArrangeStyleTiled
End Sub

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
Application.Windows.Arrange xlArrangeStyleTiled
End Sub

3. 在普通模块（Module）中，加入以下代码：

Public NewWkb As New EventClassModule

Sub InitApp()
  NewWkb.InitializeApp
End Sub

4. 运行第三步的InitApp子程序（如果提示不能运行，可尝试重启Excel（没错，有些运行时错误仅需重启即可解决））

5. 试着新建Excel Workbook，发现每次新建时，窗口都会自动平铺。好玩！