- 注册时间
- 2011-11-28
- 最后登录
- 1970-1-1
该用户从未签到
|
发表于 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
复制代码 |
|