標題: [發問] 如何用儲存格的值來使用filter? [打印本頁]

---

作者: qwwe    時間: 2013-6-12 16:54     標題: 如何用儲存格的值來使用filter?

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    時間: 2013-6-13 23:45

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)