篩選問題 - Excel程式區 - 麻辣家族討論版版

[發問] 篩選問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-11-1 11:01 | 顯示全部帖子

回復 6# yliu

Private Sub CommandButton1_Click()
With Sheets("sheet1")
.Range("A4").CurrentRegion.AdvancedFilter xlFilterInPlace, .Range("F1:F2") ',其他位置
'.Range("F1:F2") 自動篩選的準則位置
'xlFilterInPlace 參數值 = 1 在資料庫顯示篩選的資料
'xlFilterCopy 參數值 = 2 在其他位置顯示篩選的資料
End With
End Sub

複製代碼

EX.JPG (71.15 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。