✅ Komplekssed arvutused Excel VBA -s

Lang L: none (table-of-contents)

K^th termin, T_k, määratletakse teatud matemaatilise seeria järgmise valemi abil:

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

Esimene ametiaeg, T.₁, seeriast saadakse, asendades valemiga k = 1, st.

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

T₂	=	2² + 12 + 1	=	17	… ja nii edasi
		18 + 7		25

Allpool vaatame programmi Exceli VBA seda arvutab mis tahes termin T._k ja tingimuste liitmine kuni N.

Selgitus: kasutajal on võimalus sisestada "Kõik" või "Kummaline", et vastavalt arvutada sarja esimese N -tähe summa või ainult paaritu arvu summa kuni N.

Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:

1. Esiteks deklareerime neli muutujat täisarvu ja ühe muutujatüüpi String.

Dim i, termin, N, stepSize As Integer
Dim sumType kui string

2. Teiseks lähtestame muutujad.

i = 0
N = Vahemik ("C2"). Väärtus
sumType = Vahemik ("C3"). Väärtus

3. Tühjendage väljad.

Vahemik ("A8: B1000"). Väärtus = ""
Vahemik ("C6"). Väärtus = ""

4. Määrake stepSize.

Valige Case sumType
Juhtum on = "kõik"
stepSize = 1
Juhtum on = "veider"
stepSize = 2
Juhtum muidu
MsgBox "Sisestage lahtrisse C3 kehtiv avaldis"
Lõpp
Lõpp Vali

Näpunäide: vaadake läbi meie Select Case programm, et saada lisateavet Select Case struktuuri kohta.

5. Tehke arvutused.

Termini jaoks = 1 kuni N Samm stepSize
Lahtrid (8 + i, 1). Väärtus = termin
Lahtrid (8 + i, 2). Väärtus = (termin 2 + (6 * termin) + 1) / ((9 * termin) + 7)
Vahemik ("C6"). Väärtus = vahemik ("C6"). Väärtus + lahtrid (8 + i, 2). Väärtus
i = i + 1
Järgmine ametiaeg

Selgitus: me kasutame märksõna Step, et määrata ahela loenduri muutuja juurdekasv (1 „kõik” ja 2 „paaritu”).

Tulemus: