编码难题

class11class

因工作需要，需要这样一串编码，请大家帮忙下，这个VBA程序如何写呢？

shiruiqiang

点击25次好搞一点，否则要去除以26了

剑指E

~~~~~~~~~~~

高个子

点26次以后应该变成什么呢？

tmplinshi

1. Sub Main()
   
2.     Dim rng As Range, colName$, arr(), i&
   
3.    
   
4.     Set rng = [A1:A300]
   
5.     arr = rng.Value
   
6.     colName = IncreaseColumnName(rng.Cells(1))
   
7.    
   
8.     For i = 1 To UBound(arr)
   
9.         arr(i, 1) = Format(Now(), "yyyymmdd") & colName & Format(i, "000")
   
10.     Next
    
11.    
    
12.     rng.Value = arr
    
13. End Sub
    
14. 
    
15. Function IncreaseColumnName(str)
    
16.     Dim strCol$, strDate$, nextColAddr$
    
17.    
    
18.     strCol = Mid(str, 9, 2)
    
19.     strDate = Left(str, 8)
    
20.    
    
21.     If Len(strCol) <> 2 Or strDate <> Format(Now(), "yyyymmdd") Then
    
22.         IncreaseColumnName = "ab"
    
23.     Else
    
24.         nextColAddr = Columns(strCol).Offset(, 1).Address(False, False)
    
25.         IncreaseColumnName = LCase(Left(nextColAddr, 2))
    
26.     End If
    
27. End Function

复制代码

class11class

点击26次以后，则：ba01,ba02,.......bc01,bc02,......用完了，再用：ca01,ca02,.....da01,da02,ea,fa,ga,ha,要求：和上面一样

class11class

shiruiqiang 发表于 2023-2-4 22:59
点击25次好搞一点，否则要去除以26了

谢谢你的代码，对我工作有很大的帮助，这些编码够用了。

shiruiqiang

第52次ca开始

class11class

剑指E 发表于 2023-2-4 23:08
~~~~~~~~~~~

在编码前加个SN，是这样加吗

1. Dim n As Byte
   
2. 
   
3. Sub SN编码()
   
4. 
   
5.     Dim arr(299, 0), i%, d$
   
6.    
   
7.     d = Format(Date[color=Red],&"SN" &[/color]"yyyymmdd")
   
8.    
   
9.     s = Cells(1, 28 + n).Address(1, 0)
   
10. 
    
11.     s = LCase(Split(s, "$")(0))
    
12.    
    
13.     For i = 0 To 299
    
14.    
    
15.         arr(i, 0) = d & s & Format(i + 1, "000")
    
16.    
    
17.     Next
    
18.    
    
19.     n = n + 1
    
20. 
    
21.     [B1].Resize(300) = arr
    
22. 
    
23. 
    
24. End Sub

复制代码

gwjkkkkk

Option Explicit
Dim iTimes&
Sub test()
    Dim ar(1 To 300), i&, n&
   
    iTimes = iTimes + 1
    n = IIf(iTimes Mod 25 = 0, 25, iTimes Mod 25) + 1
    For i = 1 To UBound(ar)
       ar(i) = LCase(Format(Date, "yyyymmdda") & Split(Cells(1, n).Address(, 0), "$")(0) & Format(i, "#,00"))
    Next i
   
    [A1].Resize(300) = Application.Transpose(ar)
    Beep
End Sub