我的错误论点或无效 属性 赋值是什么？

Question

我正在尝试使用用户表单/组合框过滤运营商 sheet。我在“Sheets("Carrier").range.AutoFilter field:=16, Criteria1:=ComboBoxA.value”行收到错误。 "Wrong number of arguments or invalid property assignment"

我把之前的一个问题删掉了，因为我半夜补充了不好的信息

Public 子 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

结束子

Answer 1

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