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 –
我已經添加了該範圍但現在它不停止運行,但它過濾如預期。 –