2017-06-06 26 views
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 

末次

回答

1

您没有提供参数给Range。例如。 Sheets("Carrier").range("A1").AutoFilter field:=16, Criteria1:=ComboBoxA.value

+0

表格(“载体”)。范围(“A1:S20000”)。自动过滤字段:= 16,Criteria1:= ComboBoxA.value –

+0

我已经添加了该范围但现在它不停止运行,但它过滤如预期。 –

相关问题