Excel 什么是我的错误参数或无效的属性赋值?
我正在尝试使用userform/ComboBox过滤载体页。我在SheetsCarrier.range.AutoFilter字段:=16,Criteria1:=ComboBoxA.value的行中收到一个错误。参数数目错误或属性赋值无效 当我在深夜添加坏信息时,我已经删除了先前的问题。 公共子命令按钮1\u单击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
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.valueSheetsCarrier.rangeA1:S20000.AutoFilter字段:=16,Criteria1:=ComboxA.value我已在中添加了该范围,但现在它不停止运行,但确实按预期进行了过滤。