On Error GoTo

悠扬的旋律

wang-way 发表于 2024-7-14 09:52
Sub Macro29()
    For 第几行 = 1 To 4
         变量  = "" ' 初始化变量：*重要*

悠扬的旋律

lss001 发表于 2024-7-14 09:38
Sub Macro29()
    For 第几行 = 1 To 4
         变量  = "" ' 初始化变量：*重要*

这个确实可以一直跳转了,但是不完美的地方在于类似忽略错误,还会继续执行报错后面的,我再想想

lss001

............................................................

悠扬的旋律

lss001 发表于 2024-7-14 09:38
Sub Macro29()
    For 第几行 = 1 To 4
         变量  = "" ' 初始化变量：*重要*

我修改了一下发现好像可以了,大概就是这样吧

lss001

悠扬的旋律 发表于 2024-7-14 10:37
我修改了一下发现好像可以了,大概就是这样吧

..............................

悠扬的旋律

感觉还是有问题
用On Error Resume Next算了
循环里多写几行If Err <> 0 Then GoTo 1

lss001

…………………………………………

悠扬的旋律

lss001 发表于 2024-7-14 18:25
'9楼代码会执行错误后面代码，
'如果不执行后面代码改为Resume 2

可以可以  

悠扬的旋律

Lost_in_Star

1. Sub Macro29()
   
2.    
   
3.     On Error Resume Next '如果遇到错误，则继续执行下一行代码
   
4.    
   
5.     For 第几行 = 1 To 4
   
6.         数字 = Cells(第几行, 1)
   
7.         如果 数字 <> 0 Then
   
8.             变量 = 1 / 数字
   
9.             Cells(第几行, 2) = 变量
   
10.         Else
    
11.             Cells(第几行, 2) = "错误"
    
12.         End if
    
13.     Next 第几行
    
14.    
    
15.     On Error GoTo 0 '关闭错误处理
    
16. 
    
17. End Sub
    

复制代码