[發問] 如何用儲存格的值來使用filter?

qwwe

1.     Dim stocknumber As Range
   
2.     Set stocknumber = Range("A2")
   
3.     ActiveSheet.Range("$A$1:$G$4").AutoFilter Field:=3, Criteria1:=stocknumber.value

複製代碼

Criteria1:=stocknumber.value好像有問題, 如何修改, thz a lot

kimbal

回復 1# qwwe

Range("A2")是不是想拿另一頁的A2?
我看你想FILTER的是C欄(FIELD:=3), 但條件卻是用A欄.
如果RANGE("A2")是在另一頁,可以這樣寫

1.       Dim stocknumber As Range
   
2.     Set stocknumber = worksheets("另一頁頁名").Range("A2")
   
3.     ActiveSheet.Range("$A$1:$G$4").AutoFilter Field:=3, Criteria1:=stocknumber.value

複製代碼

如果想FILTER的是A欄,可以這樣

1.       Dim stocknumber As Range
   
2.     Set stocknumber = Range("A2")
   
3.     ActiveSheet.Range("$A$1:$G$4").AutoFilter Field:=1, Criteria1:=stocknumber.value

複製代碼