在多个宏中使用变量

Question

Can someone explain what am I doing wrong here. Excel doesn't seem to set the variable value if I run the second macro before the first one. I would like to set the values just once and use them in multiple macros. I have 6 macros that will be using the same values. The code included below is a short code I use to test.

Option Explicit

Dim Test As String

Sub sub1()

Test = "Test"
MsgBox Test

End Sub

Sub sub2()

MsgBox Test

End Sub

This is the popup i get if the second macro is executed before the first one.

Answer 1

Just call the second macro from the first. Otherwise Test will not be assigned a value.

You can read about scope here .

Dim Test As String

Sub sub1()

Test = "Test"
MsgBox Test
sub2 'or call sub2

End Sub

Or you can use a Constant , eg

Public Const Test As String = "Test"

Answer 2

(see my edit below - the original answer doesn't answer the question you asked properly)

You can set it as a public variable

Option Explicit

Public Test As String

Sub sub1()

    Test = "Test"
    MsgBox Test

End Sub

Sub sub2()

    MsgBox Test

End Sub

Or call sub2 from sub1 with a parameter

Sub sub1()

    Test = "Test"
    MsgBox Test
    'call the second sub with the Test variable here
    sub2 Test

End Sub

Sub sub2(test as string)

    MsgBox test

End Sub

or have Sub1 be a function and return the value

Function sub1()

    Test = "Test"
    MsgBox Test
    'call the second sub with the Test variable here
    sub1 = Test

End Function

Sub sub2()
    test = sub1()
    MsgBox test

End Sub

EDIT:

Or you could wrap it all in another sub so you are able to define the public variable

Public Test as string 

Sub sub1()

    MsgBox Test

End Sub

Sub sub2()

    MsgBox Test

End Sub

Sub run()
    Test = "Test"
    sub1()
    sub2()

End Sub

Answer 3

If you want a variable to keep its value for the whole excel session (ie a static variable) use the Global keyword

Global Test As String

Remember, one of your procedures must assign a value to it. Otherwise it will have a value of ""