✅ Komplexa beräkningar i Excel VBA

Innehållsförteckning

K: t^th term, T_k, av en viss matematisk serie definieras av följande formel:

T_k	=	k² + 6k + 1
		9k + 7

Den första termen, T₁, av serien erhålls genom att substituera k = 1 i formeln dvs.

T₁	=	1² + 6 + 1	=	1	och
		9 + 7		2

T₂	=	2² + 12 + 1	=	17	… och så vidare
		18 + 7		25

Nedan kommer vi att titta på ett program i Excel VBA det där beräknar någon term T_k och summering av villkor upp till N.

Förklaring: användaren har möjlighet att ange "Alla" eller "Udda" för att beräkna summan av de första N -termerna i serien eller summan av endast de udda termerna upp till N.

Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:

1. Först deklarerar vi fyra variabler av typ Heltal och en variabel av typ String.

Dim i, term, N, stepSize As Integer
Dim sumType As String

2. För det andra initierar vi variablerna.

jag = 0
N = Område ("C2"). Värde
sumType = Range ("C3"). Värde

3. Töm fälten.

Område ("A8: B1000"). Värde = ""
Område ("C6"). Värde = ""

4. Bestäm stepSize.

Välj Fall sumType
Fall är = "Alla"
stepSize = 1
Fall är = "udda"
stepSize = 2
Case Else
MsgBox "Ange ett giltigt uttryck i cell C3"
Slutet
Avsluta Välj

Tips: gå igenom vårt Select Case -program för att lära dig mer om Select Case -strukturen.

5. Gör beräkningarna.

För term = 1 till N Steg steg Storlek
Celler (8 + i, 1). Värde = term
Celler (8 + i, 2) .Värde = (term 2 + (6 * term) + 1) / ((9 * term) + 7)
Område ("C6"). Värde = intervall ("C6"). Värde + celler (8 + i, 2). Värde
i = i + 1
Nästa termin

Förklaring: vi använder steg -nyckelordet för att ange steget (1 för "Alla" och 2 för "Udda") för slingans räknarvariabel.

Resultat: