增加excel中每次保存文件的计数

Question

我在Excel中创建了一个用于生成帐单的应用程序，并将数据保存在同一个excel文件中的其他工作表中。

现在我需要增加账单中发票号的值。保存帐单后，我的发票号码为2016-17/12345，此值应为2016-17/12346。

Dim CustomerInvoice As Long
Range("H10").Value = Range("H10") + 1
-
-
CustomerInvoice = Range("H10")
-
-
ActiveCell.Value = CustomerInvoice
ActiveCell.Offset(0, 1).Select

Answer 1

试试这个

Range("H10").Value = Split(Range("H10").Value, "/")(0) & _
                     "/" & _
                     Val(Split(Range("H10").Value, "/")(1)) + 1

我的假设：Range("H10").Value的当前值为2016-17/12345