El k- ésimo término, T k , de una determinada serie matemática se define mediante la siguiente fórmula:

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

1=2 + 6 + 1=1y
9 + 72
2=2 + 12 + 1=17... y así
18 + 725

A continuación, veremos un programa en Excel VBA que calcula cualquier término T k y la 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 sólo 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.

Dim i, term, N, stepSize As Integer
Dim sumType As String

2. Segundo, inicializamos las variables.

i = 0
N = Range("C2").Value
sumType = Range("C3").Value

3. Vacíe los campos.

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

4. Determine 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: consulte nuestro programa Select Case para obtener más información sobre la estructura de Select Case.

5. 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 la palabra clave Step 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>
Capítulo siguiente: Errores de macro