vba - サブ変数を他のサブビジュアルベーシックに使用する

Question

他のサブで呼び出すことにより、サブから var 値を取得するにはどうすればよいですか? お気に入り

  Sub test()
    Dim a As Integer
    a = 1
  End Sub
  Sub testshow()
    MessageBox.Show(test.a)
  End Sub

Answer 1

SubVBA（タグの状態）では、次のように変更する必要がありFunctionます。

Function test()
    Dim a As Integer
    a = 1
    test = a
End Function

Sub testshow()
   MsgBox test
End Sub

コメント後の編集: 複数の変数を使用している場合:

Function test(whichVar)
    Dim a As Integer
    If whichVar = 1 then
        a = 100
    ElseIf whichVar = 2 Then
        a = 200
    'etc...
    End if

    test = a
End Function

Sub testshow()
   MsgBox test(2)    'will give you 200
End Sub