求助循环执行宏过程中，如何跳过某出错的宏，继续执行？

逆天修炼

如题，请路过的大神指导，谢谢！

qline302

跳错一般是 On Error Resume Next或者Goto 语句

逆天修炼

我的想法是这样：

逆天修炼

我的这个代码仍然回避不了这个错误，拜托各位路过的大神发表一下你们的看法，谢谢

micch

7行数据，7个sub。循环执行7个sub，每个sub都写on error resume next

逆天修炼

micch 发表于 2024-3-13 20:35
7行数据，7个sub。循环执行7个sub，每个sub都写on error resume next

这样确实可以解决问题，我试过了，但问题是这7个sub单独执行就不容易发现错误，把这7个sub加入到一个循环sub中如何跳出错误，才是我的目地

qline302

哪有这么写代码的，要运行其他Sub代码直接Call Sub()就好，同Sub内就GoSub...Return语句

逆天修炼

假设我有几百行，每行对应一个sub，不需每次点击每行的sub，我想一次性运行所有的sub，同时跳过报错。对于出错行的sub，我再单独查找错误。问题就是如何跳过报错是关键？按5楼micch大神的做法可以解决，但太麻烦了

逆天修炼

有没有可能在出错行的SUB停顿并发送"确定(E)"键，又能保证原来sub循环语句不断呢？求各位大神支招，谢谢！

大灰狼1976

又发现一个call和run的功能差异，call的话只要call语句前有on error resume next，引用的过程中出错也会跳过；run就不行，必须每个引用的过程里都加上on error resume next。
又试了一下callbyname，他和call的这个功能倒是一样的，但无法运行标准模块内的过程，限定一下条件的话也可以使用，要求被引用的过程不放在标准模块里面，这样就不需要每个子过程都加容错语句了。
'假设以下代码都在Sheet1模块里面

1. Sub test()
   
2. On Error Resume Next
   
3. CallByName Sheet1, "a", VbMethod
   
4. CallByName Sheet1, "b", VbMethod
   
5. End Sub
   
6. 
   
7. Sub a()
   
8. n = 1 / 0
   
9. End Sub
   
10. 
    
11. Sub b()
    
12. Dim n As Long
    
13. n = "b"
    
14. End Sub

复制代码