Komplexe Berechnungen in Excel VBA
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
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:
-
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
-
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 = ""
-
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.
-
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: