入力欄に整数を入力してから実行ボタンを押すと、
消去ボタンを押すと、
を実現するするプログラム例
Private Sub CommandButton1_Click()
Dim a As Integer, M As Integer, n As Integer, i As Integer
M = Cells(5, 4)
n = Cells(5, 8)
a = 0
For i = 1 To n
a = a + i
Next
Cells(6, 2) = M
Cells(6, 4) = n
Cells(6, 7) = a
End Sub
Private Sub CommandButton2_Click()
Cells(5, 4).Select
Selection.ClearContents
Cells(5, 8).Select
Selection.ClearContents
Cells(6, 2).Select
Selection.ClearContents
Cells(6, 4).Select
Selection.ClearContents
Cells(6, 7).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
（Mだったりmだったりしていますが、大文字でも小文字でも
VBAの場合は動きます。ただし、C言語では、半角英数小文字しか使えません。
Mとなっているのはただのタイピングミスで意味はありません。
タイピングミスをそのまま放置しているのは、どちらでも動くからです。）
この実行例では、
８＋９＋・・・＋２５
を計算させています。
はじめの値と終わりの値をシート上から入力できますから、
汎用性はさらに高くなりました。
For文では、変化の幅を指定することが出来ます。
For i = 1 To 9 Step 2
・・・
Next
とすると、iは１，３，５，７，９と変化しながら、
ForとNextで挟まれている文（複数の文が可能です。）を実行させることになります。
さらに、
For i = 100 To 1 Step -3
・・・
Next
とすると、iは100,97,94,・・・,1と変化します。
変化させたい幅をStepの後に半角スペースを入れて書けばよいのです。
Stepを利用してさらに汎用性を高めて、
５＋８＋１１＋・・・＋３０５
のような計算をさせるマクロを開発しましょう。
５，８，１１，・・・,３０５
のような数列を等差数列と言い、
一番最初の項を初項、
終わりの講を末項、
項と項の差（これがすべて等しいので等差数列というのです。）
を公差（字に注意して下さい。項差ではありません。）と言うのです。
つまり、次ぎに作ろうとしているマクロは、
シート上から初項、末項、公差を指定して、
等差数列の和を求めるマクロです。
さあ、シートの画面も含めてマクロ作り頑張りましょう。
いろいろ試行錯誤をすることが大切ですよ。
和を表示する欄はセルの結合を行っています。
＊ ただし、C6、E6、G6に何も入力していないでうっかり実行ボタンを押すと、
始まりと終わりの指定がないので、永久に計算してしまいます。
うっかり押したときは、Escを押して
終了ボタンを押してください。第８話へ 第10話へ
