返回列表 上一主題 發帖

[發問] 請教自動篩選的問題

nightkiss

帖子
3 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
10 
註冊時間
2012-4-8 
最後登錄
2012-4-17 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-4-11 23:38 | 只看該作者

[發問] 請教自動篩選的問題

各位先進好，想請教一下A欄位設定自動篩選後，自動篩選的下拉表單可以看到
A欄位內全部不重複的資料項目，我可以利用VBA抓到這全部的內容嗎?

謝謝指導!!
收藏 分享

nightkiss

帖子
3 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
10 
註冊時間
2012-4-8 
最後登錄
2012-4-17 
3#
發表於 2012-4-13 08:25 | 只看該作者
回復 2# GBKEE

謝謝大大熱心的指導，受用良多!!

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-4-12 07:13 | 只看該作者
回復 1# nightkiss
須用進階篩選
AdvancedFilter 方法    VBA 說明
請參閱套用至範例特定基於準則範圍從資料清單中篩選或複製資料。如果初始選定為單個儲存格，則使用儲存格目前的區域x為Variant。
expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
expression      必選。該運算式會傳回 [套用於] 清單中的其中一個物件。
Action     必選的 XlFilterAction 資料類型。
XlFilterAction 可以是這些 XlFilterAction 常數之一。
xlFilterCopy
xlFilterInPlace
CriteriaRange     選擇性的 Variant。準則範圍。如果省略此引數則無準則。
CopyToRange     選擇性的 Variant。如果 Action 為 xlFilterCopy，此引數指定被複製列的目標範圍。否則忽略此引數。
Unique     選擇性的 Variant。若為 True，則僅篩選唯一的記錄；若為 False，則篩選出所有符合準則的記錄。預設值為 False。
  1. Option Explicit
  2. Sub Ex()
  3.     Range("A1:A20").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True
  4.     '複製於Range("J1")
  5. End Sub
  6. Sub Ex1()
  7.     Range("A1:A20").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
  8.     '在原範圍顯示
  9. End Sub
複製代碼

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題