VBA – 在更多模块中使用相同的variables

我想要三个总结如下的模块：

第一个模块

Sub settings() Dim variable1,variable2,variable3,_ variable4,variable5,variable6 as String variable1="Stack" variable2="Overflow" variable3="Best" variable4="Site" variable5="Ever" variable6="I love it!" End sub 

第二个模块

 Sub module2() 'LINE CODE THAT CALLS "settings" MODULE (I want to know it!) 'my sub that uses the six-variables above End sub 

第三模块

 Sub module3() 'LINE CODE THAT CALLS "settings" MODULE (I want to know it!) 'another sub that uses the six-variables above End sub 

提前致谢。

法比奥

Answer 1

看来这些variables将始终保持相同的值，如果是这样的话，我build议使用下面的代码来声明公共常量（请参阅https://msdn.microsoft.com/en-us/library/office/gg264636 .aspx ）

 Public Const kConst1 As String = "Stack" Public Const kConst2 As String = "Overflow" Public Const kConst3 As String = "Best" Public Const kConst4 As String = "Site" Public Const kConst5 As String = "Ever" Public Const kConst6 As String = "I love it!" 

使用常量作为：

 Sub Test_Const() Debug.Print kConst1, kConst2, kConst3, kConst4, kConst5, kConst6 End Sub 

Answer 2

你应该有这些模块：

模块1：

 Public variable1, variable2, variable3, variable4, variable5, variable6 As String Sub settings() variable1 = "Stack" variable2 = "Overflow" variable3 = "Best" variable4 = "Site" variable5 = "Ever" variable6 = "I love it!" End Sub 

模块2：

 Sub module2() Module1.settings MsgBox "value : " & Module1.variable1 End Sub 

在模块2中，您将必须先运行settings()子例程，然后使用这些variables，因为variables的赋值在settings()发生。