[已解决]使用VBA三级联动菜单制作商品自动编码系统

hyfire2008 · 发表于 2017-10-13 09:09

本帖最后由 hyfire2008 于 2017-10-13 09:26 编辑

工作需要，昨天刚做了个利用VBA三级联动菜单制作商品自动编码系统，此系统能在点击“生成编码”按钮后自动生成新的并且唯一（不重复）的商品编码，在第一次使用此系统时需点击“加载更新”按钮来加载数据，另使用过程中如有需要添加新数据后也需要重新点击“加载更新”按钮来更新数据。有需要的朋友抓紧了。。。（A2，B2，B3双击单元格就会出现联动菜单）另外有一事请教各位：
每次在点击“生成编码”时如果单元格N3为空时，每次都会弹出以下错误，N2以下除了N3会出现这情况其他的都不会出现以下错误，如果N3单元格手动输入任何数据后，点击生产编号又很正常，请问大师这是怎么回事，谢谢（看最下面图片）

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-10-13 11:21

用IsArray(ar)可以判断ar是否为数组。

跳转到最佳答案楼层

hyfire2008 · 发表于 2017-10-13 09:10

忘记说了单元格A2，B2，C2双击就能出现菜单

大灰狼1976 · 发表于 2017-10-13 09:39

出错原因：
N2单元格以下为空时，数组ar取得的值仅为N2单元格，这时ar并非数组，用ar(i, 1)来获取元素时就出错；
大于等于两个单元格时就没有问题。

hyfire2008 · 发表于 2017-10-13 10:46

大灰狼1976 发表于 2017-10-13 09:39
出错原因：
N2单元格以下为空时，数组ar取得的值仅为N2单元格，这时ar并非数组，用ar(i, 1)来获取元素时就 ...

感谢你的答复，想请教下这问题如何避免呢，加判断语句能解决吗？

大灰狼1976 · 发表于 2017-10-13 11:21

这个最佳答案由大灰狼1976 给出，感谢大灰狼1976 的回答。

单击隐藏图章

用IsArray(ar)可以判断ar是否为数组。

hyfire2008 · 发表于 2017-10-13 14:47

大灰狼1976 发表于 2017-10-13 11:21
用IsArray(ar)可以判断ar是否为数组。

太感谢了，完美解决！

大灰狼1976 · 发表于 2017-10-13 15:44

同样感谢你的分享精神，你的三级下拉非常好用，也很美观，肯定可以帮到更多的新人，谢谢！

匿名 *发表于 2019-5-14 00:34* · 发表于 2019-5-14 00:34

现在正在找这个的实现方法，感谢分享

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

[已解决]使用VBA三级联动菜单制作商品自动编码系统

评分