查找方法不适用于excel vba中的日期答案

【问题标题】：find method could not work for date in excel vba查找方法不适用于excel vba中的日期
【发布时间】：2013-08-06 11:52:11
【问题描述】：

我使用 .find 搜索范围("A20:AD20") 中的特定单元格，该单元格包含与变量 Lastdate 相同的日期，代码如下：

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

我调试时 Lastdate 的值是 6/1/2013，单元格 W20 的值也是 6/1/2013。我使用 MsgBox 并确认 Range("W20").value = Lastdate;但是上面的代码找不到任何单元格。有人可以帮忙吗？非常感谢！

【问题讨论】：

标签： excel vba date find

【解决方案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

【讨论】：