liuyh7788 发表于 2011-12-15 08:53:41

购买主题 已有 1 人购买  本主题需向作者支付 1 流星币 才能浏览

o274274 发表于 2011-12-15 10:10:26

本帖最后由 o274274 于 2011-12-15 10:12 编辑

如B100100001依次递增，位数不变。（如B100100002,B100100003)
Private Sub Command1_Click()
    Dim S As String
    Static N As Long
    S = Left(Text1, 5)
    N = Val(Right(Text1, 5))
    N = N + 1
    Text1 = S & Format(N, "00000")
End Sub

daxia6337 发表于 2011-12-17 22:36:24

混合数字与字母递增的？
页: [1]
查看完整版本: VB混合数字与字母递增的方法