当Bn单元格非空时，An+1 比An单元格自动递增加1，应如何？

longqi010 · 发表于 2018-9-12 22:19

本帖最后由 longqi010 于 2018-9-12 22:21 编辑

求教，当Bn单元格非空时，An+1 比An单元格自动递增加1,要求“_后只有三位数字（因为递增后的最大数字为999）”。
  例子  A             B
      DT-001    德特机电
      DT-002       安龙                               ... ...       ... ...
      DT-010       北流

之前有在其他帖子上看到类似的公式修改后具体如下：
=IF(C5<>"",LEFTB(B4,5)&RIGHT(B4,3)+1,"")
通过这个公式可以让A列自动递增，但是第10位的时候会变成DT-0010

不知道为什么 · 发表于 2018-9-12 23:48

如图，是不是可以设置下单元格的格式，就很方便的达到你的要求了啊

不知道为什么 · 发表于 2018-9-12 23:50

供参考

longqi010 · 发表于 2018-9-13 22:57

不知道为什么发表于 2018-9-12 23:50
供参考

你好，谢谢回答。
VBA这块不太熟。可不可以不用按钮控制？因为我不是一开始就全部输入999的。是有客户才录入的。
我现在用的公式
1-9行是,=IF(C6<>"",LEFTB(B5,5)&RIGHT(B5,3)+1,"")
10-99行是,=IF(C6<>"",LEFTB(B5,4)&RIGHT(B5,3)+1,"")
100-999行是,=IF(C6<>"",LEFTB(B5,3)&RIGHT(B5,3)+1,"")

不知道为什么 · 发表于 2018-9-13 23:00

longqi010 发表于 2018-9-13 22:57
你好，谢谢回答。
VBA这块不太熟。可不可以不用按钮控制？因为我不是一开始就全部输入999的。是有客户才 ...

那就更简单了把，直接你设置下单元格格式不就可以了？

lsc900707 · 发表于 2018-9-14 06:19

longqi010 发表于 2018-9-13 22:57
你好，谢谢回答。
VBA这块不太熟。可不可以不用按钮控制？因为我不是一开始就全部输入999的。是有客户才 ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 And Target.Row < 3 And Target.Count > 1 Then Exit Sub
r = Target.Row
If Len(Target.Value) Then Cells(r, 2) = "DT" & "-" & Format(r - 3, "000")
End Sub

复制代码

lsc900707 · 发表于 2018-9-14 06:23

longqi010 发表于 2018-9-13 22:57
你好，谢谢回答。
VBA这块不太熟。可不可以不用按钮控制？因为我不是一开始就全部输入999的。是有客户才 ...

测试参考附件：

		自动登录	找回密码
密码			免费注册

[求助] 当Bn单元格非空时，An+1 比An单元格自动递增加1，应如何？

评分

评分