粘贴部分匹配内容后，能否无需Tab/Enter提交ComboBox选中项？

问题场景：VBA UserForm中的ComboBox下拉列表项格式为nnnnnn 文本内容（例如123456 Test），用户粘贴数字串（如123456）后，控件能匹配到对应项，但需按Tab/Enter才能提交选中项，进而启用「项目类型」控件，希望实现无需按键自动提交。

实现方法 #

利用ComboBox的Change事件，在内容更新时自动匹配并选中对应列表项，触发后续控件的启用逻辑。

代码示例 #

在UserForm的代码模块中添加以下代码（根据实际控件名称调整）：

Private Sub ComboBox1_Change()
    Dim i As Integer
    Dim inputContent As String
    
    inputContent = Trim(ComboBox1.Text)
    ' 遍历下拉列表查找匹配项
    For i = 0 To ComboBox1.ListCount - 1
        ' 匹配列表项的数字前缀部分（按空格分割取第一部分）
        If Split(ComboBox1.List(i), " ")(0) = inputContent Then
            ' 自动选中该项
            ComboBox1.ListIndex = i
            ' 直接启用「项目类型」控件（替换为你的控件名称）
            Me.cbo项目类型.Enabled = True
            Exit For
        End If
    Next i
End Sub

灵活调整说明 #

• 如果数字位数固定，也可以用Left函数提取前缀：

  ' 假设数字固定为6位
  If Left(ComboBox1.List(i), 6) = inputContent Then
      ComboBox1.ListIndex = i
      Me.cbo项目类型.Enabled = True
      Exit For
  End If
  

• 若「项目类型」控件的启用逻辑原本绑定在ComboBox1_AfterUpdate事件中，设置ListIndex后会自动触发该事件，无需额外写启用代码。

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