VBA 参照渡し 値渡し
Sub sansyou() '参照渡し=>変数そのものを渡す ・値渡し=>変数の値を渡す
Dim buf As String
Dim buf2 As String
buf = "Excel VBA"
buf2 = "Excel VBA"
Call sansyou1(buf)
Call sansyou2(buf)
MsgBox buf
MsgBox buf2
End Sub
Sub sansyou1(ByRef msg As String) 'ByRef 参照渡し
msg = "VBAエキスパート"
End Sub
Sub sansyou2(ByVal msg As String) 'ByVal 値渡し
msg = "VBAエキスパート"
End Sub