找日期出現 "執行階段錯誤'91':沒有設定物件變數或With區塊變數"

qaz200581

Sub 日期跳轉()
'轉換日期
Dim today As Date
Sheets("主頁").Select
   x = Range("J1").Value
DateValue (x)
MsgBox "" & x
Sheets("當日收支").Select
Cells.Find(What:="" & x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
End Sub

"執行階段錯誤'91':沒有設定物件變數或With區塊變數"

原本找的到關掉重開就不行了

qaz200581

有人可以幫忙解答嗎~~~只要能夠獲取J1的日期然後在別的分頁找到那天的日期就好了~~~

qaz200581

已解決感謝

qaz200581

回復 4# asd16801680

Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
End Sub
x直接設就好