Pandeng的专栏

Life is limited, but art is long

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

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

因为,新的知识会促进我们不断思考,带给我们意外的收获,形成积极的正反馈(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,发现每次新建时,窗口都会自动平铺。好玩!


阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/hpdlzu80100/article/details/80686455
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭