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

play9091

中學生 Rank: 2

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

11^#

發表於 2012-3-22 09:56 | 只看該作者

回復 9# Hsieh

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

回復 10# register313

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

初學VBA乍到twbts

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

Sub Week_KPI()
Range("P2") = ">" & Date - 7
Range("A1:N65536").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("P1:Q2"), Unique:=False
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

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

回復 8# play9091

進階篩選可使用公式作為準則沒錯
但你檔案與你的程式碼敘述有點出入
應該在P2寫入公式才對

D = Date - 7
Range("P2") = "=B2>DATEVALUE(""" & D & """)"
Range("A1:N65536").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("P1:Q2"), Unique:=False

複製代碼

學海無涯_不恥下問

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
點名: 278
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-24

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

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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