VBA初学者,常常会遇到下标越界问题。
尽管出现下标越界的原因是多种多样,但终究是因为对象不存在或者超出范围,就会出现下标越界的提示框,如下图所示:
如果使用数组时,数组的下标超出数组的可取值范围就会出现这个错误,这个数组可以是自定义的也可以是系统自带的。
因为arr1数组为1到5,这里却是10,所以就会报下标越界错误。
2.系统自带的数组:
这里的Sheets(4)显然已经超出了3张Sheet,因此也会报下标越界错误。
总之,有多种情况会引起“下标越界”的报错。
下标越界错误大概有以下的原因和解决方法:
引用了不存在的数组元素。
下标比可能下标范围大或小,或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组,应使用UBound和LBound函数来决定数组访问。如果索引指定为变量,应检查变量名的拼写。
声明数组时没有指定元素的数目。
引用了不存在的集合成员。试着使用 For Each...Next 结构代替指定元素下标。
使用速写形式的下标,结果指定了错误的元素。
下标越界不存在对应的工作薄、工作表名称是否写正确。
当再次遇到VBA报下标越界错误时,就不会惊慌了,至少大概知道其原因了。我们再参照上面的思路去修改代码就可以解决下标越界的错误。
我正在尝试在我的vba代码中引入一个公式,并在其中收到一个错误。 请查看代码,并分享您的想法。
这是我用VBA编写的excel函数代码:
这里是VBA代码试图利用它:
该function的范围来自不同的工作表。 我如何在VBA中编写它?
GetUniqueCount的名称没有工作表函数。 如果这是你的代码中的一个函数,那么调用它的方法将是这样的:
这段代码假定你的函数和调用过程在同一个代码表上,或者声明为public。 它必须有两个参数,第一个参数必须是一个范围,第二个是与check
相同的数据types。 如果你没有声明check
(这不是一个好主意),那么它的数据types将是Variant。
您的代码中存在其他可能的错误, Range
等不合格
该错误今天在以下代码中弹出:
该函数已经工作了好几年,但是当w = 17&cs = 4时会产生错误
我检查了CS工作表的范围,以免用户误命名,但找不到任何问题。
该函数由以下代码调用:
我不是一位经验丰富的VBA程序员,无法弄清楚为什么现在会发生这种情况。有人可以指出我正确的方向吗?