Subプロシージャ例1
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 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment