300 Ejemplos

Cálculos complejos

Complex Calculations

La Kthtérmino, Tpara, de una determinada serie matemática se define mediante la siguiente fórmula:





Tpara = para2+ 6k + 1
9k + 7

El primer término, T1, de la serie se obtiene sustituyendo k = 1 en la fórmula, es decir,

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

A continuación, veremos un programa en Excel VBA ese calcula cualquier término Tparay suma de términos hasta N.





Cálculos complejos en Excel VBA

Explicación: el usuario tiene la opción de ingresar 'Todos' o 'Impar', para calcular respectivamente la suma de los primeros N términos de la serie o la suma de solo los términos impares hasta N.



Coloque un Botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:

1. Primero, declaramos cuatro variables de tipo Integer y una variable de tipo String.

Ningunoi, term, N, stepSizeComo Entero
NingunosumTypeComo Cuerda

2. Segundo, inicializamos las variables.

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

3. Vacíe los campos.

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

4. Determine stepSize.

cómo usar sumifs con fechas
Seleccione CasosumType
Caso Es= 'Todos'
stepSize = 1
Caso Es= 'Impar'
stepSize = 2
Caso Demás
MsgBox 'Ingrese una expresión válida en la celda C3'
Fin
Fin Seleccione

Consejo: revisa nuestro Seleccione el caso programa para obtener más información sobre la estructura Seleccionar caso.

5. Haz los cálculos.

Paratérmino = 1ParanortePasoNumero de pie
Celdas (8 + i, 1) .Valor = término
Celdas (8 + i, 2) .Valor = (término ^ 2 + (6 * término) + 1) / ((9 * término) + 7)

Rango ('C6'). Valor = Rango ('C6'). Valor + Celdas (8 + i, 2) .Valor

yo = yo + 1
próximotérmino

Explicación: usamos el Paso palabra clave para especificar el incremento (1 para 'Todos' y 2 para 'Impar') para la variable de contador del bucle.

Resultado:

Resultado de cálculos complejos

10/11 Completado! Obtenga más información sobre los bucles>
Ir al capítulo siguiente: Errores macro



^