多文本框Excel VBA的相同代码

Question

我的Userform中有大约100个文本框，我希望在事件更改后将其中10个文本框调用为sub，我试图避免为每个框创建代码，如：

Private Sub ItemInput1_1_Change()
OriItemCode = ItemInput1_1.Value
Call IndexMatchItem
ItemInput1_5.Value = MatchItemCodeOutput
End Sub

Private Sub ItemInput2_1_Change()
OriItemCode = ItemInput2_1.Value
Call IndexMatchItem
ItemInput2_5.Value = MatchItemCodeOutput
End Sub

Private Sub ItemInput3_1_Change()
OriItemCode = ItemInput3_1.Value
Call IndexMatchItem
ItemInput3_5.Value = MatchItemCodeOutput
End Sub

所以我最后有一个愚蠢的想法，并为特定的盒事件更改提出了下面几行代码，但它不起作用。

我做了一些研究，但不幸的是，这些教程仅适用于我无法在excel中应用它们的所有文本框。

如果任何VBA专业人员可以帮我改变下面的代码以使其有效，那将是非常合适的，所以我不必为每个文本框创建事件更改。

由于

Private Sub Box2Box3Box4Changeevent()

Dim i
Dim j

For i = 1 To 10

If Me.Controls("ItemInput" & i & "_" & 1 & "_" & "Afterupdate") Then
Call Box2ChangeBox4
End If
Next i


End Sub