返回列表 上一主題 發帖

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

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
1# 跳轉到 »
發表於 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

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 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

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題