是否可以在函数之外创建和设置 VBA 字典？

Question

我在 Excel VBA 中创建了几个需要使用 3 个字典的自定义函数。

这些字典一旦设置就不会改变。

现在每个字典都是在每个函数中创建的。

我宁愿清理它，设置一次字典，然后在函数中引用它。

很遗憾，我似乎找不到任何关于此主题的文档。

Answer 1

您正在寻找全局变量，它们是在程序的所有执行过程中在内存中存活的变量。

实际上：

Dim myDictionary As Scripting.Dictionary '<-- on top of module, outside of any macro/function. This makes the variable LOCAL to the module (i.e. accessible all over the subs and functions of the module)
'Alternatively (one or the other)
Public myDictionary As Scripting.Dictionary '<-- the variable is GLOBAL to all the program.

Sub init() '<-- initialize your dictionary once
    Set myDictionary = New Scripting.Dictionary
    myDictionary.add "Apples", 50
    myDictionary.add "Bananas", 40
End Sub

Function a() As Integer
    ...
    a = myDictionary("Apples") '<-- use your dictionary when you want
    ...
End Function

您可以在ThisWorkbook.Open 事件中调用init，这样一旦您的工作簿打开，您的字典就会在整个执行过程中存在。

Answer 2

类似这样的：

'declare some global variables to hold your dictionaries
Dim dict1 as object, dict2 as object, dict3 as object

'a sub to create and populate the dictionaries
sub InitDicts()
    If dict1 is nothing then

        'create and populate dicts 1-3

    End if
end sub

'*** functions which use the dictionaries ***

Function ThisFunction()
    InitDicts
    'use dicts
end function

Function ThatFunction()
    InitDicts
    'use dicts
end function