Excel VBA下标越界的原因分析与解决方法
时间:2022-09-06 10:12:37
尽管出现下标越界的原因是多种多样,但终究是因为对象不存在或者超出范围,就会出现下标越界的提示框
VBA初学者,常常会遇到下标越界问题。
尽管出现下标越界的原因是多种多样,但终究是因为对象不存在或者超出范围,就会出现下标越界的提示框,如下图所示:
Microsoft Visual Basic ~运行时错误'9'~下标越界,错误原因分析:
如果使用数组时,数组的下标超出数组的可取值范围就会出现这个错误,这个数组可以是自定义的也可以是系统自带的。
1.自定义数组:
dim arr1(1 to 5)
arr1(10)=555
因为arr1数组为1到5,这里却是10,所以就会报下标越界错误。
2.系统自带的数组:
一个excel工作表表有3张Sheet
Sub 下标越界()
MsgBox Sheets(4).Name
End Sub
这里的Sheets(4)显然已经超出了3张Sheet,因此也会报下标越界错误。
总之,有多种情况会引起“下标越界”的报错。
下标越界错误大概有以下的原因和解决方法:
引用了不存在的数组元素。
下标比可能下标范围大或小,或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组,应使用 UBound 和 LBound 函数来决定数组访问。如果索引指定为变量,应检查变量名的拼写。
声明数组时没有指定元素的数目。
引用了不存在的集合成员。 试着使用 For Each...Next 结构代替指定元素下标。
使用速写形式的下标,结果指定了错误的元素。
下标越界不存在对应的工作薄、工作表名称是否写正确。
当再次遇到VBA报下标越界错误时,就不会惊慌了,至少大概知道其原因了。我们再参照上面的思路去修改代码就可以解决下标越界的错误。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
excel如何给手机号中间添加横线 excel手机号中间添加横线方法
![](https://img.aspxhome.com/file/2023/8/39608_0s.jpg)
word如何设置页码第几页共几页
Win10 20h2怎么开启蓝牙?
![](https://img.aspxhome.com/file/2023/3/49253_0s.jpg)
Excel小技巧之轻松提取文件夹中的文件名
![](https://img.aspxhome.com/file/2023/7/39847_0s.png)
word如何设置一级标题图文教程
office E5刷API脚本分享以及教程
![](https://img.aspxhome.com/file/2023/7/16537_0s.png)
Word文档怎么另存为缩略图
表格中left与right公式怎么用?
![](https://img.aspxhome.com/file/2023/2/42572_0s.jpg)
Word如何快速添加下划线
![](https://img.aspxhome.com/file/2023/8/33458_0s.gif)
PDF如何旋转页面?云橙PDF编辑器旋转页面的操作步骤
![](https://img.aspxhome.com/file/2023/8/15098_0s.jpg)
word 怎样给论文参考文献添加编号
![](https://img.aspxhome.com/file/2023/2/35532_0s.png)
Excel2016柱形图表中怎么填充图片?
![](https://img.aspxhome.com/file/2023/7/40437_0s.jpg)
Win10专业版开始菜单点击无效怎么办?
![](https://img.aspxhome.com/file/2023/7/50367_0s.png)
Word中怎么设置图片格式图文教程
visio双箭头怎么画? visio2013绘制双箭头直线的教程
![](https://img.aspxhome.com/file/2023/4/15414_0s.jpg)
怎样用Word上的字数统计
win10任务栏无反应怎么处理才能解决?win10任务栏无反应有什么方法恢复?
![](https://img.aspxhome.com/file/2023/9/47229_0s.jpg)
如何在Word 2016中打印页面范围?
![](https://img.aspxhome.com/file/2023/7/23187_0s.jpg)
Word中如何添加水印
用Word 字体隐藏 功能来制作部分文字打印的模板的方法
![](https://img.aspxhome.com/file/2023/5/29575_0s.jpg)