VBA用户窗体：初始化生成的Collection无法传递至文本框Change子程序

为什么无法传递Collection参数？ #

VBA中控件的事件处理过程（比如文本框的Change事件）的参数列表是系统固定定义的，不允许开发者自定义添加参数。你给Barcode_Scan_Change添加ByRef Part_Numbers As Collection的做法违反了事件过程的定义规则，所以程序无法识别这个参数。

最优解决方案：使用模块级变量 #

要让Barcode_Scan_Change能复用初始化时生成的Part_Numbers集合，同时避免重复生成，最直接的方法是把Part_Numbers声明为用户窗体模块的级变量——这样它的作用域覆盖整个窗体模块，初始化时赋值后，所有子程序都能直接调用，无需传递参数。

修改后的完整代码 #

在用户窗体模块的最顶部（所有子程序之外）声明变量，然后调整两个子程序的代码：

' 声明为用户窗体模块级变量，作用域覆盖整个窗体模块
Dim Part_Numbers As Collection

Sub Barcode_Scan_Change()
' 条码扫描文本框内容变化时触发，校验输入值
    Dim n As Integer
    Dim isFound As Boolean
    
    ' 空值直接退出
    If Barcode_Scan.Value = "" Then
        Exit Sub
    End If
    
    ' 遍历集合查找匹配的条码
    isFound = False
    For n = 1 To Part_Numbers.Count
        If Part_Numbers.Item(n) = Barcode_Scan.Value Then
            isFound = True
            Exit For
        End If
    Next n
    
    ' 根据查找结果给出提示
    If isFound Then
        MsgBox "Found it!"
        ' 这里可以添加加载零件信息的逻辑
    Else
        MsgBox "Part number was not found in the parts list. Please rescan and/or check part packaging for correct part number or barcode.", _
            vbOKOnly, "Incorrect Scan"
    End If
End Sub

Sub UserForm_Initialize()
' 窗体初始化时生成零件编号集合
    Dim i As Integer
    Dim lastRow As Long
    
    ' 初始化集合对象（必须先New，否则会报错）
    Set Part_Numbers = New Collection
    
    ' 获取零件列表的最后一行
    lastRow = Sheets("Parts Status").Range("A" & Rows.Count).End(xlUp).Row
    
    ' 将零件编号添加到集合
    For i = 2 To lastRow
        Part_Numbers.Add Sheets("Parts Status").Cells(i, 1).Value
    Next i
End Sub

额外修正说明 #

1. 原代码中UserForm_Initialize里没有Set Part_Numbers = New Collection，直接调用Add会触发对象未初始化的错误，已经补上。
2. 原Barcode_Scan_Change的循环逻辑有问题：第一次遍历不匹配就直接弹出错误并退出，导致只会检查集合的第一个元素。修改后先完成全集合遍历，再判断是否找到匹配项。
3. 移除了测试用的冗余弹窗代码，保留核心校验逻辑。

内容的提问来源于stack exchange，提问作者Alec Schultz