[已解决]按条件自动生成编码（自动递增不能重复）

hyfire2008

各位老师，现准备做一个自动生成商品编码的东东，遇到一些困难，请求帮助，谢谢。具体描述见图。 求助.zip (10.02 KB, 下载次数: 1)

2017-9-23 10:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

windyjw007

2017-9-23 10:50

不知道是不是这个意思？{:4412:}

1. Sub 按钮1_Click()
   
2.     Dim ar
   
3.     Dim i As Long
   
4.     Dim bh As String
   
5.     Dim temp As Long
   
6.     bh = Cells(2, "K").Value
   
7.     ar = Range("N2:N" & Cells(Rows.Count, "N").End(3).Row)
   
8.     For i = 1 To UBound(ar)
   
9.         If Left(ar(i, 1), 5) = bh Then
   
10.             If Val(Right(ar(i, 1), 4)) > temp Then
    
11.                 temp = Val(Right(ar(i, 1), 4))
    
12.             End If
    
13.         End If
    
14.     Next i
    
15.     Cells(2, "M") = bh & Format(temp + 1, "0000")
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

windyjw007

不知道是不是这个意思？{:4412:}

1. Sub 按钮1_Click()
   
2.     Dim ar
   
3.     Dim i As Long
   
4.     Dim bh As String
   
5.     Dim temp As Long
   
6.     bh = Cells(2, "K").Value
   
7.     ar = Range("N2:N" & Cells(Rows.Count, "N").End(3).Row)
   
8.     For i = 1 To UBound(ar)
   
9.         If Left(ar(i, 1), 5) = bh Then
   
10.             If Val(Right(ar(i, 1), 4)) > temp Then
    
11.                 temp = Val(Right(ar(i, 1), 4))
    
12.             End If
    
13.         End If
    
14.     Next i
    
15.     Cells(2, "M") = bh & Format(temp + 1, "0000")
    
16. End Sub
    

复制代码

hyfire2008

windyjw007 发表于 2017-9-23 10:50
不知道是不是这个意思？

太感谢了。