методът за намиране не може да работи за дата в excel vba

Използвах .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; но кодът по-горе не можа да намери клетка. Може ли някой да помогне с него? Много благодаря!


date excel find vba
person user2495069    schedule 05.08.2013    source източник

Отговори (1)


arrow_upward
0
arrow_downward

Опитайте да наложите истинска дата:

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
person Gary's Student    schedule 05.08.2013