ある数列のk番目の項Tkは、次の式で定義されます。
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
この式にk = 1と代入すれば、級数の第1項T1が求まる。e.
| T1 | = | 12 + 6 + 1 | = | 1 | and |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | ….など |
| 18 + 7 | 25 |
以下、任意の項TkとNまでの項の和を計算するExcel VBAのプログラムを見ていきましょう。
説明：ユーザーは、「すべて」または「奇数」を入力し、それぞれ系列の最初のN項の合計またはNまでの奇数の項のみの合計を計算するオプションを持ちます。
ワークシートにコマンドボタンを置き、次のコードラインを追加します：
1. まず、Integer型の変数4つとString型の変数1つを宣言します。
Dim i, term, N, stepSize As Integer
Dim sumType As String
Dim sumType As String
2.計算を実行します。 次に、変数を初期化します。
i = 0
N = Range(“C2”).Value
sumType = Range(“C3”).Value
N = Range(“C2”).Value
sumType = Range(“C3”).Value
3. フィールドを空にします。
Range(“A8:B1000”).Value = “”
Range(“C6”).Value
Range(“C6”).Value
3: フィールドを空にします。Value = “”
4.stepSizeを決定します。
Select Case sumType
Case Is = “All”
stepSize = 1
Case Is = “Odd”
stepSize = 2
Case Else
MsgBox “Enter a valid expression in cell C3”
End
End Select
Case Is = “All”
stepSize = 1
Case Is = “Odd”
stepSize = 2
Case Else
MsgBox “Enter a valid expression in cell C3”
End
End Select
ヒント：選択ケース構造についてもっと学ぶために我々の選択のケースプログラムを通過してください。 計算を行う。
説明：Stepキーワードを使用して、ループのカウンター変数の増分（「All」の場合は1、「Odd」の場合は2）を指定します。
結果：
。