vba - 将文本框值加一

Question

我有一个用户表单，它将显示 E 列中输入的最后一个值。

这很好，但是我希望用户表单显示最后一个值加一，这样用户就不必自己更改该值。

例如

“MSA 00-00-0001”<-这就是显示的内容，因为这是列中的最后一个值但是我希望用户表单显示 MSA 00-00-0002

通常情况下，我假设您只会使用 .Value + 1，但是由于连字符和值字段中的文本，这将不起作用。

Answer 1

假设您将当前值加载到 msa_string 中，您可以使用:

newvalue="MSA " & format(1+val(replace(right(msa_string,10),"-","")),"00-00-0000")

如果它并不总是启动 MSA_ 那么你可以这样做:

newvalue=left(msa_string,len(msa_string)-10) & format(1+val(replace(right(msa_string,10),"-","")),"00-00-0000")

使用您的方法，将 msa_string 与其他声明一起声明为字符串，然后:

msa_string=Worksheets("Temp").Range("E1").End(xlDown).Value
critCode.Value = left(msa_string,len(msa_string)-10) & format(1+val(replace(right(msa_string,10),"-","")),"00-00-0000")