Excel Vba计数器功能

Question

我需要在函数中记住一个递增数字。

我有一个包含一些发票的文件，该发票要在新的工作表中重复，发票有一个递进编号。 此数字与避免在新工作表中重复注册有关。 如何将这个数字保留在函数中并从中开始进行更新。

目前，我正在工作表中使用一个单元格（但我想使用一个函数）

protocol_number = activecell.value (I get the prot nr in a sub)
range("a1000")=protocol_number

different sub
if Range("a1000") = activecell.value then 

Msgbox "the protocol number has been registered yet"
else
update code

谢谢你帮我

我想我不太清楚。 对此我感到抱歉。 我会尽力澄清。

2个工作簿第一个是一个大型金融公司庞大而详细的（第二个）工作簿的摘要，其中有一个员工输入了几张发票。 发票编号是不同的，并且字母数字（我们在意大利，并且有可能）。 但是在意大利会计中，必须通过称为协议编号的渐进编号设置所有发票输入。 该协议号用发票号，金额，公司，增值税和开具日期标记输入行。

将数据传输到摘要工作簿中，我总是让代码从beginnig开始（因为发票的提取始终是从其他Financial操作软件中检索的，该软件会创建一个包含所有发票的新excel文件，即使已在发票上报告的也是如此）摘要工作簿），继续查找协议nr，与输入的最后一个匹配，并从匹配的书中继续更新摘要工作簿。 （如果可以，请记住摘要工作簿中唯一未传输的数据中的协议号，如果可以的话）现在我将最后使用的协议号放在可以取消或覆盖或其他形式的单元格中。 所以我在问是否有一个功能（您不能说是不可能的）保持输入的最后一个协议编号，并且在下一次更新时将其与发票工作簿匹配，并在需要时进一步进行更新。 我没有发布代码，因为我仍在使用该单元作为协议号保持器。

希望这很清楚

Answer 1

您需要一个所谓的静态变量 ：

有时，当过程结束时，您想在Excel VBA中保留变量的值。 您可以通过使用Static关键字来实现。

Static protocol_number As Integer