当前位置:首页经验技巧Excel经验excel知识

excel编程报9下标越界,电子表格vba运行时错误9下标越界

2024-09-14 10:13:35

1. vba运行时错误9下标越界

下标越界就是数组中的变量超出了数组的大小范围,要从变量上找原因

2. vba运行显示下标越界什么意思

Excel提示下标越界是VBA程序运行的一个错误提示,原因有以下几个:

1、引用了不存在的数组元素:下标比可能下标范围大或小,或是在应用程序中这一边的数组没有指定范围。

2、声明数组时没有指定元素的数目:引用了不存在的集合成员。

3、使用速写形式的下标,结果指定了错误的元素。

4、引用或操作的工作薄、工作表不存在。

3. 运行错误9下标越界简单解决方法

你的语句有三种可能造成下标越界,一是Workbooks("ItemMaster"),如果没有ItemMaster文件打开会造成报错,另外,一般我们是写Workbooks("ItemMaster.xls"

)二是.Sheets("Sheet1"),如果工作簿没有名为"Sheet1"的表,会造成下标越界三是Cells(gyou1, 1).Value,如果gyou1的值不是有效的行(例如小于0或者超过表的最大行数),会造成下标越界具体是什么造成,需要调试。

4. vba 下标越界 "9"

数据范围超出VBA代码中的单元格范围,在代码中扩大范围。

5. vba提示下标越界

打开vba界面,左边有工程,默认只有你写有代码的,所以会下标越界.

先把别的表格文件打开,然后这个命令

Application.Workbooks.Open(Filename:=fname)

执行之后,可以看到已打开的文件已经加入工程,然后就好了.

用这个命令测试一下:

MsgBox Workbooks.count

如果你打开了5个表格,那么返回值就是5.

6. vba错误代码9

excel开发工具中命令按钮使用方法:

1、在“视图”→“工具栏”→“控件工具箱”

2、在“控件工具箱”中选择“命令按钮”后,鼠标指针变成十字,在工作表中拖动,添加一个命令按钮。

3、在命令按钮上双击,进入VBA代码编辑界面。加入下面代码 Private Sub CommandButton1_Click() Cells(6, 2) = InputBox("请输入一个值", "输入") End Sub 4、关闭VBA界面窗口。

5、在“控件工具箱”的左上角单击“关闭设计模式”铵钮。

7. vba报错下标越界

如果使用数组时,数组的下标超出数组的可取值范围就会出现这个错误,这个数组可以是自定义的也可以是系统自带的。

1.自定义数组:dimarr1(1to5)arr1(10)=555因为arr1数组为1到5,这里却是10,所以就会报下标越界错误。

2.系统自带的数组:一个excel工作表表有3张SheetSub下标越界()MsgBoxSheets(4).NameEndSub这里的Sheets(4)显然已经超出了3张Sheet,因此也会报下标越界错误。总之,有多种情况会引起“下标越界”的报错。下标越界错误大概有以下的原因和解决方法:  1.引用了不存在的数组元素。  2.下标比可能下标范围大或小,或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组,应使用UBound和LBound函数来决定数组访问。如果索引指定为变量,应检查变量名的拼写。  

3.声明数组时没有指定元素的数目。  

4.引用了不存在的集合成员。试着使用ForEach...Next结构代替指定元素下标。使用速写形式的下标,结果指定了错误的元素。  

5.下标越界不存在对应的工作薄、工作表名称是否写正确。

8. vba数组下标越界的解决办法

答:下标越界这个是vba里面的问题,主要指你输入的命令值已经超过了它的边界值即最值(最大最小)这个要根据具体情况具体解决:

举个例子:vba中个二维数组,arr(1 to 10,1 to 10),代表他可以储存arr(x,y) (注:x取值 1到10,y取值1到10.)100个数据(或者对象);如果你让x,y取了其他值,那么系统就报错,下标越界 处理这类越界的问题有两种方法:

1、粗处理:定义一个比较大的数组,保证控件足够。弊端:占内存;

2、细处理:根据实际情况定义数组大小,用redim 及时调整数组的大小;以上例子是针对数组的举例;其他如excel只包含三个sheet...


电脑版

免责声明:本站信息来自网络收集及网友投稿,仅供参考,如果有错误请反馈给我们更正,对文中内容的真实性和完整性本站不提供任何保证,不承但任何责任,谢谢您的合作。
版权所有:五学知识网 Copyright © 2015-2024 All Rights Reserved .