Verwenden Sie Variable in mehreren Subs VBA

Question

So verwende ich Excel 2010, und im Moment versuche ich, den Wert einer Variablen in einem Sub zu berechnen, und will es in mehreren Subs verwendet werden, außer ich kann Wie finde ich das? Hier ist ein Beispiel dafür, was ich in seiner einfachsten Form mit

Public Sub Calc() 
Dim i As Integer 
i = 10 - 5  
End Sub 


'Other sub that will use the value for i calculated in the Calc sub 

Sub Macro() 
y = i +5 
End Sub 

Wie bin ich wohl zu verwenden, um der Lage sein,/pass diesen Wert für „i“ in/in das Unter Makro?

Answer 1

Insert neues Modul und definieren i als:

Public i As Integer 

Dann werden Sie in der Lage sein, es zu benutzen, wann immer Sie wollen.

Weitere Informationen finden Sie unter: Scope of variables in Visual Basic for Applications

Answer 2

die Dim oben die Subs bewegen

:

Public i As Integer 

Public Sub Calc() 
    i = 10 - 5 
End Sub 

Sub Macro() 
    y = i + 5 
    MsgBox y 
End Sub 

Sub MAIN() 
    Call Calc 
    Call Macro 
End Sub 

Versuchen MAIN()

Answer 3

laufen würde Ich mag Funktion verwenden anstelle von Sub.

Sub Main() 
    Msgbox Macro(calc) 
end Sub 

Function Calc() as Integer 
    Dim i As Integer 
    i = 10 - 5  
    Calc = i 
End Function 

Function Macro(i as Integer) as Integer 
    Macro = i + 5 
End Function