一个事件子用于多个文本框，而不是多次声明？

Question

是否可以为同一工作簿中的多个文本框设置一个更改事件过程？ 例如，如果我在工作簿的第一张、第二张和第三张表中有一个名为“textbox3”的文本框，我希望下面的这个单一代码适用于所有这些（文本框），而不是必须在每个上声明它床单。现在，我必须在所有工作表上声明相同的程序，但我只想声明一次，因为它对所有工作表都执行相同的操作。

'my procedure
Sub testObj()
Dim i As Integer, obj As oleobject
Set ac = ThisWorkbook.ActiveSheet

For Each obj In ac.oleobjects
    If TypeName(obj.Object) = "TextBox" And obj.name = "TextBox3" Then
        i = i + 1
        ReDim Preserve TextArray(1 To i)
        Set TextArray(i).TextBoxEvents = obj
    End If
Next obj
Set obj = Nothing

结束子

'My class1
Public WithEvents TextBoxEvents As MSForms.TextBox
'Public WithEvents TextBoxEvents As OLEObject
 

Private Sub TextBoxEvents_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyTab Then
        TextBox12.Activate
    End If
End Sub

Answer 1

这是一个例子

名为clsTextBox的类模块：

Option Explicit

Public WithEvents TextBoxEvents As MSForms.TextBox

Private Sub TextBoxEvents_Change()
    Debug.Print TextBoxEvents.Name & ": " & TextBoxEvents.Text
End Sub

'Private Sub TextBoxEvents_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'    If KeyCode = vbKeyTab Then
'        TextBox12.Activate 'unclear what you're aiming for here?
'    End If
'End Sub

常规模块：

Dim ColTB As Collection

Sub testObj()
    Dim i As Integer, obj As OLEObject, ac As Worksheet
    
    Set ac = ThisWorkbook.ActiveSheet
    Set ColTB = New Collection
    For Each obj In ac.OLEObjects
        If TypeName(obj.Object) = "TextBox" Then
            ColTB.Add EventObj(obj.Object)
        End If
    Next obj
    Set obj = Nothing
End Sub

Function EventObj(obj As MSForms.TextBox) As clsTextBox
    Dim o As New clsTextBox
    Set o.TextBoxEvents = obj
    Set EventObj = o
End Function