PTT數位生活區 / Visual_Basic

[VBA ] Range.Find無法搜尋日期

看板Visual_Basic作者 (笑吟吟的淫淫笑)時間3年前 (2021/03/19 10:20), 3年前編輯推噓2(2推 0噓 3→)
留言5則, 2人參與, 最新討論串1/1
先在儲存格A1隨便輸入日期 比如今天的日期3/19 接著在B1輸入公式「=A1」 這時候就有兩格3/19 然後... Set oRng = Range("B:B").Find(Range("A1")) 執行結果是Nothing 甚至連自己都不認識自己 Set oRng = Range("B1").Find(Range("B1")) 執行結果一樣是Nothing 即便切回工作表按Ctrl+F用excel內的「尋找及取代」視窗去搜尋3/19 只會找到A1 一樣是找不到B1 如果把A1改成文字或數字就沒有上述問題 附帶一提 直接擷取B1內容 抓出來的是日期格式 完全沒有問題 If Range("A1") = Range("B1") Then MsgBox Range("B1") 請問要怎麼用Find搜尋用公式帶出來的日期呢? 謝謝大家 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.120.70.34 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1616120421.A.ECF.html
→
03/19 12:19, 3年前 , 1F
03/19 12:19, 1F
也許是問題描述的不夠詳細 我把重點再highlight一下 不是日期找不到 而是公式帶出來的日期找不到 ※ 編輯: unfinish (59.120.70.34 臺灣), 03/22/2021 08:45:56
→
03/23 10:48, 3年前 , 2F
有一定要用find的嗎 application.vlookup可以?
03/23 10:48, 2F
推
04/05 03:24, , 3F
set oRng = range("b:b").find(datevalue(range("a1"))
04/05 03:24, 3F
→
04/05 03:25, , 4F
,lookin:=xlvalues)
04/05 03:25, 4F
推
04/18 10:32, , 5F
可以不加set
04/18 10:32, 5F
‣ 更多 unfinish 的文章
文章代碼(AID): #1WL0fbxF (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 unfinish 的文章
文章代碼(AID): #1WL0fbxF (Visual_Basic)