12
返回列表 上一主題 發帖

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

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

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2012-3-21 13:31 | 只看該作者
本帖最後由 hugh0620 於 2012-3-21 13:38 編輯

回復 1# play9091


    將P欄位的公式改成=B2>DATE(2012,3,14)  OR =B2>DATEVALUE("2012/3/14")就會是FALSE
    =B2>2012/3/14 =>這個的意思是 B2=> (2012除以3除以14)
   要多了解一下公式的涵義唷~
學習才能提升自己

TOP

play9091

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


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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
251  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-3-21 16:22 | 只看該作者
回復 3# play9091


        Range("U2") = "=D2>datevalue(" & D & ")"
學海無涯_不恥下問

TOP

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
5#
發表於 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

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
6#
發表於 2012-3-21 17:39 | 只看該作者
回復 5# play9091


    看你程式碼的寫法~
    D=Date-7   '應該是用系統日期減7天,再利用D的日期在P欄位寫入函數=D2-D
   若您要的跟我理解的是一樣的話~
   下面的方式就可以解決你的問題
   但頗為奇怪~ 使用vba要的多數是將函數運算轉成值帶入~ 減少計算~
   你還要將函數寫出來~ 再去執行後續動作~ 感覺有點~...脫XXXX.....
  1. Sub Week_KPI()

  3. A = Range("A65536").End(xlUp).Row
  4. D = Date - 7
  5. For I = 2 To A
  6.     Range("P" & I).Formula = "=B" & I & ">" & "Date(" & Year(D) & "," & Month(D) & "," & Day(D) & ")"
  7. Next
  8.     Range("A1:N65536").AdvancedFilter Action:=xlFilterInPlace, _
  9.         CriteriaRange:=Range("P1:Q2"), Unique:=False
  10. End Sub
複製代碼
學習才能提升自己

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
251  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2012-3-21 18:47 | 只看該作者
回復 5# play9091


        Range("U2") = "=D2>datevalue(""" & d & """)"
學海無涯_不恥下問

TOP

play9091

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

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

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

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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
251  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
9#
發表於 2012-3-21 22:55 | 只看該作者
回復 8# play9091

進階篩選可使用公式作為準則沒錯
但你檔案與你的程式碼敘述有點出入
應該在P2寫入公式才對
  1.     D = Date - 7
  2.     Range("P2") = "=B2>DATEVALUE(""" & D & """)"
  3.     Range("A1:N65536").AdvancedFilter Action:=xlFilterInPlace, _
  4.         CriteriaRange:=Range("P1:Q2"), Unique:=False
複製代碼
學海無涯_不恥下問

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
10#
發表於 2012-3-21 23:08 | 只看該作者
回復 8# play9091

  1. Sub Week_KPI()
  2.     Range("P2") = ">" & Date - 7
  3.     Range("A1:N65536").AdvancedFilter Action:=xlFilterInPlace, _
  4.         CriteriaRange:=Range("P1:Q2"), Unique:=False
  5. End Sub
複製代碼

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
12
返回列表 上一主題