標題: 找日期出現 "執行階段錯誤'91':沒有設定物件變數或With區塊變數" [打印本頁]

---

作者: qaz200581    時間: 2016-3-6 21:54     標題: 找日期出現 "執行階段錯誤'91':沒有設定物件變數或With區塊變數"

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    時間: 2016-3-7 18:24

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

---

作者: qaz200581    時間: 2016-3-9 00:56

已解決感謝

---

作者: qaz200581    時間: 2016-3-9 20:26

回復 4# asd16801680

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)