Die k ^ te ^ Begriff, T ~ k ~, der eine bestimmte mathematische Reihe wird durch die folgende Formel definiert:

_T ~ K ~ _ = k ^ 2 ^ + 6k + 1 + 7 9K Der erste Term, T ~ 1 ~, der die Serie durch Substituieren k = 1 in die Formel erhalten wird, das heißt

_T ~ 1 ~ _ = 1 ^ 2 ^ + 6 + 1 = 1 und 9 + 7 2 _T ~ 2 ~ _ = 2 ^ 2 ^ + 12 + 1 = 17 …​ und so weiter 18 + 7 25 Im Folgenden werde Blick auf ein Programm in Excel VBA, die jeden Begriff T ~ k ~ und Summierung von Begriffen bis zu N. berechnet

Complex Calculations in Excel VBA

Erläuterung: Der Benutzer hat die Option „Alle“ oder „Ungerade“ einzugeben, berechnen jeweils die Summe der ersten N Glieder der Reihe oder die Summe nur die ungeraden Bedingungen N. bis

Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

  1. Zuerst erklären wir vier Variablen vom Typ Integer und eine Variable vom Typ String.

Dim i, term, N, stepSize As Integer

Dim sumType As String
  1. Zweitens initialisieren wir die Variablen.

i = 0

N = Range("C2").Value

sumType = Range("C3").Value

Leeren Sie die Felder 3..

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

Range("C6").Value = ""
  1. Bestimmen Sie 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

Tipp: Gehen Sie durch unseren Select Case Programm mehr über die Select Case-Struktur zu lernen.

  1. Die Berechnungen durchführen.

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

Erläuterung: Wir benutzen den Schritt Schlüsselwort das Inkrement zu spezifizieren (1 für „All“ und 2 „odd“) für die Zählervariable der Schleife.

Ergebnis:

Complex Calculations Result