具有在过程结束后持久存在的局部变量

Question

我不确定之前是否曾经问过,但我找不到它.假设我有一个带有局部变量的过程.通常,该函数在函数完成运行后会被销毁.但在某些情况下,我希望它能够持久存在,就像在这个例子中一样:

Function myFunction()
   Dim runCount As Integer

   runCount = runCount +1

   debug.print "This function is now running for the " & runCount & " time."
End Function

在此示例中,代码不起作用,因为每次都会重置runCount.当然,最简单的解决方案是声明一个全局变量,但在某些情况下,我想为了简单,封装或其他原因而避免这种情况.

那么,在程序运行完成后,有没有办法让局部变量保持不变？

Answer 1

使用Static关键字来声明您的局部变量,而不是Dim,并且变量的内容将比对其声明的过程的调用寿命更长.

例如,这将按预期工作:

Function myFunction()
   Static runCount As Integer

   runCount = runCount + 1

   debug.print "This function is now running for the " & runCount & " time."
End Function

Static当变量仅在局部范围内有意义或仅在一个过程中使用时,使用locals可能比声明模块范围变量更可取.

请注意,模块范围不等于全局范围.此变量可在其声明的模块中的任何位置访问,但不能在其外部访问:

Option Explicit
Private foo As Long

使用Private(或Dim,但我更喜欢保留Dim声明本地)或Public关键字来声明模块范围变量.该Global关键字已弃用,与其完全相同Public.

正如Kostas K.正确指出的那样,VBA也支持Static成员.

看到这个签名:

Function myFunction()

隐含地是Public成员.这将是明确的:

Public Function myFunction()

VBA支持Static在过程级别添加修饰符,因此您可以这样做:

Public Static Function myFunction()

现在你有一个Public函数,其中每个局部变量都是隐式的Static.这是太隐含的,容易出错的东西,为了我个人的口味,所以我会避免它.但如果你需要的话,知道它就在那里可能会很好.