0
我想使用userform/comboboxes过滤载体表。我收到“Sheets(”Carrier“)行上的错误。range.AutoFilter field:= 16,Criteria1:= ComboBoxA.value”。 “错误的参数数量或无效的财产分配”什么是我的错误论据或无效的财产分配?
我jhave删除了以前的问题,因为我在半夜添加了不良信息。
公用Sub CommandButton1_Click()
Dim strCriteria1 As String
Dim lastrow As Long, lastcol As Long
With Me
Select Case True
Case ComboBoxA.value <> "": strCriteria1 = ComboBoxA.value
'Case ComboBox1.value <> "": strCriteria1 = ComboBox1.value
'Case Else: Exit Sub
End Select
End With
With Sheets("Carrier")
'.ClearAllFilters
lastrow = .Cells(Rows.count, "E").End(xlUp).Row
lastcol = .Cells(1, Columns.count).End(xlToLeft).Column
.AutoFilterMode = False
If ComboBoxA.value <> "" Then
Sheets("Carrier").range.AutoFilter field:=16, Criteria1:=ComboBoxA.value
End If
End With
末次
表格(“载体”)。范围(“A1:S20000”)。自动过滤字段:= 16,Criteria1:= ComboBoxA.value –
我已经添加了该范围但现在它不停止运行,但它过滤如预期。 –