VBA 1からnまでの和
Sub 総和()
Dim n As Integer
Dim i As Integer
Dim a As Integer
n = InputBox("n = ?")
For i = 1 To n
a = a + i
Next i
Call MsgBox(a)
End Sub
Sub 総和()
Dim n As Integer
Dim i As Integer
Dim a As Integer
n = InputBox("n = ?")
For i = 1 To n
a = a + i
Next i
Call MsgBox(a)
End Sub