加入最大单号

CNS1993

求助:加入最大单号,谢谢! 取最大号.rar (18.98 KB, 下载次数: 15)

2020-1-30 14:20 上传

点击文件名下载附件

蓝桥玄霜

最大号的代码：

一把小刀闯天下

Option Explicit

Sub 调拨最大号()
  Dim i, arr, p, n, flag As Boolean
  With Sheets("数据库")
    arr = .[a1].CurrentRegion
    For i = 2 To UBound(arr, 1)
      If Left(arr(i, 4), 1) = "T" Then
        If Mid(arr(i, 4), 2, 6) = Format(Date, "yyyymm") Then flag = True
        If n < Val(Mid(arr(i, 4), 2)) Then n = Val(Mid(arr(i, 4), 2)): p = i
      End If
    Next
    If p > 0 Then
      If flag Then
        .Cells(.[D1].End(xlDown).Row + 1, "d") = "T" & (Val(Mid(arr(p, 4), 2)) + 1)
      Else
        .Cells(.[D1].End(xlDown).Row + 1, "d") = "T" & Format(Date, "yyyymm") & "001"
      End If
    End If
  End With
End Sub

taller

请参考

1. Sub 调拨最大号()
   
2.     Dim lstR, maxNo
   
3.     maxNo = "000000XXX"
   
4.     With Sheets("数据库")
   
5.         lstR = .[d65536].End(xlUp).Row
   
6.         adata = .Range("D2:D" & lstR).Value
   
7.         For i = 1 To lstR - 1
   
8.             If UCase(Left(adata(i, 1), 1)) = "T" Then
   
9.                 rec = adata(i, 1)
   
10.                 If rec > maxNo Then maxNo = rec
    
11.             End If
    
12.         Next
    
13.         mth = Format(Date, "YYYYMM")
    
14.         If maxNo = "000000XXX" Or mth > Mid(maxNo, 2, 6) Then
    
15.             maxNo = "T" & mth & "001"
    
16.         Else
    
17.             maxNo = "T" & CStr(Mid(maxNo, 2) * 1 + 1)
    
18.         End If
    
19.         .Cells(lstR + 1, "D") = maxNo
    
20.     End With
    
21. End Sub

复制代码

taller

示例文件

取最大号.7z (21.02 KB, 下载次数: 3)

2020-1-30 15:44 上传

点击文件名下载附件

CNS1993

taller 发表于 2020-1-30 15:42
请参考

谢谢版主!祝新年快乐!

CNS1993

蓝桥玄霜 发表于 2020-1-30 14:49
最大号的代码：

谢谢版主！新年快乐！！！

CNS1993

一把小刀闯天下 发表于 2020-1-30 14:51
Option Explicit

Sub 调拨最大号()

谢谢您，亲爱的老师，辛苦了！新年快乐！