１から１０までの和 ｜ エクセルマクロWiki

１から５の和を計算します。

For文を用いると簡単です。

 

Private Sub CommandButton1_Click()
　Dim i As Long
　Dim j As Long

　For i = 1 To 5
　　j = j + i
　Next
　MsgBox j
End Sub

一行ずつ説明します。

Dim i As Long
Dim j As Long

変数iとjを宣言します。

For i = 1 To 5

変数iが５になるまで繰り返す、という意味です。

j = j + i

変数jはこの時点では０です。よって、一回目のループでは「j = 0 + 1」なので、結果的に変数jの値は１です。二回目のループでは「j = 1 + 1」です。変数iはFor文のなかで１ずつ増分されていきますから、「j = １＋２＋３＋４＋５」をやっていることになります。

Next

For文の結びです。

MsgBox j

変数jの値をメッセージボックスに表示します。

 

---