入力欄に入力してから実行ボタンを押すと、
消去ボタンを押すと、
＊ ただし、C6、E6、G6に何も入力していないでうっかり実行ボタンを押すと、
始まりと終わりの指定がないので、永久に計算してしまいます。
うっかり押したときは、Escを押して
終了ボタンを押してください。を実現するするプログラム例
Private Sub CommandButton1_Click()
Dim a As Integer, M As Integer, n As Integer, d As Integer, i As Integer
M = Cells(6, 3)
n = Cells(6, 5)
d = Cells(6, 7)
a = 0
For i = M To n Step d
a = a + i
Next
Cells(7, 5) = a
End Sub
Private Sub CommandButton2_Click()
Cells(6, 3).Select
Selection.ClearContents
Cells(6, 5).Select
Selection.ClearContents
Cells(6, 7).Select
Selection.ClearContents
Cells(7, 5).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
皆さん、このマクロをさらに改善して、
（２の２乗＋７の２乗＋１２の２乗＋・・・＋３２の２乗）
（２の３乗＋７の３乗＋１２の３乗＋・・・＋３２の３乗）
（２の４乗＋７の４乗＋１２の４乗＋・・・＋３２の４乗）のような計算も出来るようにして下さい。
ただし、変数はすべて
im a As Long, M As Long, n As Long, d As Long, i As Long
と長整数型として宣言して下さい。
値が大きくなりIntegerの範囲をあっと今に超えてしまうからです。
IntegerとLongの範囲は、それぞれ
-2147483648 〜 2147483647と
-9223372036854775808 〜 9223372036854775807
になります。
長整数型にしても
末項を大きくすると４乗の和辺りでは、
オーバ−フロー（限界値を超えてしまうこと）しますので、
末項は小さめに入れて下さい。
オーバーフローした場合は、
終了ボタンを押してください。
いくつぐらいでオーバーフローするのかは、
皆さんが実験されて確認して下さい。
