特定の数学的な一連の番目という用語は、T〜K〜、Kは下記式で定義される：

T〜K〜 = K ^ 2 ^ + 6K + 1 + 7 9K最初の項は、一連のT〜1〜は、すなわち式にK = 1を代入して得られる

T〜1〜 = 1 ^ 2 ^ + 6 + 1 = 1と9 + 7 2 T〜2〜 =私たちは下記2 ^ 2 ^ + 12 + 1 = 17 …​というように18 + 7 25 N.までの条件のいずれかの期間T〜kの〜との総和を計算エクセルVBAでプログラムを見て

Complex Calculations in Excel VBA

説明：ユーザーは、それぞれ直列またはN.への唯一の奇数項までの和の最初のN項の和を計算するために、「すべて」または「奇数」を入力するためのオプションを持っている

ワークシート上のコマンドボタンを配置し、次のコード行を追加します。

1.まず、我々はInteger型の4つの変数とString型の一つの変数を宣言します。

Dim i, term, N, stepSize As Integer

Dim sumType As String

2.第二に、我々は、変数を初期化します。

i = 0

N = Range("C2").Value

sumType = Range("C3").Value

フィールドを空にします。3.。

Range("A8:B1000").Value = ""

Range("C6").Value = ""

ステップサイズを決定します。4.。

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

ヒント選択ケース] プログラム：私たちのリンクを通過します。

5.計算を行います。

For term = 1 To N Step stepSize

Cells(8 + i, 1).Value = term

Cells(8 + i, 2).Value = (term ^ 2 + (6  term) + 1) / ((9  term) + 7)

Range("C6").Value = Range("C6").Value + Cells(8 + i, 2).Value

i = i + 1

Next term

説明：ループのカウンタ変数の増分（「すべて」の1と「奇数」2）を指定する/ VBA-例ステップキーワード[STEP] `キーワード：我々は`リンクを使用します。

結果：

Complex Calculations Result