[已解决]在编写VBA代码时，经常出现下标越界，应该注意哪些方面？

ymq123

在编写VBA代码时，经常出现下标越界，应该注意哪些方面？谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-26 15:23

动态数组写回单元格，没有判断元素个数。

跳转到最佳答案楼层

hwc2ycy

数组的围数，集合中的索引号或名称呢。

hwc2ycy

字典写回单元格，没有判断COUNT属性。

hwc2ycy

动态数组写回单元格，没有判断元素个数。

ymq123

hwc2ycy 发表于 2013-3-26 15:23
动态数组写回单元格，没有判断元素个数。

"动态数组写回单元格，没有判断元素个数",怎么判断元素个数，请举一个简单例子

ymq123

hwc2ycy 发表于 2013-3-26 15:23
字典写回单元格，没有判断COUNT属性。

“字典写回单元格，没有判断COUNT属性”。判断COUNT属性,请举一个简单的例子，谢谢！

hwc2ycy

ymq123 发表于 2013-3-26 16:14
“字典写回单元格，没有判断COUNT属性”。判断COUNT属性,请举一个简单的例子，谢谢！

这个是13类型错误了。

1. Sub dictest()
   
2.     Dim dic As Object
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     Range("a1").Resize(dic.Count) = WorksheetFunction.Transpose(dic.keys)
   
5. End Sub
   

复制代码

hwc2ycy

其实写代码的时候，只要考虑到了数组的行列上下标的情况，一般就可以避免。

另外有时候是逻辑关系不够严谨。
特别是有时抄用人家的代码，但是又没改好的情况下，很容易出错。

无聊的疯子

下标越界

也就是说你指定的 变量 或者 常量 不在允许范围内

比如,你要往一张表名为"张三" 的 A1 单元格输入内容

1. 
   
2. Sheets("张三").Range("A1").Value = 2
   

复制代码

而你的工作薄中并没有 张三 工作表的存在,就会提示 下标越界

同样的,如果你要往第6张工作表的 A2 输入内容

1. 
   
2. Sheets(6).Range("A1").Value = 2
   

复制代码

而你的工作薄中只有5张工作表,那也会提示下标越界

对于数组的话,如果你的变量不在数组上下标范围内,则也会提示下标越界

1. 
   
2. Sub c()
   
3. Dim arr(-1 To 3)
   
4.   arr(4) = 2
   
5.   arr(-2) = 3
   
6. End Sub
   

复制代码

这个代码中数组的范围是 -1 到 3, 很明显 -2, 和 4 都不在这个范围内,那么肯定会提示错误

二维数组也是一样的

1. 
   
2. Sub c()
   
3. Dim arr(-1 To 3, 1 To 5)
   
4.   arr(1, 6) = 2
   
5.   arr(-2, 3) = 2
   
6. End Sub
   

复制代码

在实际中还有很多下标越界的,到时候你自己研究一下就明白了