我创建了一个列表框,可以根据文本框中的关键字进行过滤。如果我正常做的话,它可以工作。但是,当列表是依赖源时,它停止工作。 (列表框值类似于F1的listbox("lbxCustomers")
,我正在尝试过滤该INDIRECT列表)
我有3个列表,如图像(A,B,D)所示。 D是A的列表,没有重复。 Userform2中的textbox("tbxFind")
根据在单元格F2中选择的单词使用依赖行数源。 [它一直有效]
列表框中的值将根据.List = vaCustNames
中的关键字进行过滤。我在这行“sheet1.range(...)
”收到错误。我尝试将其更改为正常范围(Private Sub UserForm_Initialize()
Me.lbxCustomers.RowSource = Range("F2").Value
End Sub
Private Sub tbxFind_Change()
Dim i As Long
Dim sCrit As String
Dim vaCustNames As Variant
vaCustNames = Range("F2").Value
Debug.Print Range("F2").Value
sCrit = "*" & UCase(Me.tbxFind.Text) & "*"
With Me.lbxCustomers
.RowSource = ""
'Start with a fresh list
.List = vaCustNames
'.List = Sheet1.Range("B2:B13").Value 'tested with range and worked
For i = .ListCount - 1 To 0 Step -1
'Remove the line if it doesn’t match
If Not UCase(.List(i)) Like sCrit Then
.RemoveItem i
End If
Next i
End With
End Sub
)并且它可以工作,但列表不是F1的依赖列表。
$_FILES['image']