如何在VBA中根据textbox输入值动态填充combobox的下拉可选数据

前置假设 #

• 数据源存放于Sheet1工作表，A列为Party Code，B列为Party Name，表头在第1行，有效数据从第2行开始
• 表单中文本框控件名称为TextBox1，Party Name对应的组合框控件名称为ComboBox1，可根据你的实际命名修改代码中对应参数

实现步骤 #

1. 打开你的Excel文件，按Alt + F11调出VBA编辑器，在左侧工程窗口找到你使用的表单，双击进入表单的代码编辑页面
2. 粘贴如下代码到编辑区：

Private Sub TextBox1_Change()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim inputCode As String
    
    ' 初始化对象和变量
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的数据源工作表名
    inputCode = Trim(TextBox1.Value)
    ComboBox1.Clear ' 清空组合框现有选项
    
    ' 处理文本框为空的情况，若需要空值时展示所有选项可调整此处逻辑
    If inputCode = "" Then
        Exit Sub
    End If
    
    ' 获取数据源最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历数据源匹配编码
    For i = 2 To lastRow
        ' 此处为精确匹配，如需模糊匹配可改为：If CStr(ws.Cells(i, "A").Value) Like "*" & inputCode & "*" Then
        If CStr(ws.Cells(i, "A").Value) = inputCode Then
            ComboBox1.AddItem ws.Cells(i, "B").Value
        End If
    Next i
End Sub

3. 按F5运行表单测试即可：在文本框输入100时，组合框会自动筛选出所有Party Code为100对应的名称选项。

优化提示 #

• 如果你的数据量超过1000行，建议把数据源读取到数组中遍历，减少单元格读写操作提升运行效率
• 如果你使用的是工作表内嵌的ActiveX控件而非用户窗体（UserForm），只需把上述代码粘贴到对应工作表的代码模块即可，逻辑完全一致。

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