Question

excel宏语句运行时提示下标越界，如何修改？？？

您好，我弄了一个excel宏，运行时提示下标越界，能帮忙解决吗？谢谢
Sheets("单选题").Range("A:D").Sort Key1:=Sheets("单选题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
Sheets("多选题").Range("A:D").Sort Key1:=Sheets("多选题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
Sheets("判断题").Range("A:D").Sort Key1:=Sheets("判断题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
'这三行分别是对单选、多选和判断题工作表的A:D区域按D列随机数升序排序。
中间那句调试通不过。

Answer 1

一、在SHEET表内设置好按钮，并指定到宏。（宏所在SHEET的名称为“图表”）

二、在VBA编辑器内输入如下的代码。（此代码的含义为遍布区域内的单元格，如果为空格，则隐藏空格所在的整列。

三、在运行过程中出现了问题，下标越界，无法运行。

四、查看问题原因为，在代码中的“SHEET1”工作表根本没有，因为SHEET表的标签名称为“图表”，因此代码运行时找不到"SHEET1"工作表，所以提示下标越界。

五、点击异常提示下的“调试”按钮，将代码中“SHEET1”改为“图表”后再点按钮，运行宏，代码正常运行，无下表越界提示。

Answer 2

原因：说明对象不存在或者数组元素不存在。

1、举个简单的例子：工作表中没有"1月"这个工作表，却用Sheets("1月")；数组定义的是arr(1 to 10)，却用Arr(11)，都会出现下标越界的提示。

2、然后改正后的代码如下：

Sub a()

Dim arr() '定义一个动态数组

Dim i As Integer

ReDim arr(1 To 3) '定义一个3个元素的数组,并且对数组进行初始化

arr(1) = 3

arr(2) = 4

arr(3) = 5

'在下面语句重新定义一个10个元素的数组，清除前面的元素，并重新分配新的存储变量

ReDim arr(1 To 10)

For i = 1 To 10

arr(i) = i

Next i

End Sub

3、然后点击运行就不会提示了。

Answer 3

下标越界一般就是指引用对象时，找不到那个对象，需要检查一下是不是超出范围了。
看看工作表名称是否和程序一致

Answer 4

看看你的sheet名有没有问题