类模块封装事件

peter199083

本人VBA刚入门。现想实现的功能是：对一个工作本(Workbook)中的所有四张工作簿(Worksheet)，每当任意一工作簿激活就实现改工作簿A1单元格内容填充成"F4"。


我计划使用类模块的功能，并在建立类模块，命名为"Module1"，并写入代码：

1. Private WithEvents m_Wst As Worksheet
   
2. 
   
3. Property Set wst(RHS As Worksheet)
   
4.     Set m_Wst = RHS
   
5. End Property
   
6. 
   
7. Property Get wst() As Worksheet
   
8.     Set wst = m_Wst
   
9. End Property
   
10. 
    
11. Private Sub m_Wst_Activate()
    
12.     m_Wst.Cells(1, 1).ClearContents
    
13.     m_Wst.Cells(1, 1).Value = "F4"
    
14. End Sub

复制代码

同时，在ThisWorkbook中写入代码，将类实例化，同时将四张工作簿赋值给实例：

1. Sub df()
   
2.     Dim n As Integer
   
3.     Dim arr(1 To 4) As New Module1
   
4.    
   
5.     Dim i As Integer
   
6.     For i = 1 To 4
   
7.         Set arr(i).wst = Me.Sheets(i)
   
8.     Next
   
9.    
   
10. End Sub

复制代码

但是运行过程df后，仍然未能成功实现计划功能。所以想请版友帮忙看一下具体是哪个环节发生了问题。提前感谢大家。

q3698995

刚入门就研究类模块，厉害。
直接用工作簿工作表激活事件来写吧，不用类模块。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

peter199083

q3698995 发表于 2023-3-1 15:09
刚入门就研究类模块，厉害。
直接用工作簿工作表激活事件来写吧，不用类模块。
Private Sub Workbook_She ...

谢谢您的建议。
由于可能后期考虑程序的拓展性，需要选择一些名称的工作簿的对激活事件进行操作，所以感觉还是用类模块+集合容器的方法比较可行。

micch

peter199083 发表于 2023-3-1 15:13
谢谢您的建议。
由于可能后期考虑程序的拓展性，需要选择一些名称的工作簿的对激活事件进行操作，所以感 ...

还是内置的好用，对选择的部分工作表启用事件，只需要在事件中加一层if判断就行。

当然，你就是非要用类写事件，也没问题，要用公共变量，写在sub内，不执行也没意义，执行完释放变量还是没意义

小fisher

Dim arr(1 To 4) As New Module1
这句代码声明在过程df中就成了局部变量，当过程df运行结束后，这个数组连同其包含的4个对象都会被销毁，自然也无法响应Activate事件了

ykcbf1100

workbooks是工作簿，worksheets是工作表。
概念不清。

表循环就可以了，哪用类啊。

小fisher

直接在Workbook_SheetActivate事件过程里写代码里就可以了

1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
2.     Sh.Cells(1, 1).Value = "F4"
   
3. End Sub

复制代码

peter199083

micch 发表于 2023-3-1 15:32
还是内置的好用，对选择的部分工作表启用事件，只需要在事件中加一层if判断就行。

当然，你就是非要用 ...

受您建议思路的启发，我做了两个调整并成功满足需求
1. 放弃数组(array)，使用集合(collection);
2. 将集合的作用域从过程中删除，并重新定义在ThisWorkbook中(globally scoped)。

在类模块Module1中写入如下代码:

1. Private WithEvents m_wst As Worksheet
   
2. 
   
3. Property Set Worksheet(o_wst As Worksheet)
   
4.     Set m_wst = o_wst
   
5. End Property
   
6. 
   
7. Private Sub m_wst_Activate()
   
8.     m_wst.Cells(1, 1).Value = "F4"
   
9. End Sub

复制代码

在ThisWorkbook中写入代码:

1. Dim col As Collection
   
2. Private Sub Workbook_Open()
   
3.     Call df
   
4. End Sub
   
5. 
   
6. Sub df()
   
7.     Dim clsWst As Module1
   
8.     Dim oWst As Worksheet
   
9.     Dim i As Integer
   
10.     Set col = New Collection
    
11.     For i = 1 To ThisWorkbook.Worksheets.Count
    
12.         Set oWst = ThisWorkbook.Worksheets(i)
    
13.         Set clsWst = New Module1
    
14.         Set clsWst.Worksheet = oWst
    
15.         col.Add clsWst
    
16.     Next
    
17. End Sub
    

复制代码

解决方案的核心是集合容器作用域的重新定义。