开票时前面带字母的数字自动递增

Question

我正在用excel开发发票软件

我用宏编写了代码

Sub CreateNewInvoice()
  Dim invno As Long

invno = Range("C3")
Range("C4:D4,C8:D8,B11:C11,B20:G36").ClearContents

MsgBox "Your next inovice number is " & invno + 1

Range("C3") = invno + 1
Range("B11").Select

ThisWorkbook.Save
End Sub

我还创建了切换按钮来运行此代码以获得下一个发票号码 当我运行此代码时，它将给出下一个发票号码 我现在需要的是 请告诉代码为我的代码添加字母

就像我需要“TN2425YP”前缀之后发票号码需要增加 示例 TN2425YP1 点击新发票后 TN2425YP2 需要这样改

请帮助我我需要改变什么

宏中的 VBA 代码 用字母增加发票号码

Answer 1

只需更换此行即可

invno = Range("C3")

有了这个

invno = "TN2425YP" & val( Replace( Range("C3"),"TN2425YP",""))+1