数据有效性问题

2796769

哪位大神能指点一下，

taller

如果字典为空，那Join就会出错

1.         If d1.Count > 0 Then
   
2.             For r = 6 To u
   
3.                 With Sheet4.Range("l" & r).Validation
   
4.                     .Delete
   
5.                     .Add "3, 1, 1," & Join(d1.keys, ",")
   
6.                 End With
   
7.             Next
   
8.         End If

复制代码

2796769

taller 发表于 2019-2-17 00:25
如果字典为空，那Join就会出错

非常感谢大神的帮助，让我茅塞顿开。
现在还有一个问题，就是，当运行程序以后，单一产品编码运行正常，多产品编码就会批号，炉号，件数，就会都在数据有效性里面，我知道是循环的问题，但是不知道怎样进行限制，大神能给解一下惑吗？附件已上传，非常感谢。

taller

2796769 发表于 2019-2-18 18:35
非常感谢大神的帮助，让我茅塞顿开。
现在还有一个问题，就是，当运行程序以后，单一产品编码运行正常， ...

不明白楼主说的问题是什么意思

2796769

taller 发表于 2019-2-18 23:57
不明白楼主说的问题是什么意思

我举个列子，我的产品编码在U6,运行程序会生成U6下的产品编码，我选择150，运行程序，会生成150下的批号，炉号，件数，这是单一产品，运行正常，但是当U7有产品编码199的时候运行程序，批号就会显示两种产品150和199的批号，我想问一下，怎么解决这个问题

2796769

taller 发表于 2019-2-18 23:57
不明白楼主说的问题是什么意思

感谢大神的帮助，我找到解决方案了，先执行行循环，再执行列循环，在执行下一列之前清空字典。