使用非默认值在VBA中初始化静态变量

Question

VBA中的静态变量非常简单:

Public Sub foo()
    Static i As Integer
    i = i + 1
    Debug.Print i
End Sub

输出(多次调用时):

1
2
3
...

问题是,VBA不支持在与声明相同的行上初始化变量(不计算:在一行上放两行):

Public Sub foo()
    Dim i As Integer = 5 'won't compile!

    Dim j As Integer
    j = 5 'we have to do this instead
End Sub

这与静态变量冲突:

Public Sub foo()
    Static i As Integer 'we can't put an initial value here...
    i = 5 'so this is how we'd usually initialize it, but...
    i = i + 1
    Debug.Print i
End Sub

您可能会看到发生了什么 - 每次foo调用变量时所做的第一件事就是将其自身设置为5.输出:

6
6
6
...

如何将VBA中的静态变量初始化为默认值以外的值？或者这只是VBA丢球？

Answer 1

如果要保留静态语义而不切换到全局语法,则执行此操作的一种方法是嗅探默认值,然后设置初始条件:

Static i As Integer
if (i = 0) then i = 5

也许是更安全的替代方案

Static i As Variant
if isempty(i) then i = 5

要么

Public Sub foo(optional init as boolean = false)
    Static i As Integer
    if init then
      i = 5
      exit sub
    endif

您可能还可以使用默认属性创建一个类并使用,class_initialize但这可能有点过于繁琐.