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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-6-12 16:54 | 只看該作者

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

複製代碼

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

論壇貢獻勳章

2^#

發表於 2013-6-13 23:45 | 只看該作者

回復 1# qwwe

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

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

複製代碼

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

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

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

靜思自在 : 發脾氣是短暫的發瘋。