Excel VBA #002

参照渡し　OR　値渡し

◆参照渡し

'参照渡し
Sub ByRefTest()
    Dim counter As Integer
    counter = 1
    test2 counter
    MsgBox counter
End Sub

Private Sub test2(ByRef counter)
    counter = counter + 1
End Sub

◆値渡し

'値渡し
Sub ByValTest()
    Dim counter As Integer
    counter = 1
    test4 counter
    MsgBox counter
End Sub

Private Sub test4(ByVal counter)
    counter = counter + 1
End Sub