帖子: 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還是在篩選後的列表裡面！

我的寫法如下：

D = Date - 7
Range("S2") = "=D2>" & D
Range("A1:Q65536").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("S1:T2"), Unique:=False

複製代碼

範例如附檔！煩請先進們指教一下！

範例.rar (18.11 KB)

樓主熱帖

初學VBA乍到twbts

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 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

中學生 Rank: 2

帖子: 87
主題: 24
精華: 0
積分: 122
點名: 0
作業系統: win 7
軟體版本: 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-1-16

3^#

發表於 2012-3-21 14:48 | 只看該作者

回復 2# hugh0620

用VBA寫出樓上先進寫的公式好難喔！怎麼寫都錯啊！

Range("U2") = "=D2>datevalue(" & D & ")"""

複製代碼

跑VBA的時候就錯了……暈啊！

初學VBA乍到twbts

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 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

中學生 Rank: 2

帖子: 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: 3 Rank: 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.....

Sub Week_KPI()
A = Range("A65536").End(xlUp).Row
D = Date - 7
For I = 2 To A
Range("P" & I).Formula = "=B" & I & ">" & "Date(" & Year(D) & "," & Month(D) & "," & Day(D) & ")"
Next
Range("A1:N65536").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("P1:Q2"), Unique:=False
End Sub

複製代碼

學習才能提升自己

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 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

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2012-3-21 22:55 | 只看該作者