�ｿｽ�ｿｽ�ｿｽ[�ｿｽU�ｿｽ[�ｿｽ�ｿｽ`�ｿｽﾖ撰ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽbExcel VBA

�ｿｽc�ｿｽC�ｿｽ[�ｿｽg

VBA�ｿｽﾉは、�ｿｽl�ｿｽ�ｿｽﾔゑｿｽ�ｿｽﾈゑｿｽSub�ｿｽv�ｿｽ�ｿｽ�ｿｽV�ｿｽ[�ｿｽW�ｿｽ�ｿｽ�ｿｽﾆ、�ｿｽl�ｿｽ�ｿｽﾔゑｿｽFunction�ｿｽv�ｿｽ�ｿｽ�ｿｽV�ｿｽ[�ｿｽW�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB

Sub Sample1()
    Dim buf As Long
    buf = 123
    MsgBox Func1(buf)
End Sub

Function Func1(arg As Long)
    Func1 = arg * 2
End Function

Func1�ｿｽﾌよう�ｿｽﾈ、�ｿｽl�ｿｽ�ｿｽﾔゑｿｽFunction�ｿｽv�ｿｽ�ｿｽ�ｿｽV�ｿｽ[�ｿｽW�ｿｽ�ｿｽ�ｿｽﾍ、�ｿｽ�ｿｽ�ｿｽ[�ｿｽN�ｿｽV�ｿｽ[�ｿｽg�ｿｽ�ｿｽﾅゑｿｽ�ｿｽg�ｿｽp�ｿｽﾅゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽ[�ｿｽN�ｿｽV�ｿｽ[�ｿｽg�ｿｽ�ｿｽﾅ使�ｿｽp�ｿｽ�ｿｽ�ｿｽ驍ｱ�ｿｽﾆゑｿｽﾚ的�ｿｽﾆゑｿｽ�ｿｽ�ｿｽFunction�ｿｽv�ｿｽ�ｿｽ�ｿｽV�ｿｽ[�ｿｽW�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽA�ｿｽ�ｿｽ�ｿｽ[�ｿｽU�ｿｽ[�ｿｽ�ｿｽ`�ｿｽﾖ撰ｿｽ�ｿｽﾆ呼びまゑｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽﾆゑｿｽ�ｿｽﾎ、�ｿｽ�ｿｽL�ｿｽ�ｿｽFunc1�ｿｽﾍ、�ｿｽZ�ｿｽ�ｿｽ�ｿｽﾉ「=Func1(123)�ｿｽv�ｿｽﾌよう�ｿｽﾉ難ｿｽ�ｿｽﾍゑｿｽ�ｿｽ驍ｱ�ｿｽﾆで、SUM�ｿｽﾖ撰ｿｽ�ｿｽ�ｿｽVLOOKUP�ｿｽﾖ撰ｿｽ�ｿｽﾈどと難ｿｽ�ｿｽ�ｿｽ�ｿｽ謔､�ｿｽﾉ使�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾆゑｿｽ�ｿｽﾅゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB

�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾆゑｿｽ�ｿｽﾄ撰ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�け趣ｿｽ驛��ｿｽ[�ｿｽU�ｿｽ[�ｿｽ�ｿｽ`�ｿｽﾖ撰ｿｽ�ｿｽﾍ、�ｿｽ�ｿｽLFunc1�ｿｽﾌ「(arg As Long)�ｿｽv�ｿｽﾌよう�ｿｽﾉ茨ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ型�ｿｽﾉ撰ｿｽ�ｿｽl�ｿｽ^�ｿｽ�ｿｽ�ｿｽw�ｿｽ閧ｵ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉセ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽﾍセ�ｿｽ�ｿｽ�ｿｽﾍ囲ゑｿｽ�ｿｽ�け趣ｿｽ�ｿｽﾆゑｿｽ�ｿｽﾍ、�ｿｽ�ｿｽ�ｿｽﾌよう�ｿｽ�ｿｽRange�ｿｽ^�ｿｽﾌ茨ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽg�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽﾌ��ｿｽ�ｿｽ[�ｿｽU�ｿｽ[�ｿｽ�ｿｽ`�ｿｽﾖ撰ｿｽ�ｿｽﾍ、�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉ指�ｿｽ閧ｳ�ｿｽ黷ｽ�ｿｽZ�ｿｽ�ｿｽ�ｿｽﾌ包ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽA�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄ返ゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB

Function Func2(arg As Range)
    Dim c As Range, ans As String
    For Each c In arg
        ans = ans & c.Text
    Next c
    Func2 = ans
End Function

�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ撰ｿｽ�ｿｽ�ｿｽ�ｿｽs�ｿｽ�ｿｽﾌとゑｿｽ�ｿｽiParamArray�ｿｽj

CHOOSE�ｿｽﾖ撰ｿｽ�ｿｽﾌよう�ｿｽﾉ、�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾂ指�ｿｽ閧ｳ�ｿｽ�ｿｽ驍ｩ�ｿｽ�か�ｿｽ�ｿｽﾈゑｿｽ�ｿｽ鼾��ｿｽﾉは、ParamArray�ｿｽﾆゑｿｽ�ｿｽ�ｿｽ�ｿｽL�ｿｽ[�ｿｽ�ｿｽ�ｿｽ[�ｿｽh�ｿｽ�ｿｽt�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ骭ｾ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽﾌ��ｿｽ�ｿｽ[�ｿｽU�ｿｽ[�ｿｽ�ｿｽ`�ｿｽﾖ撰ｿｽ�ｿｽﾍ、CHOOSE�ｿｽﾖ撰ｿｽ�ｿｽﾆ難ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB

Function Func3(arg1 As Long, ParamArray arg2())
    Func3 = arg2(arg1 - 1)
End Function

�ｿｽ�ｿｽ�ｿｽﾈ暦ｿｽ�ｿｽﾂ能�ｿｽﾈ茨ｿｽ�ｿｽ�ｿｽ�ｿｽﾉゑｿｽ�ｿｽ�ｿｽﾉゑｿｽ

�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ�ｿｽ黷ｽ�ｿｽﾆゑｿｽ�ｿｽﾌ対会ｿｽ�ｿｽﾉは、2�ｿｽﾊりあ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
1�ｿｽﾂは、�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ�ｿｽ黷ｽ�ｿｽﾆゑｿｽ�ｿｽﾌ擾ｿｽ�ｿｽ�ｿｽ�ｿｽl�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ轤ｩ�ｿｽ�ｿｽ�ｿｽﾟ設定し�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ@�ｿｽﾅゑｿｽ�ｿｽB

Function Func4(arg1 As Range, Optional arg2 As Long = 2)
    Func4 = arg1.Value / arg2
End Function

�ｿｽ�ｿｽ�ｿｽ�ｿｽ1�ｿｽﾂは、�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ�ｿｽ黷ｽ�ｿｽ�ｿｽ�ｿｽﾇゑｿｽ�ｿｽ�ｿｽ�ｿｽ�判定す�ｿｽ�ｿｽ�ｿｽ�ｿｽ@�ｿｽﾅゑｿｽ�ｿｽB
Optional�ｿｽﾅ省暦ｿｽ�ｿｽﾂ能�ｿｽﾉゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ�ｿｽ黷ｽ�ｿｽ�ｿｽ�ｿｽﾇゑｿｽ�ｿｽ�ｿｽ�ｿｽﾍ、IsMissing�ｿｽﾖ撰ｿｽ�ｿｽﾅ費ｿｽ�ｿｽ閧ｵ�ｿｽﾜゑｿｽ�ｿｽB�ｿｽﾈ暦ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽﾆ、True�ｿｽ�ｿｽﾔゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB

Function Func5(arg1 As Range, Optional arg2 As Variant)
    Dim buf As Long
    If IsMissing(arg2) Then
        buf = 2
    Else
        buf = arg2
    End If
    Func5 = arg1.Value / buf
End Function

�ｿｽﾈゑｿｽ�ｿｽA�ｿｽ�ｿｽ�ｿｽ[�ｿｽU�ｿｽ[�ｿｽ�ｿｽ`�ｿｽﾖ撰ｿｽ�ｿｽﾅは、�ｿｽ�ｿｽ�ｿｽﾌよう�ｿｽﾈ難ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽs�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾆはでゑｿｽ�ｿｽﾜゑｿｽ�ｿｽ�ｿｽB

• �ｿｽZ�ｿｽ�ｿｽ�ｿｽﾌ挿�ｿｽ�ｿｽ/�ｿｽ�除
• �ｿｽ�ｿｽ�ｿｽZ�ｿｽ�ｿｽ�ｿｽﾌ値�ｿｽﾌ変更
• �ｿｽA�ｿｽN�ｿｽe�ｿｽB�ｿｽu�ｿｽZ�ｿｽ�ｿｽ�ｿｽ�ｿｽI�ｿｽ�ｿｽﾍ囲の変更
• �ｿｽV�ｿｽ[�ｿｽg�ｿｽﾌ挿�ｿｽ�ｿｽ/�ｿｽ�除�ｿｽ笆ｼ�ｿｽO�ｿｽﾌ変更
• Excel�ｿｽﾌ設抵ｿｽﾌ変更