300 Pavyzdžių

Sudėtingi skaičiavimai

Complex Calculations

Ktūkstterminas, T.į, tam tikros matematinės serijos apibrėžta pagal šią formulę:



Tį = į2+ 6k + 1
9k + 7

Pirmoji kadencija, T.1, iš serijos gaunamas pakeičiant k = 1 į formulę, t.y.

T1 = 12+ 6 + 1 = 1 ir
9 + 7 2
T2 = 22+ 12 + 1 = 17 ... ir taip toliau
18 + 7 25

Žemiau apžvelgsime programą Excel VBA kad skaičiuoja bet kuris terminas T.įir terminų suma iki N.





Sudėtingi skaičiavimai „Excel VBA“

Paaiškinimas: vartotojas turi galimybę įvesti „Visi“ arba „Nelyginiai“, kad atitinkamai apskaičiuotų serijos pirmųjų N terminų sumą arba tik nelyginių terminų sumą iki N.



Įdėkite a komandinis mygtukas darbalapyje ir pridėkite šias kodo eilutes:

1. Pirma, deklaruojame keturis Integer tipo kintamuosius ir vieną String tipo kintamąjį.

Nė vienasi, terminas, N, stepSizeKaip Sveikasis skaičius
Nė vienassumTypeKaip Styginė

2. Antra, inicializuojame kintamuosius.

i = 0
N = diapazonas ('C2'). Reikšmė
sumType = Diapazonas ('C3'). Reikšmė

3. Ištuštinkite laukus.

Diapazonas ('A8: B1000'). Vertė = '
Diapazonas („C6“). Vertė = '

4. Nustatykite stepSize.

kokia yra fv funkcija excel
Pasirinkite BylasumType
Byla Ar= 'Viskas'
stepSize = 1
Byla Ar= 'Keista'
stepSize = 2
Byla Kitas
„MsgBox“ „Įveskite tinkamą išraišką ląstelėje C3“
Galas
Galas Pasirinkite

Patarimas: eikite per mūsų Pasirinkite Byla programą, kad sužinotumėte daugiau apie „Select Case“ struktūrą.

5. Atlikite skaičiavimus.

Dėlterminas = 1ĮNŽingsnisstepSize
Ląstelės (8 + i, 1). Vertė = terminas
Ląstelės (8 + i, 2). Vertė = (terminas ^ 2 + (6 * terminas) + 1) / ((9 * terminas) + 7)

Diapazonas („C6“). Vertė = diapazonas („C6“). Vertė + langeliai (8 + i, 2). Vertė

i = i + 1
Kitasterminas

Paaiškinimas: mes naudojame Žingsnis raktažodį, kad nurodytumėte kilpos skaitiklio kintamojo prieaugį (1 „visiems“ ir 2 - „nelyginis“).

Rezultatas:

Sudėtingų skaičiavimų rezultatas

10/11 baigtas! Sužinokite daug daugiau apie kilpas>
Eiti į kitą skyrių: Makro klaidos



^