下标越界

hepburn1020 · 发表于 2018-7-26 14:57

各位大神，
小弟开发了一个小模块，运行时一直显示下标越界，哪位大神帮忙看看，是哪里写错了。

订单管理系统副本.rar (245.4 KB, 下载次数: 9)

不知道为什么 · 发表于 2018-7-26 15:04

如图

hepburn1020 · 发表于 2018-7-26 15:08

不知道为什么发表于 2018-7-26 15:04
如图

请问，能否扩展最大列数满足下面96列的需求呢？

一把小刀闯天下 · 发表于 2018-7-26 15:13

arr = Sheets("订单管理").[a2].CurrentRegion 下面插入一行
arr = [a2].Resize(UBound(arr, 1), 96)

-----
另外：
[a2].Resize(k, 18) = brr 改成，因为k可能为0
If k > 0 Then [a2].Resize(k, 18) = brr

不知道为什么 · 发表于 2018-7-26 15:18

hepburn1020 发表于 2018-7-26 15:08
请问，能否扩展最大列数满足下面96列的需求呢？

如图，帮你把前面的数组定义的部分改了下，当然还有其它方法，只是我习惯这样

你下面的代码应该还是有些问题的，你自己好好测试下

hepburn1020 · 发表于 2018-7-26 15:50

不知道为什么发表于 2018-7-26 15:18
如图，帮你把前面的数组定义的部分改了下，当然还有其它方法，只是我习惯这样

非常感谢！

hepburn1020 · 发表于 2018-7-26 15:50

一把小刀闯天下发表于 2018-7-26 15:13
arr = Sheets("订单管理").[a2].CurrentRegion 下面插入一行
arr = [a2].Resize(UBound(arr, 1), 96)

非常感谢！

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

[求助] 下标越界