標題:
[發問]
On Error Resume Next 可設定某位置的值嗎？
[打印本頁]
作者:
cji3cj6xu6
時間:
2014-4-9 18:35
標題:
On Error Resume Next 可設定某位置的值嗎？
當發生錯誤時，
On Error Resume Next 可讓程式走下去，
但可在發生錯誤時，先設定 Range("a1" ) = 100 ，再執行 On Error Resume Next 嗎？
要如何寫呢？
謝謝！！
作者:
yen956
時間:
2014-4-9 19:59
改用 On Error GoTo label1 試試看
... ... ...
... ... ...
On Error GoTo label1
... ... ...
'這裡一定要加冒號
label1:
Range("a1" ) = 100
... ... ...
作者:
GBKEE
時間:
2014-4-10 06:43
回復
1#
cji3cj6xu6
Option Explicit
Sub Ex()
Dim Rng As Range
AA:
On Error GoTo LL
Rng.Value = 100 '未設定變數 Rng 有錯誤
Sheets(5).Select '沒這工作表 有錯誤
'其他程式碼
'其他程式碼
Exit Sub '在此行離開程序
LL: '處裡錯誤
Select Case Err ' 選擇錯誤值
Case 91
Set Rng = Range("A1")
Resume AA '回到 AA
'Resume '回到錯誤行
'Resume Next '回到錯誤的下行程式碼
Case Else
MsgBox "不明的錯誤值 " & Err
End
End Select
End Sub
複製代碼
作者:
cji3cj6xu6
時間:
2014-4-10 13:35
謝謝yen大＆ G大的回覆∼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
