请求修改代码：自动编码不重复--密码已解除

samuel-he

条件:
1. 在A列选择"其它"
2. 在B列选择"对应"的产品类别
3.  在M列自动产生一组合编码,要求所有的编码不重复！
问题:
1. 现在的会重复编！如：M1761自动产生的编码是：3100000001 现改为：3100000002
2. 在M1762在产生时还会是3100000002
请求:
如何让M列代码在已存在的情况下不再产生,接递流水产号呢?

请高人帮修改代码!

[ 本帖最后由 samuel-he 于 2010-11-16 13:42 编辑 ]

cm6705

要别人帮你。表格中还设置工程保护密码。如何帮你？

samuel-he

原帖由 cm6705 于 2010-11-16 13:32 发表
要别人帮你。表格中还设置工程保护密码。如何帮你？

对不起忘记去掉密码! 一楼已经更新了!

changxuegu

我也想知道。

[ 本帖最后由 changxuegu 于 2010-11-16 13:48 编辑 ]

cm6705

请问G列的数据是自动生成还是输入的？看表格中M列编码前5位是根据E列至G列的数据合并生成的。请详细说明一下。主要是G列的数据生成规则。

cm6705

由于楼主没有回复我的问题，只能猜测了。见代码：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Rng As Range, StrHy$
   
3.    With Sheets("其它类-11")
   
4.       Application.EnableEvents = False
   
5.       If Target.Column = 1 Then
   
6.          Set Rng = .[a:a].Find(Target.Value, , , 1)
   
7.          If Not Rng Is Nothing Then Target(1, 5) = Rng(1, 2)
   
8.       ElseIf Target.Column = 2 Then
   
9.          Set Rng = .[d:d].Find(Target.Value, , , 1)
   
10.          If Not Rng Is Nothing Then Target(1, 5) = Rng(1, 2)
    
11.       ElseIf Target.Column = 7 Then
    
12.          StrHy = Target(1, -1) & Target(1, 0) & Target
    
13.          Cells(Target.Row, "L") = StrHy
    
14.          Set Rng = [m:m].Find(StrHy, Lookat:=2, SearchDirection:=2)
    
15.          If Not Rng Is Nothing Then
    
16.             Cells(Target.Row, "M") = StrHy & Format(Val(Right(Rng, 5)) + 1, "00000")
    
17.          Else
    
18.             Cells(Target.Row, "M") = StrHy & Format(1, "00000")
    
19.          End If
    
20.       End If
    
21.       Application.EnableEvents = True
    
22.    End With
    
23. End Sub

复制代码

samuel-he

原帖由 cm6705 于 2010-11-16 13:56 发表
请问G列的数据是自动生成还是输入的？看表格中M列编码前5位是根据E列至G列的数据合并生成的。请详细说明一下。主要是G列的数据生成规则。

很抱歉刚离开刚回来！G列是之前的规则现在不管G列.不用自动产生也不用手输

cm6705

原帖由 samuel-he 于 2010-11-16 17:40 发表

很抱歉刚离开刚回来！G列是之前的规则现在不管G列.不用自动产生也不用手输

还是不太明白，M列的前5位数据是E列至G列的数据生成。即然不管G列数据，那M列数据中的第3至第5位是如何产生的？

samuel-he

原帖由 cm6705 于 2010-11-16 17:57 发表

还是不太明白，M列的前5位数据是E列至G列的数据生成。即然不管G列数据，那M列数据中的第3至第5位是如何产生的？

有答案了！谢谢！
Private Sub Worksheet_Change(ByVal Target As Range)
'用途码
    On Error Resume Next
    If Target.Column = 1 And Target.Count = 1 Then
        Set B = Sheet11.Range("A:A").Find(Target, lookat:=xlWhole)
        If Not B Is Nothing Then
     '  MsgBox Target
            Target.Offset(0, 4) = B.Offset(0, 1)            
        'MsgBox Target
            Target.Offset(0, 4) = e.Offset(0, 1)
            
      
            
                       '编码
w = Target.Row
For K = 5 To 6
Cells(w, 12) = Cells(w, 12) & Cells(w, K)
Next
x = Split(Range("l2:l" & w).Find(what:=Cells(w, 12), after:=Cells(w, 12), lookat:=xlWhole, _
    SearchDirection:=xlPrevious).Offset(, 1), Cells(w, 12))(1)
Cells(w, 13) = Cells(w, 12) * 100000000 + x + 1
End If
            End If            
    End Sub
红色部分为修改的地方.

gumption83

收藏下来 学习学习