Excel VBA: private sub 内の変数の値を Sub へ渡すには

VBA初心者です。private sub 内で条件に合致した変数の値をSubへ渡すにはどうしたらよいのでしょう。下記を見ていただければやりたいことの意図は伝わるかと思います。private　sub内の変数が多分private sub内のみでしか参照出来ないからだとは思いますが、うまくいきません。グローバル変数化みたいなことが出来るのでしょうか。

Sub Find_OK()
MsgBox "条件に合致したのは" & var1 & "です。"
End Sub

Private Sub Worksheet_Calculate()
Dim var1
　For var1 = 1 to 10
　If var1 > 8 Then Call Find_OK
End If
Next
End Sub

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2007/06/13 23:40

Sub Find_OK(var1)

MsgBox "条件に合致したのは" & var1 & "です。"
End Sub

Private Sub Worksheet_Calculate()
Dim var1
　For var1 = 1 to 10
　If var1 > 8 Then Call Find_OK(var1)
End If
Next
End Sub

この回答へのお礼

ありがとうございました。うまくいきました。

お礼日時：2007/06/15 00:12

No.2 回答者： noname#97729 回答日時： 2007/06/13 23:42

ちょと違うかもしれませんが

このような感じでは、

Sub Find_OK(AAA As Integer)
MsgBox "条件に合致したのは" & AAA & "です。"
End Sub

Sub Worksheet_Calculate()
Dim var1
For var1 = 1 To 10
If var1 > 8 Then Find_OK (var1)
Next
End Sub

この回答へのお礼

ありがとうございました。

お礼日時：2007/06/15 00:12