O Kº termo, Tk, de uma determinada série matemática é definida pela seguinte fórmula:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
O primeiro termo, T1, da série é obtido substituindo k = 1 na fórmula, ou seja,
| T1 | = | 12 + 6 + 1 | = | 1 | e |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … e assim por diante |
| 18 + 7 | 25 |
Abaixo, veremos um programa em Excel VBA que calcula qualquer termo Tk e somatório dos termos até N.
Explicação: o usuário tem a opção de inserir "Todos" ou "Ímpares", para calcular respectivamente a soma dos primeiros N termos da série ou a soma apenas dos termos ímpares até N.
Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:
1. Primeiro, declaramos quatro variáveis do tipo Integer e uma variável do tipo String.
Dim i, term, N, stepSize As Integer
Dim sumType As String
2. Em segundo lugar, inicializamos as variáveis.
i = 0
N = Faixa ("C2"). Valor
sumType = Range ("C3"). Valor
3. Esvazie os campos.
Intervalo ("A8: B1000"). Valor = ""
Intervalo ("C6"). Valor = ""
4. Determine stepSize.
Selecione Case sumType
Case Is = "All"
stepSize = 1
Case Is = "Odd"
stepSize = 2
Case Else
MsgBox "Insira uma expressão válida na célula C3"
Fim
End Select
Dica: vá até nosso programa Select Case para aprender mais sobre a estrutura do Select Case.
5. Faça os cálculos.
Para term = 1 a N etapas stepSize
Células (8 + i, 1). Valor = termo
Células (8 + i, 2). Valor = (termo 2 + (6 * termo) + 1) / ((9 * termo) + 7)
Intervalo ("C6"). Valor = Intervalo ("C6"). Valor + Células (8 + i, 2) .Valor
i = i + 1
Próximo termo
Explicação: usamos a palavra-chave Step para especificar o incremento (1 para "Todos" e 2 para "Ímpares") para a variável do contador do loop.
Resultado:
