300 Exemples

Càlculs complexos

Complex Calculations

El kthterme, Ta, d'una determinada sèrie matemàtica es defineix amb la següent fórmula:



Ta = a2+ 6k + 1
9k + 7

El primer terme, T1, de la sèrie s’obté substituint k = 1 a la fórmula és a dir.

T1 = 12+ 6 + 1 = 1 i
9 + 7 2
T2 = 22+ 12 + 1 = 17 ... etcètera
18 + 7 25

A continuació veurem un programa a Excel VBA això calcula qualsevol terme Tai suma de termes fins a N.





Càlculs complexos en Excel VBA

Explicació: l'usuari té l'opció d'introduir 'Tots' o 'Senars', per calcular respectivament la suma dels primers N termes de la sèrie o la suma de només els termes senars fins a N.



Col·loqueu a botó d'ordres al full de càlcul i afegiu les línies de codi següents:

1. En primer lloc, declarem quatre variables del tipus Enter i una variable del tipus String.

Capi, terme, N, stepSizeCom Enter
CapsumTypeCom Corda

2. En segon lloc, inicialitzem les variables.

i = 0
N = Interval ('C2'). Valor
sumType = Range ('C3'). Valor

3. Buideu els camps.

Interval ('A8: B1000'). Valor = '
Interval ('C6'). Valor = '

4. Determineu stepSize.

com afegir una fila total a una taula en Excel
Seleccioneu CaixasumType
Caixa És= 'Tots'
stepSize = 1
Caixa És= 'Senar'
stepSize = 2
Caixa Altrament
MsgBox 'Introduïu una expressió vàlida a la cel·la C3'
Final
Final Seleccioneu

Consell: passeu pel nostre Seleccioneu majúscules i minúscules programa per obtenir més informació sobre l’estructura Select Case.

5. Feu els càlculs.

Per aterme = 1Per aNPasstepSize
Cèl·lules (8 + i, 1). Valor = terme
Cel·les (8 + i, 2). Valor = (terme ^ 2 + (terme 6 *) + 1) / ((terme 9 *) + 7)

Rang ('C6'). Valor = Rang ('C6'). Valor + cel·les (8 + i, 2). Valor

i = i + 1
Pròximtermini

Explicació: fem servir el fitxer Pas paraula clau per especificar l'increment (1 per a 'Tots' i 2 per a 'Senar') per a la variable de comptador del bucle.

Resultat:

Resultat de càlculs complexos

10/11 finalitzat. Obteniu més informació sobre els bucles>
Aneu al capítol següent: Errors de macro



^