find方法不能爲日期在Excel VBA中工作

Question

我用.find搜索的範圍內的特定小區（「A20：AD20」）：

Set targetcell = ActiveSheet.Range("A20:AD20").Find(what:=Lastdate, LookIn:=xlValues, LookAt:=xlPart) //LookAt:=xlWhole does not work either 

含有相同的日期變量Lastdate用下面的代碼

當我調試時，Lastdate的值是6/1/2013，單元格W20的值也是6/1/2013。我使用MsgBox並確認Range（「W20」）。value = Lastdate;但是上面的代碼找不到任何單元格。任何人都可以幫忙嗎？萬分感謝！

Answer 1

嘗試迫使真正的約會：

Sub dural() 
    Dim s As String 
    s = "8/5/2013" 
    Set zell = Cells.Find(What:=CDate(s), After:=Range("A1"), LookIn:=xlFormulas _ 
       , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) 
    zell.Select 
End Sub