Subプロシージャ例1

SubProcedure.bas

Sub MainSub()

    'Callを使ってSubプロシージャを呼び出す
    Call TestSub(5, 4)
    
End Sub

Sub TestSub(a As Integer, b As Integer)
    
    Dim result As Integer
    result = a + b
    
    '計算結果を「A1」のセルに代入
    Sheets("Sheet1").Cells(1, 1) = result
    
End Sub