已经解决了，谢谢各位。。。

xiamenjj

原帖由 cnzjjhzjf 于 2010-9-7 09:01 发表

打开生产指令工作簿，按ALT+F11打开VBE，看到下面代码，红色位置即是查询源数据表，有路径，当前为ThisWorkbook.Path & "\产品编号清单2.xls"即与本工作簿相同路径下的产品编号清单2.xls工作簿！如果查询位置更改了 ...

开始编号，按查询，会显示错误“457”是什么意思啊？要怎么改？

cnzjjhzjf

代码是相对的，不象公式插入一行公式自动更改，代码处理位置是根据代码固定的，没有你更改后的附件很难解释清楚！

xiamenjj

原帖由 cnzjjhzjf 于 2010-9-7 10:35 发表
代码是相对的，不象公式插入一行公式自动更改，代码处理位置是根据代码固定的，没有你更改后的附件很难解释清楚！

那我把开始编的代码发上来，你再帮我看看，万分感谢。。。问题出在底盘那边。。。其他几个没问题。。。

cnzjjhzjf

原帖由 xiamenjj 于 2010-9-7 10:42 发表

那我把开始编的代码发上来，你再帮我看看，万分感谢。。。问题出在底盘那边。。。其他几个没问题。。。

底盘表的15行与12行重复了！

cnzjjhzjf

如果清单2.xls有重复的话，可以改一下代码！
原来代码中：d.Add (sheets(m).Cells(j, 4) & sheets(m).Cells(j, 5) & sheets(m).Cells(j, 6) & "|" & sheets(m).Cells(j, 3)), ""这一句改成下面代码：

If Not d.exists((sheets(m).Cells(j, 4) & sheets(m).Cells(j, 5) & sheets(m).Cells(j, 6) & "|" & sheets(m).Cells(j, 3))) Then
            d.Add (sheets(m).Cells(j, 4) & sheets(m).Cells(j, 5) & sheets(m).Cells(j, 6) & "|" & sheets(m).Cells(j, 3)), ""
End If

xiamenjj

原帖由 cnzjjhzjf 于 2010-9-7 10:55 发表

底盘表的15行与12行重复了！

不是出在这里内，是在第17行那边，把17行一下删掉就可以用，但是从新输任何东西进去都不能用。。。你再看看，好吗？

xiamenjj

原帖由 cnzjjhzjf 于 2010-9-7 10:59 发表
如果清单2.xls有重复的话，可以改一下代码！
原来代码中：d.Add (sheets(m).Cells(j, 4) & sheets(m).Cells(j, 5) & sheets(m).Cells(j, 6) & "|" & sheets(m).Cells(j, 3)), ""这一句改成下面代码：

If Not d.e ...

有时候不同产品的组成部分尺寸会重复的，改成这样，那个14行的内部编号就显示不出来啦。。。。

xiamenjj

原帖由 cnzjjhzjf 于 2010-9-7 10:59 发表
如果清单2.xls有重复的话，可以改一下代码！
原来代码中：d.Add (sheets(m).Cells(j, 4) & sheets(m).Cells(j, 5) & sheets(m).Cells(j, 6) & "|" & sheets(m).Cells(j, 3)), ""这一句改成下面代码：

If Not d.e ...

可以了，可以了，谢谢，十分感谢，万分感谢。。。。有问题再请教你。。。

cnzjjhzjf

问题就出在重复这里！如果把15行或12行删除掉一行，或25楼改代码后，能够找的到！见附件！ 1.rar (40.88 KB, 下载次数: 14)

2010-9-7 11:13 上传

点击文件名下载附件

cnzjjhzjf

原帖由 xiamenjj 于 2010-9-7 11:05 发表

有时候不同产品的组成部分尺寸会重复的，改成这样，那个14行的内部编号就显示不出来啦。。。。

照你这么说，三列相同的编码都是不唯一的？你的12行和15行是完全一样，图号是空的，名称相同，规格也相同！