1、在SHEET表内设置好按钮,并指定到宏。
2、在VBA编辑器内输入如下的代码。(此代码的含义为遍布区域内的单元格,如果为空格,则隐藏空格所在的整列。
3、在运行过程中出现了问题,下标越界,无法运行。
4、在代码中的“SHEET1”工作表根本没有,因为SHEET表的标签名称为“图表”,因此代码运行时找不到"SHEET1"工作表,所以提示下标越界。
5、点击异常提示下的“调试”按钮,将代码中“SHEET1”改为“图表”后再点按钮,运行宏,代码正常运行,无下表越界提示。
注意事项:
Excel虽然提供了大量的用户界面特性,但它仍然保留了第一款电子制表软件VisiCalc的特性:行、列组成单元格,数据、与数据相关的公式或者对其他单元格的绝对引用保存在单元格中。
如何让VBA代码在excel工作表下标越界?
1、在SHEET表内设置好按钮,并指定到宏。2、在VBA编辑器内输入如下的代码。(此代码的含义为遍布区域内的单元格,如果为空格,则隐藏空格所在的整列。3、在运行过程中出现了问题,下标越界,无法运行。4、在代码中的“SHEET1”工作表根本没有,因为SHEET表的标签名称为“图表”,因此代码运行时找不到...
vba在excel中的应用中,下标越界怎么回事
1.引用了不存在的数组元素。2.下标比可能下标范围大或小,或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组,应使用 UBound 和 LBound 函数来决定数组访问。如果索引指定为变量,应检查变量名的拼写。3.声明数组时没有指定元素的数目。4.引...
excel vba 下标越界
要先打开"内返明细"工作表的那个工作簿 再运行代码 Workbooks(2).Sheets(1).Copy after:=Workbooks(1).Sheets("内返明细")如果要不打开工作簿的情况下复制的话 请参看帖子 http:\/\/club.excelhome.net\/thread-784063-1-1.html
为什么在excel中用vba时会出现下标越界的提示?
简单的理解:下标越界就是引用超出了所在的范围。当我们在excel的VBA中输入下面代码,运行,就会出现“运行时错误9下标越界”的提示。代码如下:Sub a()Dim arr() As String arr(1) = "你好"End Sub 其实上面的“运行时错误9下标越界”是因为定义的动态数组没有确定维数和尺寸。定义成固定维数和尺寸...
excel VBA 下标越界
在代码中调用其他工作簿的数据时,必须先将其打开,否则因找不到工作簿而报下标越界。对于关闭工作簿的问题,应该不会发生这种情况。你是不是关闭的是整个程序,也就是按最右上角的X,而两个工作簿都是一个程序打开的。
excel vba 数组下标越界
把这句:[b37] = ll([h3]) * [F3] \/ 10000 改成这句:[b37] = ll(1, [h3]) * [F3] \/ 10000
关于EXCEL VBA中数组下标越界的问题
& Sheet2.[A65536].End(xlUp).Row + 1)arr = rng.Value 采用单元格区域直接赋值给数组的时候,并不像数组公式里那样,单行或者单列的单元格区域返回一维的水平或者垂直数组,而是像工作表行列分布一样的二维数组。因此引用数组里的值时,必须使用二维引用的方式,即arr(i)是错误的,必须使用arr(i...
VBA把excel备份至SQL或者实现数据交换 提示下标越界 重金悬赏大神解决...
1、你的表格首先没有标定的唯一行(也就是数据库表中的键值),因此不管是哪个操作者任意更新一行或增加(删除)一行(或修改一行中某元的内容)形成新的数据表格后,在数据库中是很难界定的(这一点不知道您是否理解!)。如果没有唯一(键值)来约束的话,只能按顺序的方式来从数据库中下载内容到...
VBA 数组下标越界问题
首先您写的代码很不严谨。如:For k = 3 To R2您没有考虑到R2<3的情况,导致下标越界。在第一个FOR循环中,如果没有出现符合条件的单元格,数组NEWDATE就没有赋值,这样又出现了下标越界的问题。第二个FOR循环中DT(j) = Newdate(kk) + TimeValue(S.Cells(l + 1, 1))这句您定义的l变量赋值如果超过了...
excel vba For Each P In ActiveSheet.HPageBreaks 下标越界
Sub 合并单元跨页() Dim rng As Range col = ActiveSheet.UsedRange.Columns.Count ActiveWindow.View = xlPageBreakPreview n = ActiveWindow.SelectedSheets.HPageBreaks.Count For i = 1 To n ir = ActiveWindow.SelectedSheets.HPageBreaks(i).Location.Row For j = 1 To col ...