返回列表 上一主題 發帖

[發問] 篩選數據問題

[發問] 篩選數據問題

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

test.rar (25.33 KB)

回復 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
複製代碼

TOP

本帖最後由 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
複製代碼

TOP

回復 2# register313

謝謝

TOP

回復 3# GBKEE


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

TOP

        靜思自在 : 每天無所事事,是人生的消費者,積極、有用才是人生的創造者。
返回列表 上一主題