第k个^术语，T〜K〜，的某一数学级数由下式定义：

T〜K〜 = K ^ 2 ^ + 6K + 1 9K + 7中的第一项，T〜1〜，的系列是由代K = 1代入公式获得即

T〜1〜 = 1 ^ 2 ^ + 6 + 1 = 1和9 + 7 2 T〜2〜 = 2 ^ 2 ^ + 12 + 1 = 17 …​等18 + 7 25下面我们将看看在Excel VBA程序用于计算任意时间T条款多达N的〜K〜和求和

Complex Calculations in Excel VBA

说明：用户必须输入“全部”或“奇”，分别计算该系列或仅奇条款多达N的总和的前n项和的选项

将工作表上的一个命令按钮并添加以下代码行：

1.首先，我们声明类型整数的四个变量和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.确定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

选择案例计划，以了解更多的选择事例结构。

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为“奇”），用于循环的计数器变量。

结果：

Complex Calculations Result