VBA 数组下标越界

rendiule01 · 发表于 2024-1-3 15:56

演示.zip (36.98 KB, 下载次数: 11)

递归时，数组Crr 运行错误 9 下标越界

调试停留在crr(k, 1) = arr(j, 1) '母件
若给数组Crr 的维度定义超大
' 获取 BOM_TF 表格数据i = Sheets("BOM表").Cells(Rows.Count, 1).End(xlUp).Rowarr = Sheets("BOM表").Range("A1:F" & i).Value' 初始化 crr 数组ReDim crr(1 To i * 10000, 1 To 7)
又报错运行时错误 28 溢出堆载空间

我的BOM表总共才32行，
' 初始化 crr 数组 ReDim crr(1 To i * 100, 1 To 7) 为何会报下标越界？？？？

excel玉米 · 发表于 2024-1-3 16:32

你试着将crr大小定义为1 to 100000，1 to 7试下

沈默00 · 发表于 2024-1-3 16:46

超出定义的10000了，加大点

vitrel · 发表于 2024-1-3 16:50

报错时，k值为10001，超过了定义时ReDim crr(1 To 10000, 1 To 7)的最大值，所以下标越界。

jy03342543 · 发表于 2024-1-3 17:04

vitrel 发表于 2024-1-3 16:50
报错时，k值为10001，超过了定义时ReDim crr(1 To 10000, 1 To 7)的最大值，所以下标越界。

请教下老师你的代码背景颜色是怎么弄的？

rendiule01 · 发表于 2024-1-3 17:23

本帖最后由 rendiule01 于 2024-1-3 17:41 编辑

vitrel 发表于 2024-1-3 16:50
报错时，k值为10001，超过了定义时ReDim crr(1 To 10000, 1 To 7)的最大值，所以下标越界。

bom表数据总共32行，为何数组定义那么大？？？？
假如Bom表是1000行数据，我该怎么crr数组定义多大？

vitrel · 发表于 2024-1-4 08:51

jy03342543 发表于 2024-1-3 17:04
请教下老师你的代码背景颜色是怎么弄的？

源于本论坛一位高手所写的VBA颜色修改器，有兴趣可以去看一下：
http://club.excelhome.net/thread-1521329-1-1.html

yynrzwh · 发表于 2024-1-4 09:46

死循环了吧

vitrel · 发表于 2024-1-4 10:04

rendiule01 发表于 2024-1-3 17:23
bom表数据总共32行，为何数组定义那么大？？？？
假如Bom表是1000行数据，我该怎么crr数组定义多大？

8楼是正解。
先看32行，母件BOM14013003的下层BOM为14013002，
再看29行，母件BOM14013002的下层BOM为14013003，
如此一来，就形成了一个死循环了。

换个角度测试，只要将32行删除掉，程序运行一切正常。

楼主您从这个角度自行修改一下代码吧。

		自动登录	找回密码
密码			免费注册

[求助] VBA 数组下标越界

评分

评分