Komplexní výpočty v aplikaci Excel VBA

K^th termín, T_k, určité matematické série je definována následujícím vzorcem:

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

První termín, T₁, ze série se získá substitucí k = 1 do vzorce, tj.

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

T₂ =	2² + 12 + 1	=	17	... a tak dále
	18 + 7		25

Níže se podíváme na program v Excel VBA že vypočítá jakýkoli termín T_k a součet termínů až do N.

Vysvětlení: uživatel má možnost zadat "Vše" nebo "Nepárný", aby vypočítal součet prvních N termínů série nebo součet pouze lichých výrazů až do N.

Umístěte na pracovní list příkazové tlačítko a přidejte následující řádky kódu:

1. Nejprve deklarujeme čtyři proměnné typu Integer a jednu proměnnou typu String.

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

2. Zadruhé inicializujeme proměnné.

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

3. Vyprázdněte pole.

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

4. Určete 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

Tip: Projděte si náš program Select Case a dozvíte se více o struktuře Select Case.

5. Proveďte výpočty.

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

Vysvětlení: používáme klíčové slovo Step pro zadání přírůstku (1 pro "Vše" a 2 pro "Odd") pro proměnnou proměnné smyčky.

Výsledek: