[發問] On Error Resume Next 可設定某位置的值嗎？

cji3cj6xu6

當發生錯誤時，
On Error Resume Next 可讓程式走下去，
但可在發生錯誤時，先設定 Range("a1" ) = 100 ，再執行 On Error Resume Next 嗎？
要如何寫呢？

謝謝！！

yen956

改用  On Error GoTo label1 試試看
... ... ...
... ... ...
On Error GoTo label1
... ... ...
'這裡一定要加冒號
label1:
Range("a1" ) = 100
... ... ...

GBKEE

回復 1# cji3cj6xu6

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range
   
4. AA:
   
5.     On Error GoTo LL
   
6.     Rng.Value = 100    '未設定變數 Rng 有錯誤
   
7.     Sheets(5).Select   '沒這工作表 有錯誤
   
8.     '其他程式碼
   
9.     '其他程式碼
   
10.     Exit Sub  '在此行離開程序
    
11. LL:  '處裡錯誤
    
12.     Select Case Err ' 選擇錯誤值
    
13.         Case 91
    
14.             Set Rng = Range("A1")
    
15.             Resume AA       '回到 AA
    
16.             'Resume         '回到錯誤行
    
17.             'Resume Next    '回到錯誤的下行程式碼
    
18.         Case Else
    
19.             MsgBox "不明的錯誤值 " & Err
    
20.             End
    
21.     End Select
    
22. End Sub

複製代碼

cji3cj6xu6

謝謝yen大＆ G大的回覆～