使用變量Criteria VBA的自動過濾器

Question

我試圖使用變量將自動過濾器放在工作表上，但它無法正常工作。

  Dim Criteria As Object
  i = 1
  Set Criteria = ActiveSheet.Cells(i, 1)
  MsgBox (Criteria.Value) ' this returns BC01.03

但是，當我嘗試過濾“Criteria.Value”時沒有返回任何內容。

Selection.AutoFilter
ActiveSheet.Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=" & Criteria.Value & "

請指教。

Answer 1

擺脫Criteria1參數周圍的引號：

ActiveSheet.Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=Criteria.Value

另外，只是為什么要在Range對象上使用后期綁定？ 我確實對需要另一個庫/引用的對象使用后期綁定，但由於Range是Excel對象庫的一部分，我會使用早期綁定。 我會將Dim Criteria as Range但這只是我的偏好。