変数を引き継ぐには．．．

質問

Public Sub CommandButton1_Click()
Dim m As Integer
m = 1
run "macro8()"
End Sub

Sub Macro8()
range("a1")=m
end sub
run　を実行したときに，変数ｍを引き継ぐ方法を教えてください。

回答No.3

tinu 2000（@tinu2000） · ベストアンサー

Private Sub CommandButton1_Click()
　Dim m As Integer
　Dim z As String
　m = 10
　z = "ABC"
　Call Macro8(m, z)
End Sub

Private Sub Macro8(X As Integer, y As String)
　Range("a1") = X
　Range("a2") = y
End Sub

あえて、変数名を別にしてみました。
つまり、Macro8で使う変数は m や z で無くても良いのです。
順番とタイプが合えばOKです。

run "macro8()"は、
Call Macro8()にして下さい。　（call は要らないけど、明示したほうが分りやすい。）

Sub Macro8（）は、
Private Sub Macro8（）として下さい。

ではでは

回答No.2

merlionXX

Public Sub CommandButton1_Click()
Dim m As Integer
m = 1
Call Macro8(m)
End Sub

Sub Macro8(m As Integer)
Range("A1") = m
End Sub

回答No.1

noname#91724

これでどうでしょ？

Dim m As Integer
m = 1
Macro8 m
End Sub

Sub Macro8(m As Integer)
Range("a1") = m
End Sub

お礼

早速の回答をありがとうございます。
試したところ，
　コンパイルエラー
　subまたはFunctionが設定されていません。
とメッセージがでるのですが，何が原因でしょうか？