自动生成发票工作表名称excel答案

【问题标题】：automatic generate invoice worksheet name excel自动生成发票工作表名称excel
【发布时间】：2017-07-14 04:59:10
【问题描述】：

我有一个工作簿，每次打开新发票时都必须编辑工作表名称。

是否可以以增量方式自动生成发票编号？通过使用 VBA 或宏？

我应该如何以及从哪里开始？

【问题讨论】：

请添加更多信息。如何打开发票？您真的需要更改工作表名称吗？等
通常我只需右键单击我的主副本，然后勾选创建副本框并移动到结束
之后我会将创建的工作表名称更改为 P00001 之类的名称

【解决方案1】：

P，这应该为您提供一个宏的起点，您可以使用按键序列调用宏，或者在您的主控表上放置一个表单按钮以激活。这会将当前工作表（主表）复制到末尾，并将其重命名为“P”+ 您为发票编号选择的任何内容。然后将下一张发票的发票编号加 1，并将该值放在主表上的 K1 中。当然，根据需要进行编辑。如果您还没有找到解决方案，希望这对您有所帮助。

Sub CopySheet_End()
Dim InvNum
  '__pick a cell to put an invoice number in, like K1__
InvNum = ActiveSheet.Range("K1").Value

ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "P" & InvNum

InvNum = InvNum + 1
Sheets("MasterSheet").Select
Range("K1").Value = InvNum

End Sub

【讨论】：

将试用您的解决方案并对其进行修改，非常感谢 mamalmgren