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