K ^ e ^ terme, T ~ k ~, d’une certaine série mathématique est définie par la formule suivante:

_T ~ k ~ k ^ _ = ^ 2 + 6k + 1 + 7 9k Le premier terme, T ~ 1 ~, de la série est obtenue en remplaçant k = 1 dans la formule à-dire

_T ~ 1 ~ _ = 1 ^ 2 ^ + 6 + 1 = 1 et 9 + 7 2 _T ~ 2 ~ _ = 2 ^ 2 ^ + 12 + 1 = 17 …​ et ainsi de suite 18 + 7 25 Ci-dessous nous regard sur un programme dans Excel VBA qui calcule un terme T ~ k ~ et sommation des termes jusqu’à N.

Complex Calculations in Excel VBA

Explication: l’utilisateur a la possibilité d’entrer dans « All » ou « Odd », pour calculer respectivement la somme des n premiers termes de la série ou la somme que les termes impairs jusqu’à N.

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:

  1. Tout d’abord, nous déclarons quatre variables de type entier et une variable de type String.

Dim i, term, N, stepSize As Integer

Dim sumType As String

  1. En second lieu, nous initialiser les variables.

i = 0

N = Range("C2").Value

sumType = Range("C3").Value

  1. Vider les champs.

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

Range("C6").Value = ""

  1. Déterminer 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

Astuce: passer par notre lien: programme / vba-exemples select cas [Select Case] pour en savoir plus sur la structure Select Case.

  1. Est-ce les calculs.

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

Explication: nous utilisons le lien: / ABV-exemples-étape-clé [étape] mot-clé pour spécifier l’incrément (1 pour « Tous » et 2 pour « Odd ») pour la variable compteur de la boucle.

Résultat:

Complex Calculations Result