返回列表 上一主題 發帖

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

qaz200581

帖子
9 
主題
3 
精華
0 
積分
13 
點名
0  
作業系統
windows 7 64 
軟體版本
office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-12-5 
最後登錄
2016-7-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
9 
主題
3 
精華
0 
積分
13 
點名
0  
作業系統
windows 7 64 
軟體版本
office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-12-5 
最後登錄
2016-7-11 
2#
發表於 2016-3-7 18:24 | 只看該作者
[版主管理留言]
  • GBKEE(2016/3/7 19:01): 附檔看看才清楚那裡出錯。

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

TOP

qaz200581

帖子
9 
主題
3 
精華
0 
積分
13 
點名
0  
作業系統
windows 7 64 
軟體版本
office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-12-5 
最後登錄
2016-7-11 
3#
發表於 2016-3-9 00:56 | 只看該作者
已解決感謝

TOP

qaz200581

帖子
9 
主題
3 
精華
0 
積分
13 
點名
0  
作業系統
windows 7 64 
軟體版本
office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-12-5 
最後登錄
2016-7-11 
4#
發表於 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直接設就好

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題