✅ Kompleksni izračuni v Excelu VBA - enostavni Excelovi makri

Kazalo

K^th izraz, T._k, določene matematične vrste je definirana z naslednjo formulo:

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

Prvi izraz, T.₁, serije dobimo z nadomestitvijo k = 1 v formulo, tj.

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

T₂	=	2² + 12 + 1	=	17	… in tako naprej
		18 + 7		25

Spodaj si bomo ogledali program v Excel VBA to izračuna kateri koli izraz T_k in seštevanje izrazov do N.

Pojasnilo: uporabnik lahko vnese "Vse" ali "Neparno", da izračuna vsoto prvih N členov niza ali vsoto le neparnih izrazov do N.

Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:

1. Najprej razglasimo štiri spremenljivke tipa Integer in eno spremenljivko tipa String.

Dim i, izraz, N, stepSize kot celo število
Dim sumType As String

2. Drugič, inicializiramo spremenljivke.

i = 0
N = Razpon ("C2"). Vrednost
sumType = Obseg ("C3"). Vrednost

3. Izpraznite polja.

Razpon ("A8: B1000"). Vrednost = ""
Razpon ("C6"). Vrednost = ""

4. Določite stepSize.

Izberite Vrsta primera
Primer je = "Vse"
stepSize = 1
Primer je = "Čudno"
stepSize = 2
Primer drugače
MsgBox "Vnesite veljaven izraz v celico C3"
Konec
Konec Izberite

Namig: poiščite naš program Select Case, če želite izvedeti več o strukturi Select Case.

5. Naredite izračune.

Za izraz = 1 do N korak stepSize
Celice (8 + i, 1). Vrednost = izraz
Celice (8 + i, 2). Vrednost = (izraz 2 + (6 * izraz) + 1) / ((9 * izraz) + 7)
Razpon ("C6"). Vrednost = Razpon ("C6"). Vrednost + celice (8 + i, 2). Vrednost
i = i + 1
Naslednji termin

Pojasnilo: s ključno besedo Step podamo prirastek (1 za "Vse" in 2 za "Neparno") za spremenljivko števca zanke.

Rezultat: