看流星社区

 找回密码
 注册账号
楼主: liuyh7788

[VB] VB混合数字与字母递增的方法

[复制链接]

该用户从未签到

发表于 2011-12-15 08:53:41 | 显示全部楼层 |阅读模式
购买主题 已有 1 人购买  本主题需向作者支付 1 流星币 才能浏览

该用户从未签到

发表于 2011-12-15 10:10:26 | 显示全部楼层
本帖最后由 o274274 于 2011-12-15 10:12 编辑

如B100100001依次递增,位数不变。(如B100100002,B100100003)

  1. Private Sub Command1_Click()
  2.     Dim S As String
  3.     Static N As Long
  4.     S = Left(Text1, 5)
  5.     N = Val(Right(Text1, 5))
  6.     N = N + 1
  7.     Text1 = S & Format(N, "00000")
  8. End Sub
复制代码

该用户从未签到

发表于 2011-12-17 22:36:24 | 显示全部楼层
混合数字与字母递增的?
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 13:48

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表