戻り値なしで処理をまとめるメモ。
common.bas
'sub01
call sub01("sub01")
'sub02
call sub02("sub02")
'sub03
call sub03("sub03")
Sub sub01(txt As String)
'文字列表示
MsgBox txt & "!"
End Sub
Sub sub02(txt As String)
'文字列表示
MsgBox txt & "!!"
End Sub
Sub sub03(txt As String)
'文字列表示
MsgBox txt & "!!!"
End Sub
- 参考文献
Office VBA Reference