標題: [發問] 篩選數據問題 [打印本頁]

---

作者: spermbank    時間: 2012-6-26 23:24     標題: 篩選數據問題

請問各位大大:
     如檔案中所述
     我要如何寫利用篩選配合今日日期取大於今日日期3至12日區間數據，且依序排列
     謝謝

---

作者: register313    時間: 2012-6-27 09:03

回復 1# spermbank

1. Sub advancedFilterEx()
   
2.   [iu1:iv1] = "數據"
   
3.   [iu2] = ">=" & Date + 3
   
4.   [iv2] = "<=" & Date + 12
   
5.   [d1].CurrentRegion = ""
   
6.   [a1].CurrentRegion.AdvancedFilter xlFilterCopy, [iu1:iv2], [d1]
   
7.   [d1].Sort Key1:=[e2], Order1:=xlAscending, Header:=xlGuess
   
8. End Sub

複製代碼

---

作者: GBKEE    時間: 2012-6-27 09:04

本帖最後由 GBKEE 於 2012-6-27 09:06 編輯

回復 1# spermbank
排序 可錄製巨集練習

1. Option Explicit
   
2. Sub Ex()
   
3.     Range("A1").AutoFilter Field:=2, Criteria1:=">=" & Date + 3, Operator:=xlAnd, Criteria2:="<=" & Date + 20
   
4.     'AutoFilter 自動篩選  '第二個欄位, 準則1     = 條件          , 'xlAnd且 xlOr 或 , 準則2   = 條件
   
5. End Sub

複製代碼

---

作者: spermbank    時間: 2012-6-28 00:33

回復 2# register313

謝謝

---

作者: spermbank    時間: 2012-6-28 00:34

回復 3# GBKEE


    一直以來都受到G大的照顧，我已經弄好我想要的想法囉，謝囉。

---

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