如何从excel vba表单中的文本框文本填充组合框值

Question

我在 Excel 中的 VBA 表单中有问题，我正在尝试使用 VLOOKUP 从我在文本框中键入的任何内容中过滤组合框的值。我如何做到这一点？

我的代码是：

Private Sub btnTemplateSearch_Click()
Dim filterInfo As Range
Set filterInfo = Worksheets("InfoDump").Range("E2:F46")
txtTemplateFilter.Text = filterInfo.Columns(2).Value

Me.cboTemplateType.List = Application.WorksheetFunction.VLookup(Me.txtTemplateFilter.Text, filterInfo,2,True)

Answer 1

以下是可用于过滤ComboBox 条目列表的代码块示例。我决定在模块级别 Dim 一个数组变量 ListForComboBox 以便模块中的所有程序都可以访问它。它通过调用LoadListForComboboxArray 在表单的初始化事件中填充。您可以更改此过程以更新输入值的范围或任何其他更改。组合框的列表属性设置为此数组。

请注意：您可能需要考虑调整以下性能以提高性能。我包含了一个文本框，在更改事件中，我根据文本框值将全局数组设置为原始数组的过滤版本。这意味着代码将在您每次输入字母时过滤数组（因此，如果您输入“ABC”，它将过滤三次，每次创建一个新数组）。您可能希望将该函数分配给不同的事件（可能是文本框退出），以便代码仅在您离开文本框时触发，并且仅触发一次。

如果您在修改代码时遇到问题，请告诉我：

Dim ListForCombobox() As String

Private Sub TextBox1_Change()
    Me.ComboBox1.List = Filter(ListForCombobox, Me.TextBox1.Value)
    Debug.Print "CALLED"
End Sub

Private Sub UserForm_Initialize()
    LoadListForComboboxArray
    
    Me.ComboBox1.List = ListForCombobox
End Sub

Private Sub LoadListForComboboxArray()
    Dim rng As Range
    
    Set rng = Sheets("Sheet1").Range("A1:A11")
    
    ReDim ListForCombobox(1 To rng.Rows.Count)
    
    For i = 1 To rng.Rows.Count
        ListForCombobox(i) = rng(i).Value
    Next i
    
    Debug.Print ListForCombobox(1)
End Sub