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.
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 EnteroNingunosumTypeComo Cuerda
2. Segundo, inicializamos las variables.
i = 0N = 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 fechasSeleccione 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 pieCeldas (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:
Ir al capítulo siguiente: Errores macro