Excel VBA用户窗体：QR码扫描内容按ID自动分配至对应TextBox

核心思路 #

用**字典(Dictionary)**建立标识符（如P1000）与关联TextBox的映射，无需为每个标识符单独编写逻辑，后续新增或修改关联关系只需更新字典配置即可。

具体代码实现 #

1. 在UserForm的代码模块中编写以下代码：

' 声明全局字典，存储标识符与关联TextBox的映射
Private tbMapping As Object

Private Sub UserForm_Initialize()
    ' 初始化字典
    Set tbMapping = CreateObject("Scripting.Dictionary")
    
    ' 添加标识符与对应TextBox的映射，格式：tbMapping("标识符") = Array(TextBox1, TextBox2...)
    ' 示例配置，按需替换成你的30个标识符关联关系
    tbMapping("P1000") = Array(TextBox2, TextBox3)
    tbMapping("P1001") = Array(TextBox4, TextBox5, TextBox6)
    tbMapping("P1002") = Array(TextBox7)
    ' 继续添加剩余标识符的关联配置...
End Sub

Private Sub TextBox1_AfterUpdate()
    Dim qrContent As String
    Dim prefix As String
    Dim suffix As String
    Dim tbArray As Variant
    Dim i As Integer
    
    qrContent = Trim(TextBox1.Text)
    
    ' 验证QR码格式是否符合要求
    If Not qrContent Like "P#### ####" Then
        MsgBox "QR码格式错误，请扫描Pxxxx xxxx格式的二维码！", vbExclamation
        TextBox1.Text = ""
        Exit Sub
    End If
    
    ' 拆分前缀（带P的标识符）和后缀（最后4位数字）
    prefix = Left(qrContent, 5)
    suffix = Right(qrContent, 4)
    
    ' 检查标识符是否存在映射
    If tbMapping.Exists(prefix) Then
        tbArray = tbMapping(prefix)
        
        ' 遍历关联TextBox，找到第一个空框填入内容
        For i = LBound(tbArray) To UBound(tbArray)
            If tbArray(i).Text = "" Then
                tbArray(i).Text = suffix
                Exit For
            End If
            
            ' 所有关联框都填满时提示
            If i = UBound(tbArray) Then
                MsgBox prefix & "对应的输入框已全部填满！", vbExclamation
            End If
        Next i
    Else
        MsgBox "未找到与" & prefix & "关联的输入框，请检查配置！", vbExclamation
    End If
    
    ' 清空TextBox1，准备下一次扫描
    TextBox1.Text = ""
End Sub

关键说明 #

• 字典配置：在UserForm_Initialize中完成所有标识符与TextBox的关联配置，后续维护只需要修改这部分代码，逻辑部分无需改动。
• 格式校验：用Like运算符快速验证QR码格式，避免无效输入干扰流程。
• 自动分配逻辑：通过字典定位关联TextBox数组，遍历找到第一个空框填入内容，实现自动适配已有内容的填充位置。
• 错误提示：针对格式错误、未配置标识符、输入框已满三种场景给出明确提示，方便操作排查。

字典启用注意事项 #

如果运行时提示"对象未找到"，需手动启用引用：

1. 打开VBA编辑器（Alt+F11）
2. 点击菜单工具→引用
3. 勾选Microsoft Scripting Runtime，确定即可。

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