返回列表 上一主題 發帖

判斷執行出現錯誤的語法 ?

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-7-24 08:44 | 只看該作者

判斷執行出現錯誤的語法 ?

判斷執行出現錯誤的語法  
Selection.QueryTable.Refresh BackgroundQuery:=False
上行執行出現錯誤的語法??  if ??????????????  then goto............................
錯誤視窗
收藏 分享

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2014-8-6 14:04 | 只看該作者
小弟不才,只知道幾個基本方法

On Error GoTo F1(此行寫在有可能發生錯誤的地方之前即可),F1為自己預設的位置

On Error Resume Next 表示當一個執行階段錯誤產生時，程式控制立刻到發生錯誤陳述式接下去的陳述式，而繼續執行下去。當使用一個物件的時候，請使用這個陳述式，而不要使用 On Error GoTo。

On Error GoTo 0 停止現在程序裏任何已啟動的錯誤處理程式。
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2014-8-6 14:22 | 只看該作者
也可透過錯誤代碼,來選擇執行
Sub test()
'
On Error Resume Next '忽略錯誤

Range("F2:k102").Copy '錯誤示範
Range(a1).PasteSpecial '錯誤示範

MsgBox "錯誤代碼為:" & Err.Number '錯誤訊息代碼

Select Case Err.Number '選擇錯誤代碼

Case 1004
MsgBox Err.Number & "抓到你了"
Case 1005
MsgBox ("怪怪的")

End Select

End Sub
PKKO

TOP

t8899

帖子
760 
主題
250 
精華
0 
積分
1023 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-28 
4#
發表於 2014-8-6 14:38 | 只看該作者
也可透過錯誤代碼,來選擇執行
Sub test()
'
On Error Resume Next '忽略錯誤

Range("F2:k102").Copy  ...
PKKO 發表於 2014-8-6 14:22


如何知道錯誤的號碼是幾號??

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2014-8-6 15:32 | 只看該作者
MsgBox "錯誤代碼為:" & Err.Number '錯誤訊息代碼

Err.Number 就是錯誤代碼
PKKO

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題