返回列表 上一主題 發帖

[發問] 如何比對時間……

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-21 10:35 | 顯示全部帖子

[發問] 如何比對時間……

本帖最後由 play9091 於 2012-3-21 11:28 編輯

我想要用"進階篩選"對一堆資料做篩選。

但現在遇到一個問題，我想要對日期做篩選。但是不知道怎麼樣子去和日期做比對……

例如：我想要篩選大於2012/03/14，但是實際篩選出來2012/03/14還是在篩選後的列表裡面！

我的寫法如下：
  1.     D = Date - 7
  2.     Range("S2") = "=D2>" & D
  3.    Range("A1:Q65536").AdvancedFilter Action:=xlFilterInPlace, _
  4.         CriteriaRange:=Range("S1:T2"), Unique:=False
複製代碼
範例如附檔！煩請先進們指教一下！

範例.rar (18.11 KB)

收藏 分享
初學VBA乍到twbts

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
2#
發表於 2012-3-21 14:48 | 顯示全部帖子
回復 2# hugh0620


    用VBA寫出樓上先進寫的公式好難喔！怎麼寫都錯啊！
  1.     Range("U2") = "=D2>datevalue(" & D & ")"""
複製代碼
跑VBA的時候就錯了……暈啊！
初學VBA乍到twbts

TOP

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
3#
發表於 2012-3-21 16:34 | 顯示全部帖子
回復 4# Hsieh


Range("U2") = "=D2>datevalue(" & D & ")"
↓
=D2>datevalue(2012/3/14)

但是公式要求成下面這個樣子
=B2>DATEVALUE("2012/3/14")

也就是少了「"」這個符號……加不進去……持續嘗試中！
初學VBA乍到twbts

TOP

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
4#
發表於 2012-3-21 22:39 | 顯示全部帖子
回復 6# hugh0620

  先進應該是沒有看清楚我對須求的描述，又或著是我描述的不夠清楚……

我想要把資料中七天前的資料不納入考量……所以須要那一段公式做為判別。

還是說先進有什麼比較好的方法可以介紹一下……也讓我可以多多學習！
初學VBA乍到twbts

TOP

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
5#
發表於 2012-3-22 09:56 | 顯示全部帖子
回復 9# Hsieh


    感謝修正，因為代碼是從我寫好的整篇裡面抽出我的問題的部分，所以有一些出入，超版真的很細心……受教了

回復 10# register313


    一直想著用判別式去判斷，倒忘記了最簡單的搞述……工作一忙真的是會亂了手腳……還須要更冷靜的去分析問題啊！感謝……學習……
初學VBA乍到twbts

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題