Excel 什么是我的错误参数或无效的属性赋值?

Excel 什么是我的错误参数或无效的属性赋值?,excel,combobox,userform,vba,Excel,Combobox,Userform,Vba,我正在尝试使用userform/ComboBox过滤载体页。我在SheetsCarrier.range.AutoFilter字段:=16,Criteria1:=ComboBoxA.value的行中收到一个错误。参数数目错误或属性赋值无效 当我在深夜添加坏信息时,我已经删除了先前的问题。 公共子命令按钮1\u单击 Dim strCriteria1 As String Dim lastrow As Long, lastcol As Long With Me Select Case True

我正在尝试使用userform/ComboBox过滤载体页。我在SheetsCarrier.range.AutoFilter字段:=16,Criteria1:=ComboBoxA.value的行中收到一个错误。参数数目错误或属性赋值无效

当我在深夜添加坏信息时,我已经删除了先前的问题。

公共子命令按钮1\u单击

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

End Sub

您尚未提供范围的参数。例如,SheetsCarrier.rangeA1.AutoFilter字段:=16,Criteria1:=ComboBoxA.value

SheetsCarrier.rangeA1:S20000.AutoFilter字段:=16,Criteria1:=ComboxA.value我已在中添加了该范围,但现在它不停止运行,但确实按预期进行了过滤。