如何正确设置列表属性? (错误381)

时间:2017-05-01 02:07:06

标签: vba excel-vba excel

我创建了一个列表框,可以根据文本框中的关键字进行过滤。如果我正常做的话,它可以工作。但是,当列表是依赖源时,它停止工作。 (列表框值类似于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的依赖列表。

image

$_FILES['image']

0 个答案:

没有答案