从文本框文本自动填充列表框 VBA

Question

我想要一个用户表单，当文本被输入 textbox1 时，与 sheet "Data" 中的文本匹配的可能值填充 listbox1 并且类似地 textbox2 和 listbox2。目前，当我输入 textbox1 时，它会用打开的 sheet 中 A 列的值填充 listbox2，而不是 sheet "Data".

Private Sub TextBox1_Change()
Dim i As Integer, ws As Worksheet
ListBox1.Visible = True

Set ws = Sheets("Data")
    For i = 2 To Sheets("Data").Range("D6000").End(xlUp).Row
        If UCase(Left(ws.Cells(i, 1), Len(TextBox1.Text))) = UCase(TextBox1.Text) Then
            ListBox1.AddItem Cells(i, 1)
            End If
            Next i
End Sub

Private Sub TextBox2_Change()
Dim i As Integer, ws As Worksheet
ListBox2.Visible = True
Set ws = Sheets("Data")
    For i = 2 To Sheets("Data").Range("B6000").End(xlUp).Row
        If UCase(Left(ws.Cells(i, 1), Len(TextBox2.Text))) = UCase(TextBox2.Text) Then
            ListBox2.AddItem Cells(i, 1)
            End If
            Next i
End Sub

编辑：我最终使用的是：

Private Sub TextBox1_Change()
Dim i As Long
Dim arrList As Variant

Me.ListBox1.Clear
If Sheet7.Range("D" & Sheet7.Rows.Count).End(xlUp).Row > 1 And Trim(Me.TextBox1.Value) <> vbNullString Then
    arrList = Sheet7.Range("D1:D" & Sheet7.Range("D" & Sheet7.Rows.Count).End(xlUp).Row).Value2
    For i = LBound(arrList) To UBound(arrList)
        If InStr(1, arrList(i, 1), Trim(Me.TextBox1.Value), vbTextCompare) Then
            Me.ListBox1.AddItem arrList(i, 1)
        End If
    Next i
End If
If Me.ListBox1.ListCount = 1 Then Me.ListBox1.Selected(0) = True


End Sub
Private Sub TextBox2_Change()

Dim i As Long
Dim arrLists As Variant

Me.ListBox2.Clear
If Sheet7.Range("B" & Sheet7.Rows.Count).End(xlUp).Row > 1 And Trim(Me.TextBox2.Value) <> vbNullString Then
    arrLists = Sheet7.Range("B1:B" & Sheet7.Range("B" & Sheet7.Rows.Count).End(xlUp).Row).Value2
    For i = LBound(arrLists) To UBound(arrLists)
        If InStr(1, arrLists(i, 1), Trim(Me.TextBox2.Value), vbTextCompare) Then
            Me.ListBox2.AddItem arrLists(i, 1)
        End If
    Next i
End If
If Me.ListBox2.ListCount = 1 Then Me.ListBox2.Selected(0) = True

End Sub

Answer 1

使用 ws.Cells(i, 1) 而不是 Cells(i, 1)。
另外，关于ListBox2的部分是否应该移到TextBox2_Change()？

从文本框文本自动填充列表框 VBA

Autofill listbox from textbox text VBA

excel

vba

userform