返回列表 上一主題 發帖

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

回復 3# play9091


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

TOP

回復 5# play9091


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

TOP

回復 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

        靜思自在 : 成功是優點的發揮,失敗是缺點的累積。
返回列表 上一主題