没有调试选项的下标超出范围错误

时间:2018-08-14 21:26:51

标签: excel vba excel-vba

运行我的宏时,出现以下代码:下标超出范围。但是我没有de debug选项,只有havc 2个选项:OK和HELP。 1时间在20宏工作正常,但其余时间我得到此错误。该代码使您可以选择要搜索的路径,然后选择要在工作簿中找到的文本。它也搜索子文件夹中的命令。之后,它将发回文件名,图纸名称,该单元格中的哪个单元格以及什么文本。

有人可以帮我吗?

顺便说一句,它运行宏,但是在4到5个不同文件中搜索宏后停止并弹出该错误。

代码在这里:

library(igraph)

edgelist <- read.table(text = "
A B
                       B C
                       C D
                       D E
                       C F
                       F G")

x<- graph.data.frame(edgelist)

f <- function(v){
  (1/degree(x,v))/sum(1/degree(x,neighbors(x,v,'all')))
}

results <- sapply(V(x),f)

提前谢谢。

1 个答案:

答案 0 :(得分:-1)

您可以自行调试,而无需使用IDE的调试器。 只需将On Error Resume Next / On Error Goto 0彼此非常靠近,以限制可能引起错误的语句。即第二个On Error Goto 0太远了。

我可以简单地在语句之间插入以下内容来更有效地调试:

a = a + 1
debug.print "I am here"
b = b -5
debug.print "I am there"
c = 5 / 0
debug.print "You can't see me"

这样您就可以找到引发错误的时间