Komplekse beregninger i Excel VBA

K^th term, T_k, av en viss matematisk serie er definert av følgende formel:

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

Den første termen, T₁, av serien oppnås ved å erstatte k = 1 i formelen, dvs.

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

T₂ =	2² + 12 + 1	=	17	... og så videre
	18 + 7		25

Nedenfor ser vi på et program i Excel VBA at beregner ethvert begrep T_k og summering av vilkår opp til N.

Forklaring: Brukeren har muligheten til å skrive inn "Alle" eller "Odd" for å henholdsvis beregne summen av de første N-betingelsene i serien eller summen av bare de odde vilkårene opp til N.

Legg en kommandoknapp på regnearket og legg til følgende kodelinjer:

1. Først erklærer vi fire variabler av typen Integer og en variabel av typen String.

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

2. For det andre, initierer vi variablene.

i = 0
N = Range("C2").Value
sumType = Range("C3").Value

3. Tøm feltene.

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

4. Bestem 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

Tips: Gå gjennom vårt utvalgs-program for å lære mer om Select Case-strukturen.

5. Gjør beregningene.

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

Forklaring: Vi bruker trinnsøkeordet til å spesifisere trinnet (1 for "Alle" og 2 for "Odd") for tellevariabelen i løkken.

Resultat: