VBA 標準モジュールとフォーム

質問

ある標準モジュール内で生成した変数の値をフォームのコマンドボタンをクリックしたら表示されるプログラムはどうやってつくるのですか？

標準モジュール
sub test()
dim a as integer
dim b as integer
dim sum as string

a=5
b=1
sum=a+b

End sub

フォームのコマンドボタンクリック
Sub CommandButton1_Click()
MsgBox sum
End Sub

標準モジュールで計算した答えがフォームのコマンドボタンをクリックしたら答え6が表示されるようにしたいのですが、どうしたらできますか？

回答No.2

kmetu

Public sum As Integer

Public Sub test()

Dim a As Integer
Dim b As Integer
'Dim sum As String

a = 5
b = 1
sum = a + b

End Sub

Private Sub Command1_Click()

test
MsgBox sum

End Sub

でいかがでしょうか

回答No.1

merlionXX

そういうときはSubではなくFunctionをつかいます。

Function sum() As Long
Dim a As Integer
Dim b As Integer

a = 5
b = 1
sum = a + b
End Function

Sub CommandButton1_Click()
MsgBox sum
End Sub