El k ^ º ^ plazo, T ~ k ~, de una determinada serie matemática se define por la siguiente fórmula:

_T ~ k ~ _ = k ^ 2 ^ + 6k + 1 9k + 7 El primer término, T ~ 1 ~, de la serie se obtiene sustituyendo k = 1 en la fórmula es decir

_T ~ 1 ~ _ = 1 ^ 2 ^ + 6 + 1 = 1 y 9 + 7 2 _T ~ 2 ~ _ = 2 ^ 2 ^ + 12 + 1 = 17 …​ y así sucesivamente 18 + 7 25 A continuación vamos a vistazo a un programa en Excel VBA que calcula cualquier término T ~ k ~ y la suma de los términos hasta N.

Complex Calculations in Excel VBA

Explicación: el usuario tiene la opción de entrar en «All» o «impar», respectivamente, para el cálculo de la suma de los n primeros términos de la serie o de la suma de sólo los términos impares de hasta N.

Coloque un botón de comando en la hoja de trabajo y añadir las líneas de código siguientes:

  1. En primer lugar, declarar cuatro variables de tipo entero y una variable de tipo String.

Dim i, term, N, stepSize As Integer

Dim sumType As String

  1. En segundo lugar, inicializar las variables.

i = 0

N = Range("C2").Value

sumType = Range("C3").Value

  1. Vaciar los campos.

Range("A8:B1000").Value = ""

Range("C6").Value = ""

  1. Determinar stepSize.

Select Case sumType

Case Is = "All"

stepSize = 1

Case Is = "Odd"

stepSize = 2

Case Else

MsgBox "Enter a valid expression in cell C3"

End

End Select

Consejo: ir a través de nuestro enlace: / VBA-ejemplos de selección de los casos [Select Case] programa para aprender más sobre la estructura Select Case.

  1. Haz los cálculos.

For term = 1 To N Step stepSize

Cells(8 + i, 1).Value = term

Cells(8 + i, 2).Value = (term ^ 2 + (6  term) + 1) / ((9  term) + 7)

Range("C6").Value = Range("C6").Value + Cells(8 + i, 2).Value

i = i + 1

Next term

Explicación: utilizamos el enlace: / VBA-ejemplos-paso-palabra clave [Paso] palabra clave para especificar el incremento (1 para «All» y 2 para «impar») para la variable de contador del bucle.

Resultado:

Complex Calculations Result