作者unfinish (笑吟吟的淫淫笑)
看板Visual_Basic
標題[VBA ] Range.Find無法搜尋日期
時間Fri Mar 19 10:11:04 2021
先
在儲存格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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1616120421.A.ECF.html
也許是問題描述的不夠詳細
我把重點再highlight一下
不是日期找不到 而是
公式帶出來的日期找不到
※ 編輯: unfinish (59.120.70.34 臺灣), 03/22/2021 08:45:56
2F：→ lalacos123: 有一定要用find的嗎 application.vlookup可以? 03/23 10:48
3F：推 waiter337: set oRng = range("b:b").find(datevalue(range("a1")) 04/05 03:24
4F：→ waiter337: ,lookin:=xlvalues) 04/05 03:25
5F：推 waiter337: 可以不加set 04/18 10:32